Threadlogik Problem

[stOrM]

Hm der code iss ja hier oben im Thread, der worker ist vom aufbau her identisch zum watcher...
Also alles in einem thread? Hmm ich hab doch 2 Threads genommen, weil ein Thread ja nicht beendet werden darf, also ned automatisch nur per Userwunsch, der andere ja, der soll nach einmaliger Ausführung beenden, ggf. wieder selber neustarten, wenn der Watcher es sagt.

[thkerkmann]

Naja, kommt darauf an, was der Workerthread sonst noch so zu tun hat. Ich war jetzt davon ausgegangen, dass er nur diese eine Message sendet - so wie du es beschrieben hast.
Der Hauptthread könnte das ja locker machen anstatt einen Workerthread zu starten.

Gruss

[alias5000]

Vorschlag, ein Thread; Pseudocode:

Delphi-Quellcode:

TmeinThread = class(TThread)
...
procedure Execute; override;
...
end;

implementation

Procedure TmeinThread.Execute;
var Handle: cardinal;
b: boolean;
begin
b := false;
repeat
  Handle := FindeDeinFenster;
  if Handle <> 0 then begin
    if not b then begin
      DialogSchließenMessageSenden;
      b := true;
    end;
  end else if (Handle = 0) and b then
    b := false;
  end;
until self.Terminated
end;

Das wäre mein Vorschlag, kombiniert mit der Ein-Thread-Idee

Gruß
alias5000

[stOrM]

Hi Alias, ich werds grad mal testen ob das so funktioniert, wie es sollte!

Erstmal herzlichen Dank!
s!

Ok, soweit schon mal Ok, Fenster wird gefunden, Nachricht wird versand. Aber, folgendes Problem was ich nun hab...
Thread läuft (machs nun mit einem Thread), das Fenster wird aufgerufen, Nachricht wurde versand, der User schliesst das Fenster.

