Indy - Client lässt Server+andereClients abstürzen.

[corgan]

also delphi exceptions werden nicht zur anzeige gebracht.
mein problem ist ja, das der server stehen bleibt, sobald ein client eine fehlermeldung bringt.
ob das jetzt ne delphi exception, oder ne normale fehlermeldung ist, spielt da ja eigentlich keine rolle.

DENN, nehmen wir mal an, ich würde eine Art ICQ Programmieren und ein Client der zu meinem Server verbunden ist, debugt das Ding auf einmal. Dann darf ja logischerweise nicht mein Server stehen bleiben....
Im Moment bleibt nicht nur der Server stehen, sondern nimmer noch alle anderen Clients mit.

Ich versuche grade zu verstehen, an welcher Stelle der Server stehen bleibt.
So wie ich das mit dem Thread verstanden habe, wird der bei excecute nur einmal abgearbeitet und wartet dann auf den nächsten excecute. Sollte also keine Probleme machen.

Aber der Server schreibt ja auch Broadcast an alle Clients, die er in seiner Server.Thread.Locklist hat.

Delphi-Quellcode:

procedure TMainFrm._send(command,msg,receiver: string);
var  CommBlock : TCommBlock;
  Count: Integer;
List : TList;
begin
  if (MainFrm.Server.Active = true) then
    begin
    try
      CommBlock.Command      :=  command ;         // assign the data
      CommBlock.MyUserName   := 'hauptsystem';
      CommBlock.Msg          := msg;
      CommBlock.ReceiverName := receiver;
List := Server.Threads.LockList;
  try
    for Count := 0 to List.Count -1 do
    try
      TIdPeerThread(List.Items[Count]).Connection.WriteBuffer (CommBlock, SizeOf (CommBlock), true);
    except
      TIdPeerThread(List.Items[Count]).Stop;
    end;
  finally
    Server.Threads.UnlockList;
  end;
       except
       on E: Exception do  fehlermeldung('_send_to_hs:'+ E.Message + '( to:' + receiver + 'cmd:' + command + ' msg:'+ msg + ')');
  end;

Da der Abgestürtzte Client da ja noch drin steht, der Server aber nicht auf den schreiben kann, macht er schlapp ??
Nur wie prüfe ich jetzt, ob der Client noch lebt ??

gruss Corgan