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

希望這可以幫助你！