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

Question

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;

Answer 1

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