我有一事不明，使用tidhttp控件，在函数中必须定义idhttp1:tidhttp吗？如不定义他就编译提示出错，但在procedure中就不必定义，同时在 IdHTTP1.get('http://www.x.com');部分编译能通过，运行时提示出错，信息如下： 不知何故，网址是正确的也如此，我还发现运行到出错语句之后idhttp1值为"nil"，就是没有成功获取参数的标志。还有就是 idhttp1释放是使用idhttp1.disconnect还是idhttp1.free本人不知区别是什么？ 请大家帮忙。谢谢！本人写的函数如下： function doit(var code:integer):integer; var code2:integer; idhttp1:tidhttp; begin try IdHTTP1.get('http://www.xxx.com');//出错部分 code2:=idhttp1.responsecode; showmessage('ok'); except code2:=idhttp1.responsecode; showmessage('error'+inttostr(code)); idhttp1.disconnect;

dragon100 你好

function doit(var code:integer):integer;
var
  code2:integer;
  idhttp1:tidhttp; //  宣告IdHttp1為TidHttp類別的物件
begin
  try
    IdHTTP1 := TIdHTTP1.Create(Self); // 要先建立物件
    IdHTTP1.get('http://www.xxx.com');//因為沒建立實體而出错
    code2:=idhttp1.responsecode;
    showmessage('ok');
  except
    code2:=idhttp1.responsecode;
    showmessage('error' inttostr(code));
  End;
  If Assigned(IdHTTP1) Then 
    IdHTTP1.Free;  // 用.Free來釋放物件實體
//  idhttp1.disconnect; // 好像沒有DisConnect的Method吧!
End;

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.