Hallo!
Ich habe mir ein Chatprogramm gebastelt.
Es besteht einmal aus einem Server und aus einem Client.
Das Programm klappt auch wunderbar (im lokalen Netz), doch nach unsbestimmter Zeit stürzt der Server einfach ab.
Bei meinem Laptop (Vista) steht dann: "*******.exe funktioniert nicht mehr - Es wird nach einer Lösung für das Problem gesucht".
Wenn der Server minimiert ist und ein Ereignis stattfindet, dann wird die Form2 "eingeblendet" (eigene Funktion, die die Form von transparent immer undurchsichtiger werden lässt) und auf Form2 wird die Info angezeigt. Nach dem einblenden wird ein Timer aktiviert, der nach 3 sekunden die Funktion "ausblenden" aufruft. Kann der Fehler auftreten, wenn während des einblendens (dauert ca. 1 Sekunde) ein weiteres Ereignis ausgelöst wird?
Hier ist das, was ich meine:
Delphi-Quellcode:
procedure TForm1.SSClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
//Info-Form
Form2.Info.Caption:=ni+' hat die Verbindung getrennt'; //Info ist ein Label
Blenden.enabled:=False; //Ein Timer, der das später wieder ausblenden soll
Einblenden(Form2,True); //Form wird eingeblendet (Dauert ca. 1 Sekunde)
Blenden.enabled:=True;
end;
Viele Grüße!