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