IdTCPClientWork() im Thread??

[jkdfighter]

Hab ne Frage...
Wie deklariere ich IdTCPClientWork() in einem Thread???
Hab so:

Delphi-Quellcode:

procedure IdTCPClientWork(Sender: TObject; AWorkMode: TWorkMode;

.......

procedure Ttcp_client_Thread.IdTCPClientWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  main.ProgressBar_set_position(AWorkCount);
end;

[alcaeus]

Zitat:

Zitat von jkdfighter

Hab ne Frage...
Wie deklariere ich IdTCPClientWork() in einem Thread???
Hab so:

Ja und? Gefällts dir nicht? Motzt der Compiler? Wird die Festplattte formatiert? Was ist denn nun mit dem Code? :roll:

Greetz
alcaeus

[jkdfighter]

ja sorry.. der TCP_Client benützt es einfach nciht.. weiß auch net wieso..

[alcaeus]

Du musst beim IdTCPClient die Prozedur noch dem Ereignis zuweisen, also (ich rate mal blind):

Delphi-Quellcode:

IdTCPClient1.OnWork := IdTCPClientWork;

Kann sein dass die Ereignisse anders heißen, ich hab im Moment keine Indys in meiner Nähe ;)

Greetz
alcaeus

[jkdfighter]

denke dir.. es funkt