Funktion wie Application.Processmessages für DLL ohne Forms

[the-networker]

Ich habe eine DLL geschrieben in der ich eine Repeat-Until Schleife benutze.
Mit VCL gibt es die Möglichkeit mit Application.Processmessages auch während
der Schleifendurchläufe ein "Einfrieren" oder langsames Arbeiten des Progammes
bzw. der DLL zu verhindern.
Gibt es eine Möglichkeit dies auch ohne Application.Processmessages und Forms zu realisieren?

Vielen Dank für Eure Mühe

Uwe Lange

[franktron]

Wenn nichts zu sehen ist (VCL) was hat das dann für einen sinn :gruebel:

[Ultimator]

Er möchte vermutlich diese Funktion/Prozedur in seinem Programm aufrufen; wenn diese aber dann die Form einfriert ist das ungünstig. Deswegen sucht er nach einer Möglichkeit, ProcesMessages in die DLL einzubinden.

So hab ichs zumindest verstanden. :stupid:

[Jörn]

Ich kenn mich mit DLLs nicht gut aus, aber könnte man nicht die Prozedur in einen eigenen Thread auslagern?

[XHelp]

Versuch mal mit getMessage(), z.B.:

Delphi-Quellcode:

var
 m:tagMSG;
begin
while getMessage(m,0,0,0) do begin
  if m.message=WM_CLOSE then Break;
  DispatchMessage(m);
end;
end;

[the-networker]

Ich habe jetzt folgende Funktion bei Lucky-Online gefunden:

Delphi-Quellcode:

  Procedure : ProcessMessages
  Author    : Nico bendlin
  Date      : 2003-02-08
  Purpose   : Replacement for Application.ProcessMessages
  Arguments : hWnd: DWORD
  Result    : None
-----------------------------------------------------------------------------}
procedure ProcessMessages(hWnd: DWORD);
var
  Msg: TMsg;
begin
  while PeekMessage(Msg, hWnd, 0, 0, PM_REMOVE) do
    begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
end;

aber ich weis nicht welchen Handle(hWnd) von der Procedure erwartet wird


Gruß

Uwe Lange

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]

[Luckie]

Also die Funktionalität ist ja folgende. Application.Processmessages und Nicos Routine machen ja folgendes, sie veranlassen das Programm dazu in die Messageloop des Fensters zu gehen und zu kucken, ob Nachrichten anliegen, wenn ja werden diese abgearbeitet. Nur hat eine DLL keine Messageloop und bekommt von Windows auch keine Nachrichtenschlange zugewiesen.

Ich würde das der einfachhalthalber einfach in einem Thread auslagern oder in der Schleife eine Nachricht an das Fenster schicken und dort Application.Processmessages aufrufen. Dies muss aber mit SendMessage passieren, da postmessage sofort zurückkehrt.

[the-networker]

Hallo Lucky,

ich habe das Problem wie folgt gelöst:

ich benutze in der DLL Processmessages von NicoDe

Delphi-Quellcode:

repeat
Processmessages(getmodulehandle(nil));
DoIrgendwas;
until ....

alle Processe die vorher nur schleppend abgearbeitet wurden,
arbeiten jetzt zufriedenstellend.

Gruß
Uwe Lange

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]

[sakura]

Hi Uwe,

ich bitte Dich in Zukunft Deinen Code selbständig in [Delphi]-Tags zu packen. Wie das geht findest Du im Kodex (unten links ist ein Link)

...:cat:...

[SirThornberry]

man könnte das auch noch über ne callback funktion lösen die von der dll aus aufgerufen wird. Und in der callbackfunktion kann man dann ja das Application.ProcessMessages ausführen