fehler mit dem server

[kphaber321]

hallo!

ich habe ein kleines client-server programm gemacht...

problem ist: der server ist nicht immer on und wenn das so ist, soll der client einfach in 5 Minuten nochmal versuchen zu verbinden... er macht das allerdings nicht so und er unterdrückt durch das try except auch nicht die fehlermeldung!

kann mir jemand helfen?

hier der code:

Delphi-Quellcode:

while Initialized = False do
  begin
    try
      Initialized := True;
      Client := TClientSocket.Create( Form1 );
      Client.Host := '127.0.0.1';  // Localhost
      Client.Port := 1990;
      Client.OnRead := ClientRead;
      Client.Open;
    Except
      Initialized := False;
      sleep(5000);
    end;
  end;

ich bin für jede hilfe dankbar!!!

[jokerfacehro]

????

Delphi-Quellcode:

while Initialized = False do
  begin
    try
      Initialized := True;
      Client := TClientSocket.Create( Form1 );
      Client.Host := '127.0.0.1';  // Localhost
      Client.Port := 1990;
      Client.OnRead := ClientRead;
      Client.Open;
    Except
      Initialized := False;
      sleep(5000);
    end;
  end;

1. sleep(5000); sind 5sekunden

2. du musst deinen client auch ma im finally freigeben mit Client.Free

3. mach einfach ein onConnect event mit rein, dann weißte bescheid, obs geklappt hat

[kphaber321]

Zitat von jokerfacehro:

1. sleep(5000); sind 5sekunden

naja das is ja erstmal egal...

Zitat von jokerfacehro:

2. du musst deinen client auch ma im finally freigeben mit Client.Free

das muss ich doch machen, wenn ich die verbindung beenden will oder?

Zitat von jokerfacehro:

3. mach einfach ein onConnect event mit rein, dann weißte bescheid, obs geklappt hat

ändert immer noch nichts daran, dass er mir die fehlermeldung ausgibt...

[Luckie]

Starte dein Programm mal nicht aus der IDE.

[kphaber321]

das ändert nichts...
die normale fehlermeldung bekomme ich immernoch

[Luckie]

Zitat von kphaber321:

das ändert nichts...
die normale fehlermeldung bekomme ich immernoch

Was für eine normale Fehlermeldung?

[kphaber321]

Zitat:

Asynchroner Socket-Fehler 10051

[SirThornberry]

Zitat:

Asynchroner Socket-Fehler 10051

Wenn du ein Connect aufrufst ist nicht in der nächsten Zeile die Verbindung hergestellt oder eben nicht. Das ganze läuft asyncron ab. Entsprechend solltest du zwecks Fehlervermeidung das Event der Komponente nutzen.

[jokerfacehro]

Zitat:

das muss ich doch machen, wenn ich die verbindung beenden will oder?

guck ma du erstellst jedes mal beim durchlauf deiner while-schleife das objekt client erneut ohne es vorher wieder freizugeben.

mach doch einfach

Delphi-Quellcode:

Client := TClientSocket.Create( Form1 );

while Initialized = False do
  begin
    try
      Initialized := True;
      Client.Host := '127.0.0.1';  // Localhost
      Client.Port := 1990;
      Client.OnRead := ClientRead;
      Client.Open;
    Except
      Initialized := False;
      sleep(5000);
    end;
  end;