Das Problem ist einfach, dass wenn man auf verbinden klickt(ist der button, in dem steht der quellcode von oben) und der
server aber nicht on, das das Programm dann abstürzt mit dem Fehler ESocketError. ich möchte jetzt erreichen, dass
anstatt dem Error ne message kommt, das der Server nicht verfügbar ist und das Programm auch net mehr abstürzt.
Delphi-Quellcode:
if ClientSocket1.Socket.Connected = True
then begin
Verbinden1.Enabled:=False;
Verbinungbeenden1.Enabled:=True;
R_Chat.Clear;
end;
Das hab ich jetzt ins OnConnect geschrieben.