如何在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;

希望这能帮到你！