das stimmt..... nur ich will wenn der server verreckt, das sofort alle clients gesperrt werden.... (tun sie auch wenn der server normal beendet wird)....
und das zeite... ich hab es so gemacht, das beim onerror ereignis ein timer anspringt, der nach 60 sekunden wiederverbinden will.. nur das tut der nur wenns halt normal beendet wurde und wenn dr prozess gekillt wurde und der server neu gestartet wird findet er ihn nich und der timer bleibt stehen...
hier mein onerror erignis:
Delphi-Quellcode:
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
Errorcode := 0;
scrollbox1.Color := clred;
label12.Visible := true;
label13.Visible := true;
edit1.Visible := false;
button4.Visible := false;
timer2.Enabled := true;
label15.Visible := true;
label16.Visible := true;
label17.Visible := true;
label19.Visible := true;
label20.Visible := false;
//style
form1.Top := 0;
form1.Left := 0;
form1.Height := screen.height;
form1.Width := screen.Width;
form1.BorderStyle := bsnone;
form1.FormStyle := fsstayontop;
form1.BringToFront;
timer1.Enabled := false;
end;