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