Wykonuje kod - Muli :/ (Aplikacja)

[lasek_99]

Mam aplikacje dzięki której wrzuce plik na FTP. Ale gdy już wrzucam plik to aplikacja nie reaguje do póki nie wrzuci pliku. Inne Programy do uploadu na FTP normalnie się "zachowują". Tzn wszytko jest ok do póki nie zacznie uploadowac na serwer FTP, bo wtedy muli tzn nie da się z aplikacji korzystac do poki nie zakończy Upac :/ Jest na to rada? Zeby uploadowalo ale nie mulilo?

 

[I3L4D3]

Tak... Uploadowanie realizować za pomocą innego wątku, albo ukrytej formy, wtedy forma główna się nie zamuli... A jeżeli masz w programie jakąś pętlę... (Długą) to dopisz na początku pętli:

Application.ProcessMessages;   // czy jakoś tak;]

 

[lasek_99]

Miałem tak zrobione, ale i tak muli :/

 

[kanar123]

Musiż skorzystać z wątków

 

[lasek_99]

Wiem, już sobie poradziłem za pomocą I3l4d3

 

[kanar123]

Ukryta forma czy komenda??

 

[lasek_99]

Eeee... Sądząc po kodzie to komenda. Jak próbowałem z 2 formami to i tak muliło

 

[djmentos]

a ja myśle ze ukryta forma... poczytaj o wątkach i skończ.

 

[I3L4D3]

Witam...

@UP
Niestety... Źle myślisz... Jest to wątek.


Myślę że można temaciq zamknąć... Problem - rozwiązany.

 

[djmentos]

Ty sie chyba nie słyszysz xD Application.ProcessMessages to nie jest wątek. ;d

function TApplication.ProcessMessage(var Msg: TMsg): Boolean;
var
  Handled: Boolean;
begin
  Result := False;
  if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
  begin
    Result := True;
    if Msg.Message <> WM_QUIT then
    begin
      Handled := False;
      if Assigned(FOnMessage) then FOnMessage(Msg, Handled);
      if not IsHintMsg(Msg) and not Handled and not IsMDIMsg(Msg) and
        not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then
      begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
      end;
    end
    else
      FTerminate := True;
  end;
end;

procedure TApplication.ProcessMessages;
var
  Msg: TMsg;
begin
  while ProcessMessage(Msg) do {loop};
end;

 

[I3L4D3]

Nie mylę się!

Nie użyliśmy tej procedurki (mowa o Application.ProcessMessages) bo ona nic nie pomagała.
Utwożyliśmy drugi wątek (Unit2 - dokładnie)

 

[adikx]

Unit to chyba moduł a nie wątek z tego co pamiętam.

 

[I3L4D3]

@UP
Ty chyba nie wiesz co piszesz...

UNIT2 - tak nazwany został nowy wątek. Wątki są nazywane standardowo jako UNIT i dodawany do nich numerek...


A moduły masz tutaj:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;