[高分求助，在线]如何使用TidHttp控件向一个URL传送XML，并得到返回的XML？

[yczyk]

以下是我的部分代码， 请高手来参考一下：
var
XMLList:TStrings;
begin
//加入XML信息
XMLList := TStringlist.Create;
XMLList.Add('<?xml version="1.0" encoding="GB2312"?>');
XMLList.Add('<svc_init>');
XMLList.Add('<hdr ver="1.0.0">');
XMLList.Add('<client>');
...
LocalStr := IdHTTP1.Post(LSPURL,XMLList); //这样调用有错吗？例如LSPURL为211.125.220.113/leset/set

end;

[yczyk]

对方的页面接收到我的字符串后将返回一个XML格式的字符串，可是我执行后没有错， 却总返回一个报错的XML 页面给我是不是我的调用有错啊？

[lgqTiger]

对不起，XML不懂。
估计是数据转换时出错。
在实际要求显示指定的XML时才能检测到。

[lgqTiger]

可不可以将返回的XML字符串内容
贴出来看看？

[yczyk]

继续,如何在多线程里动态的创建TidHttp控件呢?

[zhuangbx220]

type regThread=class(TThread)
private
IdHTTPreg:TIdHTTP;
fs:TFileStream;
Response : TStringStream;
st:TStringList;
bmp: TBITMAP;
FUserID:string;
FUserPassword:string;
FN:string;
FEnd:boolean;
public
constructor Create;
destructor Destroy; override;
procedure Execute; override;
property RegeditEnd:boolean read FEnd;
property UserID:string read FUserID;
property UserPassword:string read FUserPassword;
end;


constructor regThread.Create;
var
i:integer;
begin
inherited Create(false); //false 创建后立即执行
FreeOnTerminate:=false; //false 不自动结束线程
FEnd:=false;i:=0;
fn:=format('%.4d.~tmp',[i]);
while FileExists(fn) do
begin
inc(i);
fn:=format('%.4d.~tmp',[i]);
end;
IdHTTPreg:=TIdHTTP.Create(nil);
Response := TStringStream.Create('');
bmp:=TBITMAP.Create;
st:=TStringList.Create;
fs:=TFileStream.Create(fn,fmCreate or fmShareDenyWrite);
end;

destructor regThread.Destroy;
begin
IdHTTPreg.Free ;
Response.Free ;
st.Free ;
bmp.Free ;
if fs<>nil then fs.Free;
deletefile(fn);
inherited Destroy;
end;

[feng316]

procedure TForm1.Button1Click(Sender: TObject);
var
Source: TMemoryStream;
Response: TStringStream;
begin

try

// Set the properties for HTTP
HTTP.Request.Username := 'www';
HTTP.Request.Password := 'www';
HTTP.Request.ProxyServer := '11.133.190.13';
HTTP.Request.ProxyPort := StrToIntDef('80', 80);
HTTP.Request.ContentType := 'application/x-www-form-urlencoded';

HTTP.Intercept :=ssl;
// HTTP.InterceptEnabled := true;



Response := TStringStream.Create('');
try

Source := TMemoryStream.Create;
try
Source.LoadFromFile('c:\Login.xml');

HTTP.Post('http://202.106.80.72', Source, Response);
finally
// Source.Free;
end;

memoHTML.Lines.Text := Response.DataString;//返回的字串,你可以把它存为XML就可以呢
finally
Response.Free;
end;


finally

end;

end;