Button bleibt gedrückt während Funktion durchläuft

[Yheeky]

Hi,

ich habe eine Art Login-Form bei mir in meinem Projekt. Wenn ich den Login-Button drücke, verbindet sich das Programm über die idHTTP Komponente der Indy-Tools mit einem Server und überprüft die Login-Daten. Dies dauert manchmal ein bisschen und ich habe den unschönen Nebeneffekt, dass der Login-Button während der gesamten Überprüfung gedrückt bleibt. Wie kann ich das verhindert? Ich habe bereits ein Application.ProcessMessages; vorangestellt, aber das Problem konnte ich damit leider nicht beheben.

Ich hoffe einer von euch hat einen guten Tipp für mich.

[Luckie]

Lager das Verbinden in einen Thread aus.

[Yheeky]

Was ist aber, wenn ich auf das Verbinden reagieren muss? Sprich:

Delphi-Quellcode:

procedure TLoginThread.Execute;
begin
case LoginErgebnis of
    log_Erfolg:
     begin
     // Funktionen
     end;
    
   log_Misserfolg: ShowMessage('Login fehlgeschlagen!');
end;
end;

Login-Button:

Delphi-Quellcode:

procedure TfrmLogin.btnLoginClick(Sender: TObject);
var
  loginThread : TLoginThread;
begin
  loginThread := TLoginThread.Create(True);
  loginThread.Execute;
end;

Denn trotz Auslagerung kommt es nicht zum gewünschten Ergebnis.

[Bernhard Geyer]

Login-Button:

Delphi-Quellcode:

procedure TfrmLogin.btnLoginClick(Sender: TObject);
var
  loginThread : TLoginThread;
begin
  loginThread := TLoginThread.Create(True);
  loginThread.Execute;
end;

Denn trotz Auslagerung kommt es nicht zum gewünschten Ergebnis.[/quote]

Du verwendest ja die Thread-Klasse nicht dazu die Funktion in einem eigenen Thread auszuführen. erzeuge mal die Tread-Klasse mit Parameter Suspended=False im Konstruktor und lies dir mal die Onlinehilfe zu TThread.

[toms]

Zitat:

Zitat von Yheeky

dass der Login-Button während der gesamten Überprüfung gedrückt bleibt.

Quick & dirty

Delphi-Quellcode:

SendMessage(Button1.Handle, BM_SETSTATE, 0, 0);

(Wobei natürlich der Ursache auf den Grund gegangen werden sollte...)

[Yheeky]

Ich hab den Konstruktur nun mit False aufgerufen, aber da bekomme ich eine Fehlermeldung von der idHTTP Komponente: Socket Error.
Onlinehilfe habe ich mir durchgelesen, ich würde aber gerne einen objektorientieren Thread benutzen.
Darf ich nicht einfach Funktionen in einem Thread aufrufen? Wieso kommt es in meinem Fall zum Socket Error, wenn es ansonsten (auch wenn der Button gedrückt bleibt) funktioniert?

[Bernhard Geyer]

Zitat:

Zitat von Yheeky

Darf ich nicht einfach Funktionen in einem Thread aufrufen?

Nicht alle Klassen sind Thread-Kompatible da die VCL nicht Threadesave ist bzw. Win32-API ThreadAffinität hat.

Zitat:

Zitat von Yheeky

Wieso kommt es in meinem Fall zum Socket Error, wenn es ansonsten (auch wenn der Button gedrückt bleibt) funktioniert?

Da wären Indy-Anwender gefragt ob man die Indy so einfach in Threads verwenden kann.

[mschaefer]

Disable den Button vor dem Application.ProcessMessage
Das löst ein Neuzeichnen des Buttons aus.
Nach dem Funktionsaufruf kannst Du ihn dann wieder enablen.

Grüße // Martin


PS: Auch :wink:

[Yheeky]

Zitat:

Zitat von mschaefer

Disable den Button vor dem Application.ProcessMessage
Das löst ein Neuzeichnen des Buttons aus.
Nach dem Funktionsaufruf kannst Du ihn dann wieder enablen.

Grüße // Martin

Das ist im Grunde ne gute Idee! ;-)
Danke! So werde ich´s machen.