delphi发送http请求示例（THttpCli组件示例）

bimuyu

//发送请求

procedure TfrmMain.LocateExecute(Sender: TObject);
var
fFileInStream:TFileStream;
fStreamIn:TStringStream;
begin
fFileInStream:=TFileStream.Create('c:/request.xml',fmOpenRead);
fStreamIn := TStringStream.Create('');
fStreamIn.CopyFrom(fFileInStream,fFileInStream.Size);

try
HttpCli.SendStream := TStringStream.Create(fStreamIn.DataString);
HttpCli.RcvdStream := TStringStream.Create('');

HttpCli.PostASync;
// MmoResponse.Text:='Request Finished,waiting for response...';
fFileInStream.Free;
fStreamIn.Free;
except
on e:Exception do
begin
ShowMessage('Exception Msg:'+ e.Message );
Exit;
end;
end;
end;


//收到回应

procedure TfrmMain.HttpCliRequestDone(Sender: TObject; RqType: THttpRequest;
ErrCode: Word);
var
varStream:TStringStream;
begin
varStream:=TStringStream.Create('');
varStream:=TStringStream(HttpCli.RcvdStream);
varStream.Seek(0, soFromBeginning);
XML.LoadFromStream( varStream );
MmoResponse.Lines := XML.XML;
end;