有辦法不管網址是否有加上 http  都可以正常執行嗎 ? 謝謝

引言: IdHTTP1.HandleRedirects:=true; try // 不加上 http 會錯誤 // Memo1.Text:=IdHTTP1.Get('www.kimo.com.tw'); Memo1.Text:=IdHTTP1.Get('http://www.kimo.com.tw/'); except on E: EIdHTTPProtocolException do begin Showmessage('EIdHTTPProtocolException'); end; on E: EIdSocketError do begin // Showmessage(E.Message); Memo1.Lines.Add(E.Message); end; end;

pcboy2 你好  

  在還沒找到更好的方法之前，這個你先頂著用吧!    Function SmartGet(ih:TIdHttp;AURL:String):string;
Begin
  If Comparetext('http://',Copy(AURL,1,7)) <> 0 Then Begin
    AURL := 'http://' AURL;
  End;
  try
    Result := ih.Get(AURL);
  except
    on E: EIdHTTPProtocolException do begin
      Result :='EIdHTTPProtocolException';
    end;
    on E: EIdSocketError do begin
      Result := E.Message;
    end;
  End;
End;    procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Memo1.Text := SmartGet(idHttp1,'tw.yahoo.com');
end;
 

_______________________________________ 深藍的魚，祝您好運..........連連

pcboy2 你好     最近也在玩WebBrowser,發現只要在BeforeNavigate2 事件中如下寫幾行程式即可。

procedure TForm1.WBBeforeNavigate2(Sender: TObject; const pDisp: IDispatch;
  var URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
  var Cancel: WordBool);
begin
  If Comparetext('http://',Copy(URL,1,7)) <> 0 Then Begin
    URL := 'http://' URL;
  End;
end;    

_______________________________________ 深藍的魚，祝您好運..........連連 發表人 - chance36 於 2004/09/22 22:07:35