//发送请求
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;
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;
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;