IdIrc10 Prog soll sich selbst beenden

[TheGame1492]

Hoi,

ich versuche über einen Irc-Cmd mein Prog zu beenden, dieser ruft folgende Procedure auf:

Code:

procedure TForm1.KillApp;
begin
  ConnectionTimer.Enabled := false;
  irc1.Disconnect;
  irc1.Free;
  ssl1.Free;
  Application.Terminate;
  //halt;

end;

Wenn ich einen Button auf der Form erstelle und diese Procedure aufrufe, funzt alles wie es soll.
Aber wenn ich via IRC-Cmd den Befehl geb, dann Disconnected er zwar, aber das Programm läuft weiter.

Woran liegt das????

[Klaus01]

Hallo,

kanst Du nicht im onClose Ereignis (der Form1) Deine IRC connection freigeben.

Und dann anstelle von Application.Terminate einfach close verwenden.

Grüße
Klaus

[TheGame1492]

Schon probiert geht alles nicht

[Klaus01]

.. wie steht es mit debuggen...

Springt die Application denn in das onClose Ereignis?
Laufen eventuell noch Threads die das Beenden der Application verhindern (könnten)?

Grüße
Klaus

[Bummi]

Schick Deiner Anwendung per PostMessage die Anforderung zum Beenden, damit bist Du aus der Threadprozedur raus wenn die Anwendung abgeräumt wird.

Delphi-Quellcode:

const
  KillMessage = WM_USER + 200;
.......

    procedure Kill(var Msg: TMessage); message KillMessage;
......

Procedure TForm1.Killapp;
begin
 PostMessage(Handle,KillMessage,0,0) ;
end;


procedure TForm1.Kill(var Msg: TMessage);
begin
  ConnectionTimer.Enabled := false;
  irc1.Disconnect;
  irc1.Free;
  ssl1.Free;
  Application.Terminate;
end;

[TheGame1492]

Denk euch, die Bummi Methode funzt

[DeddyH]

Aber komm nicht auf die Idee, PostMessage in SendMessage zu ändern, dann isses wieder Essig