delphi 利用idhttp POST一个xml文件

1.把stringlist存到内存发送MemoryStream

procedure TForm1.SendPostData;
var
sResponse: String;
fsParams: TMemoryStream;
begin
fsParams := TMemoryStream.Create
YourStringList.SaveToStream(fsParams);
try
IdHTTP.Request.ContentType := 'text/xml';
sResponse := IdHTTP.Post('https://www.zhuxianfei.com', fsParams);
ShowMessage(sResponse);
except on E: Exception do
ShowMessage('Error encountered during POST: ' + E.Message);
end;
fsParams.free;
end;

2.直接post一个xml文件

procedure TForm1.SendPostData; 
var 
sResponse: String; 
fsParams: TFileStream; 
begin 
fsParams := TFileStream.Create('.\test.xml', fmOpenRead or 
fmShareDenyWrite); 
try 
IdHTTP.Request.ContentType := 'text/xml'; 
sResponse := 
IdHTTP.Post('https://www.zhuxianfei.com', fsParams); 
ShowMessage(sResponse); 
except 
on E: Exception do 
ShowMessage('Error encountered during POST: ' + E.Message); 
end; 
end; 
end;