Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi fehler mit dem server (https://www.delphipraxis.net/120968-fehler-mit-dem-server.html)

kphaber321 19. Sep 2008 18:37


fehler mit dem server
 
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 19. Sep 2008 18:57

Re: fehler mit dem server
 
????

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 19. Sep 2008 19:19

Re: fehler mit dem server
 
Zitat:

Zitat von jokerfacehro
1. sleep(5000); sind 5sekunden

naja das is ja erstmal egal...

Zitat:

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:

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 19. Sep 2008 19:26

Re: fehler mit dem server
 
Starte dein Programm mal nicht aus der IDE.

kphaber321 19. Sep 2008 19:28

Re: fehler mit dem server
 
das ändert nichts...
die normale fehlermeldung bekomme ich immernoch :(

Luckie 19. Sep 2008 19:37

Re: fehler mit dem server
 
Zitat:

Zitat von kphaber321
das ändert nichts...
die normale fehlermeldung bekomme ich immernoch :(

Was für eine normale Fehlermeldung?

kphaber321 19. Sep 2008 19:45

Re: fehler mit dem server
 
Zitat:

Asynchroner Socket-Fehler 10051

SirThornberry 19. Sep 2008 21:30

Re: fehler mit dem server
 
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 19. Sep 2008 21:40

Re: fehler mit dem server
 
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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:40 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz