想加入除错部分应该怎么写,比如http://ok567.com不存在或其他出错procedure TForm1.Button1Click(Sender: TObject);
var
   Stream: TStringStream;
begin
   Stream := TStringStream.Create('');
   idHttp1.Get('http://ok567.com',Stream);
   Memo1.Lines.add(Stream.DataString);
   Stream.Free;
end;

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
       Stream: TStringStream;
    begin
       try
         Stream := TStringStream.Create('');
         idHttp1.Get('http://zzok567.com',Stream);
         Memo1.Lines.add(Stream.DataString);
         Stream.Free;
       except
         ShowMessage('无法连接!');
       end;
    end;
      

  2.   

    idHttp1有事件的,仔细看看它的事件。
      

  3.   

    TRY
    ....
    Except on E:EXCEPTION DO
        SHOWMESSAGE(E.Message);
    END;
      

  4.   

    用TRY
      。
      。
      EXCEPT
      。
      END;
      

  5.   

    try
         Stream := TStringStream.Create('');
         idHttp1.Get('http://zzok567.com',Stream);
         Memo1.Lines.add(Stream.DataString);
         Stream.Free;
       except
         ShowMessage('!@#$%^&!');
       end;