Forum: Netzwerke
Delphi
by jfheins,
14. Mai 2005
Für das OnWork-Event müsste das so gehen: TMyFtp = class (TIdFtp)
procedure DoWork(AWorkMode: TWorkMode; const ACount: Integer); override;
end;
implementation
{ TMyFtp }
procedure TMyFtp.DoWork(AWorkMode: TWorkMode; const ACount: Integer);
begin
Forum: Netzwerke
Delphi
by jfheins,
14. Mai 2005
Du könntest natürlich auch eine neue TIdFtp-Komo ableiten, die im Parameter Sender sich selbst einträgt, statt TIdTCPConnection
Forum: Netzwerke
Delphi
by jfheins,
14. Mai 2005
Schreib' dir eine kleine Funktion, die deine IdFtps durchgeht, und den richtigen zurückliefert ...
In etwa:function GetIdFtp (const Vorfahr: TObject): TIdFtp;
begin
for <Alle IdFtps> do
if <IdFtp>.Name = Vorfahr.Name then
begin
Result := <IdFtp>;
Break;
end;
Forum: Netzwerke
Delphi
by jfheins,
14. Mai 2005
:oops: :wall:
Versuch mal, sie über(Sender as TidTCPConnection).Namezu unterscheiden :wink: