Ergebnis der Suchanfrage

• Forum: Netzwerke

  AW: Findcomponent TclientSocket.active := true setzen

   
    by Pet04, 6. Jul 2011
  von der logig ist mir das alles schon klar.
  ich weiß nur nicht wie ich es im quellcode umwandel.
  
  procedure TMainForm.Price_Info_ClientSocketA_Error(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  
  begin ....
  
  reconnect (Client der den Fehler verursacht hat ) ; ???
• Forum: Netzwerke

  AW: Findcomponent TclientSocket.active := true setzen

   
    by Pet04, 6. Jul 2011
  Ich habe ja mehrere clients, wenn einer einen error verursacht kommmt es zum onError Event.
  dann soll ja reconnectet werden.
  die Procedure im Timer soll dann prüfen, ob der Client.active ist wenn nicht active setzen.
  Also muß ich doch genau diesen client (der einen Fehler hat) vom Onerror Event zur Timer procedur übergeben.
  
  Und da habe ich mein problem wie ich das genau mache.
• Forum: Netzwerke

  AW: Findcomponent TclientSocket.active := true setzen

   
    by Pet04, 6. Jul 2011
  Das OnError event habe ich dekariert.
  wie übergebe ich nun die benötigten Parameter genau ?
  zur Procedue reconnect und procedure timer ?
• Forum: Netzwerke

  AW: Findcomponent TclientSocket.active := true setzen

   
    by Pet04, 5. Jul 2011
  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...
• Forum: Netzwerke

  Findcomponent TclientSocket.active := true setzen

   
    by Pet04, 5. Jul 2011
  Hallo zusammen,
  
  ich erstelle dynamisch bis zu 8 clientsockets
  
  .....
  For j := 0 To 4 do
  begin
  If (PreisLedCfg.IP_Ausfahrt <> '0.0.0.0') then
  begin
  try