Einzelnen Beitrag anzeigen

T.E.

Registriert seit: 27. Mai 2007
Ort: Hamburg
284 Beiträge
 
Delphi XE2 Enterprise
 
#1

FTP Kommunikation in Thread mitloggen

  Alt 10. Nov 2010, 12:58
Moin moin,

ich habe ein Problem mit meinem Thread, der einen FXP Transfer durchführen soll... Nun möchte ich ganz gerne die Kommunikation zwischen den beiden Servern und mir mitloggen.
Dazu erzeuge ich neben den beiden FTP Kompos im Thread noch für jeden FTP einmal folgende Objekte: IdConnectionIntercept, IdIOHandlerStack und IdLogFile.

Diese verknüpfe ich anschließend wie folgt:
Delphi-Quellcode:
LogFileQ.Active := True;
  LogFileQ.LogTime := True;
  LogFileQ.Filename := ExtractFilePath(ParamStr(0)) + 'TransferLogQuelle.log';
  LogFileZ.Active := True;
  LogFileZ.LogTime := True;
  LogFileZ.Filename := ExtractFilePath(ParamStr(0)) + 'TransferLogZiel.log';
  ConnectionInterceptQ.Intercept := LogFileQ;
  ConnectionInterceptZ.Intercept := LogFileZ;
  IOHandlerQ.Intercept := ConnectionInterceptQ;
  IOHandlerZ.Intercept := ConnectionInterceptZ;

  FTP_Quelle.Intercept := ConnectionInterceptQ;
  FTP_Quelle.IOHandler := IOHandlerQ;
  FTP_Ziel.Intercept := ConnectionInterceptZ;
  FTP_Ziel.IOHandler := IOHandlerZ;
Leider bleiben meine beiden Logfiles leer. Kann mir jemand sagen warum?

Danke im voraus!!!
Gruß Torben
  Mit Zitat antworten Zitat