0
fphttpclient用簡單的例子像在fphttpclient中處理錯誤?
procedure ReadFromURL(theURL: string);
var
httpClient: TFPHTTPClient;
FileContents: String;
theStatusCode: integer;
begin
httpClient := TFPHTTPClient.Create(nil);
try
FileContents := httpClient.Get(theURL);
theStatusCode := httpClient.ResponseStatusCode;
if theStatusCode = 200 then
begin
; // do something
end
else
ShowMessage(IntToStr(theStatusCode));
finally
httpClient.Free;
end;
end;
但只,如果URL存在,使狀態代碼爲200。在其他情況下的代碼崩潰在httpClient.Get與異常工作正常類EHTTPClient,ESocketError或EXC_BAD_ACCESS,雖然程序使用嘗試...終於節(制定它作爲嘗試...除了不改變任何東西)。不幸的是,在可以處理狀態碼之前引發異常。
推薦使用fphttpclient處理錯誤的方法是什麼?在調用方法之前,是否有任何方法檢查資源是否存在(也可能是URL的正確性)?
謝謝,您的回覆有助於解決我的問題。 – jwdietrich