TThread -> Execute(SockId: Integer);

[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;