IdTCPClient如何收到一个发送成功的返回值

Question

procedure TForm1.IdTCPClient1WorkEnd(Sender: TObject;
  AWorkMode: TWorkMode);
begin
  //结束发送，你可以在这里写你的发送成功代码
end;procedure TForm1.IdTCPClient1WorkBegin(Sender: TObject;
  AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
  //开始发送
end;procedure TForm1.IdTCPClient1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  //发送中
end;

Answer 1

http://topic.csdn.net/u/20100408/15/21a66fdb-dab1-4cc9-a9db-f64c30982c77.html