Entwickler-Ecke

Internet / Netzwerk - Exception Error doch ich weiß nicht warum


slax - Fr 19.01.07 14:06
Titel: Exception Error doch ich weiß nicht warum
Hallo zusammen,

ich habe ein Ecaption Error und zwar nur in folgender Zeile :


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
procedure TForm1.BtnaufgabeClick(Sender: TObject);
begin
if (ServerSocket1.Active) then // Server online ?
    ServerSocket1.Socket.SendText(Input.Text) // Text senden
  else
    Log.Lines.Add('Fehler Server offline'); // Meldung
end;



Nur leider weiß ich nicht wieso dies entsteht und wie man es unterbinden kann .

Könnt Ihr mir eventuell helfen ?

Gruss

Moderiert von user profile iconGausi: Titel entcapsed.


chrisw - Fr 19.01.07 14:14

Guck Dir mal try.. except bzw try..finally an. (Thema Exception Handling)


Narses - Fr 19.01.07 14:46

Moin!

user profile iconslax hat folgendes geschrieben:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
procedure TForm1.BtnaufgabeClick(Sender: TObject);
begin
if (ServerSocket1.Active) then // Server online ?
    ServerSocket1.Socket.SendText(Input.Text) // Text senden
  else
    Log.Lines.Add('Fehler Server offline'); // Meldung
end;

Nur leider weiß ich nicht wieso dies entsteht und wie man es unterbinden kann .

Klassischer Fehler: du kannst nicht über den Listening Socket senden, du musst an die aktiven Verbindungen senden. Siehe FAQ-Beitrag [http://www.delphi-library.de/topic_die+Clients+von+TServerSocket+auseinanderhalten_47183.html]. ;)

cu
Narses