Delphi-Quellcode:
procedure TForm1.btn_connect_schoolClick(Sender: TObject);
begin
try
client.Connect;
if not client.Connected
then
label1.Caption := '
Verbindung fehlgeschlagen'
else
label1.Caption := '
Verbindung aufgebaut';
btn_connect_school.Enabled := False;
btn_disconnect_school.Enabled := true;
btn_verbinden.Enabled := True;
btn_trennen.Enabled := true;
except
on E:
Exception do
begin
ShowMessage('
Fehler');
label1.Caption := '
Der schülerclient ist nicht gestartet';
end;
end;
end;
So ist das bei mir, aber immer noch kommt dieses meldung ->
Delphi-Quellcode:
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt pro_lehrer.exe ist eine
Exception der Klasse EIdSocketError mit der Meldung '
Socket Error # 10061
Connection refused.' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------
Aber im release funktioniert es richtig. Danke