Hallo erstmal!
So ich hab da ein Problem mit meiner Server Anwendung:
Im Prinzip funktioniert der Server so, dass wenn ein Client sich Verbindet er in eine Clientliste aufgenommen wird. Dann bleiben die Clients erstmal in einer Wartestellung. So wenn man dann in der Serveranwendung einen entsprechenden verbundenen Client auswählt, wird an den ein "SEND" gesendet, worauf hin der mittels WriteStream() Bilder in einem bestimmten Intervall überträgt. (Also der client macht intern einen Schreenshot packt den in einen Filestream und schickt den mit WriteStream() los, dann macht er wieder einen Screenshot....). Der Server erzeugt für jeden Client ein Form in dem die Bilder, sofern erwünscht angezeigt werden.
So nun möchte ich, das wenn der Client abstürtzt oder sich trennt oder so, er aus der Liste entfernt wird und der Server das Fenster freigibt.Eigentlich hab ich das alles auch soweit fertig nur hab ich das Problem, das wenn ein Client disconnected die Routine ONDisconnect gar nicht immer ausgeführt wird, weil der Server noch in der OnExecute Routine auf irgendetwas wartet.
Delphi-Quellcode:
procedure TFserver.IdTCPServerExecute(AThread: TIdPeerThread);
var
fs: TFileStream;
SizeOfIncomingStream: integer;
J:TJpegimage;
Client:TClients;
begin
//Client laden
Client:=Pointer(Athread.Data);
//DatenStrom aus einer Datei erzeugen
fs := TFileStream.Create(Client.DNS+'.jpeg', fmCreate or fmShareExclusive);
with AThread.Connection do
if Connected then
try
begin
SizeOfIncomingStream := ReadInteger; //Größe des Streams empfangen
ReadStream(fs, SizeOfIncomingStream); //und übergeben
end;
finally
fs.Free;
//Jpegbild erzeugen
J:=TJpegimage.Create;
//WEnn das Tempfile existiert
if Fileexists(Client.DNS+'.jpeg') then
begin
//Wird es geladen und auf dem entsprechenden Form
//angezeigt
J.LoadFromFile(Client.DNS+'.jpeg');
Client.Form.giveimage(J); //Bild anzeigen
end;
end;
end;
end;
procedure TFserver.IdTCPServerDisconnect(AThread: TIdPeerThread);
var i:integer;
Client:TClients;
begin
//Client laden
Client:=Pointer(Athread.Data);
// Client informationen löschen
for i:=0 to Clients.Count-1 do
if TClients(Clients.Items[i]).DNS=Client.DNS then
begin
//Falls ein anzeige Fenster geöffnet ist es schließen
if TClients(Clients.Items[i]).Form.IMonitor<>nil then
begin
//Form Schliessen und freigeben
TClients(Clients.Items[i]).Form.Close;
TClients(Clients.Items[i]).Form.Release;
end;
end;
//Aus der Liste löschen
Clients.Delete(Client.ListLink);
Client.Free;
Athread.Data:=nil;
end;
Wenn ich den den Server beende:
Delphi-Quellcode:
procedure TFserver.FormClose(Sender: TObject; var Action: TCloseAction);
var List:Tlist;
i:integer;
begin
List:=idTCPServer.Threads.LockList;
//an Alle verbundenen Clients disconnect Befehl senden
for i:=0 to List.Count-1 do
begin
TidPeerThread(List.Items[i]).Stop;
TidPeerThread(List.Items[i]).Connection.Disconnect;
end;
//Client liste freigeben
Clientlist.Free;
idTCPServer.Threads.UnlockList;
end;
Ich bekomme beim beenden jedesmal die Fehlermeldung "Thread Timeout"
ich weiß nicht ob klar geworden ist wo meine Probleme liegen, vielleicht sieht irgendjemand ja einen offentlsichtlichen Fehler oder so...
Gruß
Pascal
Zitat
Baum-Darstellung
