Einzelnen Beitrag anzeigen

nahpets
(Gast)

n/a Beiträge
 
#8

AW: Webservice Kommunikation loggen

  Alt 6. Jan 2017, 13:02
Man müsste halt prüfen, ob dem OnCommandGet von TidHTTPWebBrokerBridge schon was zugewiesen ist.

Könnte sowas nicht eventuell funktionieren?
Delphi-Quellcode:
...
 FSaveOnCommandGet: TIdHTTPCommandEvent;
...

// an geeigneter Stelle vor dem Aktivieren ...
 FSaveOnCommandGet := MyWebBrokerBridge.OnCommandGet;

procedure TMyWebBrokerBridge.CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  // und hier dann loggen?
  if Assigned(FSaveOnCommandGet) then begin
    FSaveOnCommandGet(AContext, ARequestInfo, AResponseInfo);
  end;
  // oder hier dann loggen?
end;
  Mit Zitat antworten Zitat