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