TIdHttp的put方法如何得知是否上传成功

[jieguo]

delphi7中，的TIDhttp控件。以下程序执行后，明明是上传成功了，但是不返回OK信息，怎么执行才能让知道put方法究竟是否成功执行呢

var fs:TFileStream;
Response:TStringStream;
fileName:string;
begin
fs:=TFileStream.Create('D1.doc',fmopenread);
response:=TStringStream.Create('');

try
try
IdHTTP1.Put('http://localhost/postfile/d1.doc',fs,response);
showmessage('ok');
except
showmessage(response.DataString);
end;

finally
fs.Free;
response.Free;
end;
end;

[haisha]

在onWorkEnd事件写

[jieguo]

[Quote=引用 1 楼 haisha 的回复:]
在onWorkEnd事件写
[/Quote]
能否具体点

[jieguo]

[Quote=引用 1 楼 haisha 的回复:]
在onWorkEnd事件写
[/Quote]
比如如果上传失败的处理应该怎么写

[jieguo]

设个变量，onworkend里设为true，然后根据该变量为true或者false来判断成功失败，同时在put的exception里打印
exception的message，这样如何