Findcomponent TclientSocket.active := true setzen

[Pet04]

Die Verbindungen funktionieren ja wunderbar.

erst wenn ich z.B. von einem bestimmten client das Netzwerkkabe ziehe und bis zum Fehler (OnError) warte.
Und ich die Abrfage ob der Client = Aktiv ist.
wird der richtige client wohl nicht gefunden

If not (TClientsocket(FindComponent(Price_Info_ClientSock etE.Name)).active) then
//if not Price_Info_ClientSocketE.Active then
begin
Memo1.Lines.Add(Price_Info_ClientSocketE.Name +'<connection failed>');
TClientsocket(FindComponent(Price_Info_ClientSocke tE.Name)).Active := true;
//Price_Info_ClientSocketE.Active := true;
Reconnect;

[DeddyH]

Ich würde mir eine Zwischenvariable deklarieren, sonst greift man womöglich auf unterschiedliche Komponenten zu, wenn man mal etwas ändert.

Delphi-Quellcode:

var 
  Sock: TClientSocket;
begin
  Sock := FindComponent(SuchString) as TClientSocket;
  if Assigned(Sock) then
    If not (Sock.active) then
      begin
        Memo1.Lines.Add(Sock.Name +'<connection failed>');
        Sock.Active := true;
        Reconnect;
      end;
end;

[shmia]

Das Event OnError ist so deklariert:

Delphi-Quellcode:

TSocketErrorEvent = procedure (Sender: TObject; Socket: TCustomWinSocket;
    ErrorEvent: TErrorEvent; var ErrorCode: Integer) of object;

Also muss man die übergeben Parameter auch benützen und darf nicht selbst mit FindComponent() suchen.

[FredlFesl]

Was ihr immer mit dem FindComponent habt. Das ist totaler Müll. Pack die Sockets in eine Liste, fertig.

[DeddyH]

Zitat von FredlFesl:

Pack die Sockets in eine Liste, fertig.

Wo sie sich nach dem ersten Aufruf von FindComponent automatisch befindet

[Pet04]

Das OnError event habe ich dekariert.
wie übergebe ich nun die benötigten Parameter genau ?
zur Procedue reconnect und procedure timer ?

[DeddyH]

Wie, übergeben? Wenn ein Fehler auftritt, dann sollte der Socket ein Event feuern und die Parameter zur Auswertung bestücken. Ich habe zwar ewig nichts mehr mit den Socket-Kompos gemacht, aber anders sehe ich keinen Sinn in diesem Event.