Also ich habe das jetzt mal in das OnClose-Ereignis eingebettet:
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var ini:TiniFile;
i: Integer;
begin
ini:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'telnet.cfg');
try
ini.WriteString('Connection','HostIP',EditHost.Text);
ini.WriteString('Connection','Username',EditUser.Text);
ini.WriteString('Connection','Password',EditPass.Text);
ini.WriteString('Connection','Port',EditPort.Text);
finally
ini.Free;
end;
if Telnet1.Connected then
begin
Telnet1.WriteLn('QUIT :');
Memo1.Lines.Add('*** QUITING');
while Telnet1.Connected do
for i := 0 to 10000 do
Application.ProcessMessages;
end;
end;
folgendes passiert:
erst verbinde ich zum router (lass mir auch ne bestätigung ausgeben in dem memo).
dann klick ich auf schließen (X) --> In dem Memo erscheint dein Text "*** QUITING" aber das programm schließt sich nicht. (auch keine fehlermeldung) ich kann dann noch ein paar mal draufklicken, ohne das was passiert. nach dem 4ten klick schließt es sich, ohne eine fehlermerldung... habs mehrmals probiert, immer nach dem vierten mal schließt es. habs auch mal n weilchen stehen lassen, hätt ja sein können, dass das disconnecten etwas dauert.
woran könnte das denn liegen?
dopeline