TThread -> Execute(SockId: Integer);

[StanY]

Ich habe ein Programm, was mehrere Threads erstellt, während der Laufzeit.

Nun habe ich das Problem, dass quasie bei der OnExecute-Prozedur eine Variable übergeben werden muss.

Ist mir aber nciht möglich, da dann der Compiler rummeckert, dass sich die neue Prozedur von der alten unterscheidet:

Delphi-Quellcode:

TMyThread = class(TThread)
  protected
    procedure Execute(SockId: Integer);
end;

Wie kann ich das realisieren?

(Ein neues Ereignis schreiben und dann quasie manuell aufhühren geht nicht, da es dann nicht als thread behandelt wird und die Hauptanwendung lahmt.

[Muetze1]

Moin!

1. IMHO sollte man die Parameterliste von Execute nicht ändern, da diese Methode nicht von dir später aufgerufen wird, sondern vom der originalen TThread Klasse und daher würde das dann nicht mehr klappen.
2. Du musst die Methode überschreiben - aber das würde er auch ordentlich schon vorbereiten, wenn du über Datei->Neu->Thread gegangen wärst...
3. Wieso der Execute Methode übergeben? Definiere eine Property im Thread...

MfG
Muetze1

[Jelly]

Zitat von Muetze1:

3. Wieso der Execute Methode übergeben? Definiere eine Property im Thread...

In so Fällen überschreib ich immer den Constructor Create

[StanY]

Entweder versteh ich euch oder ihr mich net

Also, hier mal ausführlicher. Dabei wollte ich heute weiter arbeiten \:

Ich habe eine eigene Klasse. Abgeleitet von der TIdTCPClient-Komponente. Halt mit eingebautem Thread:

Delphi-Quellcode:

  TMyThread = class(TThread)
  protected
    procedure Execute; override;
  end;

  TConnection = class(TIdTCPClient)
    Thread: TMyThread;
  end;

TMyThread steht halt darüber.

Nun erstelle ich per DynArr von TConnection mehrere TIdTCPClienten und mehrere Threads.

Jeder Thread muss nun für _seinen_ TCPClienten ReadLn ausführen, was ich realisieren wollte, indem ich TMyThread.Execute eine Integer Variable übergebe, die dann sagt, welchen Verbindung er abhören soll:

Delphi-Quellcode:

TMyThread.Execute(SockId: Integer);
begin
  memDebug.Lines.Add(Connection[SockId].ReadLn);
end;

Wie kann ich das möglich machen?

[Sprint]

Zitat von StanY:

Jeder Thread muss nun für _seinen_ TCPClienten ReadLn ausführen, was ich realisieren wollte, indem ich TMyThread.Execute eine Integer Variable übergebe, die dann sagt, welchen Verbindung er abhören soll:

Wie kann ich das möglich machen?

Delphi-Quellcode:

type
  TMyThread = class(TThread)
  private
    FSockedId: Integer;
  protected
    procedure Execute; override;
  public
    property SockedId: Integer read FSockedId write FSockedId;
  end;

Delphi-Quellcode:

procedure TMyThread.Execute;
begin
  // arbeite mit FSockedId
end;

Und so erstellst du dann den Thread...

Delphi-Quellcode:

  with TMyThread.Create(True) do
  begin
    FreeOnTerminate := True;
    SockedId := 1234;
    Resume;
  end;

[StanY]

Ich idiot, da hätte ich drauf kommen können \: - Danke.