Entwickler-Ecke

Internet / Netzwerk - Fehlermeldungen


waldmeister - Do 26.09.02 14:04
Titel: Fehlermeldungen
ich habe ein 2 einfache Programme fürs netzwerk geschrieben, um zu gucken wie das mit dem text senden so geht. ich bekomme aber erst beim Serverprogramm und dann beim client eine fehlermeldung. die beim client resultiert aus dem fehler beim server, soweit bin ich schonmal, aber ich weiß nicht warum der fehler beim server auftritt.

Server-Fehlermeldung: External exception C000001D
Client-Fehlermeldung: Asynchronous socket error 10061 (ich vermute dass die meldung kommt weil der server nicht mehr reagiert)

Server-Quelltext:

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  memo1.lines.Add('client connected'); 
  serversocket1.Socket.SendText('erfolgreich connected');
  end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  memo1.Lines.add(socket.ReceiveText);
  end;
end.


Client-Quelltext:

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  memo1.Lines.add('habe connected');
  clientsocket1.Socket.SendText('hallo'); 
  end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  memo1.Lines.add(socket.ReceiveText);
  end;
end.

Wäre gut wenn mir da jemand helfen könnte!

(26.09.02 15:17 Tino) Code-Tags hinzugefügt.


O'rallY - Do 26.09.02 15:39

waldmeister hat folgendes geschrieben:
ich vermute dass die meldung kommt weil der server nicht mehr reagiert

Das hast du richtig vermuted. Wenn der Server nicht zu erreichen ist erscheint diese Fehlermeldung.

Probier das mal:

Quelltext
1:
2:
3:
...
   ServerSocket1.Socket.Connections[0].SendText('erfolgreich connected');
...


Da sich mehrere Clients bei einem Server anmelden können, kann man diese mit Connections[index] ansprechen. Dies ist auch notwendig, wenn sich nur ein Client angemeldet hat.


waldmeister - Do 26.09.02 15:48

danke. das hat mir echt geholfen. mein programm klappt jetzt und wie ich finde is das sogar ganz net geworden. ich werde es sobald wie möglich zum download bereit stellen.


waldmeister - Do 26.09.02 15:57

http://mitglied.lycos.de/waldmeister32/delphi/chat.zip
hier kann man den chat finden. is ne zip datei und darin ist die server un die client datei enthalten. ich hab das programm auf englisch gemacht, da ich denke dass das jeder versteht.


Tino - Do 26.09.02 17:56

Hallo,

Du kannst Dein Programm auch in den extra dafür eingerichteten Sparten vorstellen: Entweder in der Freeware Projekte oder Open Source Projekte!

Gruß
TINO


Albanac - Do 03.10.02 16:08

mein Virenprogramm blockiert Zugriff wegen nem Trojaner...