我是德爾福的新手。爲了與WebService進行通信,我添加了兩個組件,分別爲SSL(https)的TIdHTTP和TIdSSLIOHandlerSocketOpenSSL。從服務器獲得響應時,它不起作用,並返回「Socket Error#10060'#$ D#$ A'Connection超時。」我該怎麼辦?下面是我的代碼。
procedure TForm1.btnRequestClick(Sender: TObject);
var
s: string;
lHTTP: TIdHTTP;
lIOHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
lHTTP := TIdHTTP.Create(nil);
lIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
try
lHTTP.IOHandler := lIOHandler;
lHTTP.HandleRedirects := True;
s := lHTTP.Get('https://esta.cbp.dhs.gov/esta/');
Memo.Text := s;
finally
lHTTP.Free;
lIOHandler.Free;
end;
end;
在此先感謝。
是的!我可以連接網址,我將檢查公司的網絡政策或其他內容。如果是網絡問題,我檢查什麼樣的東西? – 2014-09-25 04:19:37
如果網絡瀏覽器可以連接到該網站,則TIdHTTP也不應該無法連接。 – 2014-09-25 14:35:05