indy FTP OnWork zuordnen?!

[starY]

Delphi-Quellcode:

var  idFTP: array of TidFTP;

idftp[ArrayNR].OnWork:=IdFTP1Work;

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);

Mein Problem ist wie ich dann herausfinde welcher idFTP[x] das IdFTP1Work ausgelöst hat. TidFTP(sender) will irgendwie nicht klappen.

[idontwantaname]

versuchs mal mit:
(Sender as TIdFtp).{...}

[starY]

(Sender as TIdFtp).{...} Löst ungültige Umwandlung aus leider

[SirThornberry]

dann lass dir mal "Sender.Classname" ausgeben um zu sehen was der Sender ist.

[idontwantaname]

du könntest ja den Tag des Objektes als Index aus dem array setzen
und dann eben array[ (Sender as TIdFTp).Tag ]
falls TIdFtp einen tag besitzt

[SirThornberry]

@idontwantaname: Wie weiter oben schon steht gibts nen fehler beim Casten des Senders auf TIdFTP, ansonsten wäre das ganze nicht das problem...

[idontwantaname]

hoppla, überlesen

hm, ungültige Umwandlung, tja, hab ich noch nicht wirklich gehört ^^
@starY: zeig mal den code, bei dem der fehler auftritt

[SirThornberry]

auch der Code steht bereits da... Der Fehler kommt beim cast von Sender (TObject) auf TIdFTP. Was eben darauf hinweist das der Sender nicht vom Typ TIdFtp ist, was schon merkwürdig ist.

[starY]

TidSimpleServer ist Sender.classname. Das Problem liegt halt darin, dass ich nicht weiß von welchem idFTP das Event ausgelöst wird und für jeden idFTP jweils eine feste Procedure anzulegen, sprengt wohl erstens den Code und zweitens die Flexibilität.

[starY]

bei IdFTP1WorkBegin
(sender as TIdTCPConnection).Tag:=ThreadNR; und dann bei IdFTP1Work
sender as TIdTCPConnection).Tag auslesen.

Aber danke für die Hilfe ohne die Posts wäre ich nicht auf die Lösung gekommen. Ist sozusagen ein Mix aus allem ^^