indy ftp: dazugehörige idFTP-Komponente aus OnWork ermitteln

[Nogge]

Hallo Community,
Ich erstelle mehrere idFTP-Komponente zur Laufzeit, verbinde aber all diese mit den selben (OnWorkBegin, OnWork, OnWorkEnd)-Procedures. Ich habe nämlich die idFTP-Komponente ein wenig für meine Zwecke überarbeitet, weil ich für jede Komponente auch ein Panel und ein Label benötige. Daher möchte ich irgendwie herausfinden, welche Komponente gerade das Event ausführt.

Delphi-Quellcode:

type
  TidFTP_Thread = class(TidFTP)
    private
      { Private declarations }
      Filename : String;
      Target   : String;
      P_Thread : TPanel;
      L_Thread : TLabel;
    end;

[jfheins]

Also meine IdFtp-Komonenten haben alle im OnWork etc,. den Parameter Sender, mit dem du auf die Ftp-Kompo zugreifen kannst, die dieses Ereignis ausgelöst hat.

[Nogge]

Der Sender ist aber vom Typ idTCPConnection und nicht vom Typ idFTP.
(Sender as TidTCPConnection).Irgendetwas Wenn ich den Typ verändere, erhalte ich eine AV.

[jfheins]

Versuch mal, sie über(Sender as TidTCPConnection).Name zu unterscheiden

[Nogge]

So müsste ich alle idFTP-Komponenten durchgehen und prüfen, ob das der best. ist. Diese Methode gefällt mir nicht^^

[jfheins]

Schreib' dir eine kleine Funktion, die deine IdFtps durchgeht, und den richtigen zurückliefert ...

In etwa:

Delphi-Quellcode:

function GetIdFtp (const Vorfahr: TObject): TIdFtp;
begin
for <Alle IdFtps> do
  if <IdFtp>.Name = Vorfahr.Name then
  begin
    Result := <IdFtp>;
    Break;
  end;
end;

[Nogge]

Das Problem ist, dass ich die ganzen idFTPs lokal erstellt habe und nicht global daraufzugreifen kann. Das beste wäre, wenn ich dem OnWork usw. Event einen weiteren Parameter übertragen könnte. Ich weiß aber nicht, ob das erstens geht und zweitens wenn es gehen würde, wie.

[jfheins]

Du könntest natürlich auch eine neue TIdFtp-Komo ableiten, die im Parameter Sender sich selbst einträgt, statt TIdTCPConnection

[Nogge]

Würde ich ja gern, nur wie geht das?^^

[jfheins]

Für das OnWork-Event müsste das so gehen:

Delphi-Quellcode:

  TMyFtp = class (TIdFtp)
    procedure DoWork(AWorkMode: TWorkMode; const ACount: Integer); override;
  end;

implementation

{ TMyFtp }

procedure TMyFtp.DoWork(AWorkMode: TWorkMode; const ACount: Integer);
begin
  if FWorkInfos[AWorkMode].Level > 0 then begin
    Inc(FWorkInfos[AWorkMode].Current, ACount);
    if assigned(OnWork) then begin
      OnWork(Self, AWorkMode, FWorkInfos[AWorkMode].Current);
    end;
  end;
end;