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