web-services - 如何在 THTTPRIO 中设置反馈？

Question

我已经开发了一个Webservice，我正在 Delphi 上使用它。

Indy 组件有一个OnWork事件，但我在 THTTPRIO 中没有找到类似的东西。

有OnWork活动THTTPRIO吗？我猜它在内部使用 Indy，但我对此不太确定。

Answer 1

您可以访问 THTTPRIO.HTTPWebNode 对象的事件。

例子：

procedure TYourClass.SomePostingDataEvent(Sent: Integer; Total: Integer);
begin
  //Do something
end;

procedure TYourClass.SomeReceivingDataEvent(Read: Integer; Total: Integer);
begin
  //Do something
end;

procedure TYourClass.SomeMethod;
begin
  YourHTTPRIO.HTTPWebNode.OnPostingData := SomePostingDataEvent;
  YourHTTPRIO.HTTPWebNode.OnReceivingData := SomeReceivingDataEvent;
end;

希望这对你有帮助！