Der User öffnet das Fenster erneut, Nachricht wird nicht erneut versand. :-(
Das scheint das Logikproblem bei mir zu sein, wie nun erneut den Thread nach dem Fenster suchen lassen und wenn gefunden Nachricht senden, ohne den Thread vorher zu killen? Sowas wie ein Reset Ereignis, nach dem versenden der Nachricht.

Ich poste mal den Code am besten, eventuell fällt sofort mein Fehler auf?

Delphi-Quellcode:

constructor TIEWatcherThread.Create;
begin
  inherited Create(True);
  freeOnTerminate := True;
  Priority := tpLowest;
end;

destructor TIEWatcherThread.Destroy;
begin
  inherited Destroy;
end;

procedure TIEWatcherThread.Execute;
var
  wndMain, wndChild: HWND;
begin
  b := False;
  while not (Terminated = True) do
  begin
    repeat
      wndMain := FindWindow('IEFrame', nil);
      if wndMain <> 0 then
      begin
        wndMain  := FindWindow('#32770', 'Save Picture');
        wndChild := FindWindowEx(wndMain, 0, 'ComboBoxEx32', nil);
        wndChild := FindWindowEx(wndChild, 0, 'ComboBox', nil);
        wndChild := FindWindowEx(wndChild, 0, 'Edit', nil);
        Handle   := wndChild;
        if Handle <> 0 then
        begin
          if not b then
          begin
            GenerateRndGuidFilename;
            b := True;
          end;
        end
        else
        if (Handle = 0) and b then
          b := False;
      end;
    until Self.Terminated;
  end;
end;

procedure TIEWatcherThread.GenerateRndGuidFilename;
var
  wndMain, wndChild: HWND;
  FPath, FFilename: array [0..255] of char;
  G: TGUID;
  S, FDelStr, FExt: string;
begin
  MessageSend := False;
  repeat
    if Handle <> 0 then
    begin
      wndMain := FindWindow('IEFrame', nil);
      if wndMain > 0 then
      begin
        wndMain  := FindWindow('#32770', 'Save Picture');
        wndChild := FindWindowEx(wndMain, 0, 'ComboBoxEx32', nil);
        wndChild := FindWindowEx(wndChild, 0, 'ComboBox', nil);
        wndChild := FindWindowEx(wndChild, 0, 'Edit', nil);
        if not MessageSend then
        begin
          coCreateGuid(G);
          s := GuidToString(G);
          s := StringReplace(s, '-', '', [rfReplaceAll]);
          s := StringReplace(s, '{', '', [rfReplaceAll]);
          s := StringReplace(s, '}', '', [rfReplaceAll]);

          // get filename
          SendMessage(wndChild, WM_GETTEXT,
            SizeOf(FFilename), integer(@FFilename));

          // extract extension
          FExt := ExtractFileExt(FFilename);
          s    := s + FExt;

          // clear filename
          FDelStr := '';
          StrPLCopy(@FFilename, FDelStr, SizeOf(FFilename));
          SendMessage(wndChild, WM_SETTEXT,
            SizeOf(FFilename), integer(@FFilename));

          // send random guid as filename + extension
          StrPLCopy(@FFilename, s, SizeOf(FFilename));
          SendMessage(wndChild, WM_SETTEXT,
            SizeOf(FFilename), integer(@FFilename));

          MessageSend := True;
          b := False;
        end;
      end
      else
      if (Handle = 0) and MessageSend then
        MessageSend := False;
    end;
  until Self.Terminated;
end;

Pps. gibt es ggf. noch eine Möglichkeit zu verhindern, das der Thread 100% CPU schluckt?

[alias5000]

Zitat:

Zitat von stOrM

Delphi-Quellcode:

procedure TIEWatcherThread.Execute;
var
  wndMain, wndChild: HWND;
begin
  b := False;
  while not (Terminated = True) do
  begin
    repeat
      wndMain := FindWindow('IEFrame', nil);
      if wndMain <> 0 then
      begin
        wndMain  := FindWindow('#32770', 'Save Picture');
        wndChild := FindWindowEx(wndMain, 0, 'ComboBoxEx32', nil);
        wndChild := FindWindowEx(wndChild, 0, 'ComboBox', nil);
        wndChild := FindWindowEx(wndChild, 0, 'Edit', nil);
        Handle   := wndChild; //kann man abkürzen, Handle gleich ben drüber zuweisen
        if Handle <> 0 then
        begin
          if not b then
          begin
            GenerateRndGuidFilename;
            b := True;
          end;
        end
        else
        if (Handle = 0) and b then //<---!!
          b := False;
      end;
    until Self.Terminated;
  end;
end;

Debugge an der markierten Stelle mal bitte durch, ob der Fall an der gewünschten Stelle eintritt. Es kann ja auch sein, dass dein Dialog nciht freigegeben, sondern nur versteckt wird. Dann wird das Handle ja nicht 0; das wäre ja theoretisch auch noch eine Möglichkeit.

Zitat:

Zitat von stOrM

Pps. gibt es ggf. noch eine Möglichkeit zu verhindern, das der Thread 100% CPU schluckt?

Delphi-Quellcode:

Sleep

ist dein Helfer ;)

[thkerkmann]

Hi,

mit der Message WM_SETTEXT wird das Fenster doch noch gar nicht geschlossen.

Verstehe ich das richtig:
Du setzt jetzt nur den Dateinamen ein, und erwartest jetzt, dass der Benutzer das Fenster schliesst ?

Und wenn das so ist, dann solltest Du tatsächlich ein sleep(500) einbauen.

Und.

Wieso baust Du in diese Prozedur die gleiche Schleife ein wie im Hauptzweig der Execute ?
Ist das nicht doppelt gemoppelt ?
Und auch hier würde ich mindestens ein sleep(500) einbauen, sonst macht dem Benutzer das Arbeiten keinen Spass mehr.

Gruss

[stOrM]

Hmm ich bin jetzt einen anderen Weg als über die Threads gegangen klingt vielleicht wie: "Mit Kanonen auf Spatzen schiessen"
Aber ich hab dafür jetzt einen Hook geschrieben, das klappt wunderbar und ohne irgendwelche Probleme, wenn der User auf "OK" im Save Dialog klickt wird die GUID als Dateiname generiert und das File gespeichert und das geht nun ohne weiteres nicht wie im Thread mit endlos Generierung der GUID, wobei mit das Problem trotzdem mal interssiert hätte, wieso und warum :-)

Trotzdem herzlichen Dank allen die so fleissig am helfen waren
s!