Fenster sichtbar machen

[Luckie]

Tja, und mittlerweile ist es durch das hausgemachte Problem mit der Screenshotkrücke wohl erheblich teurer geworden und funktioniert nicht zuverlässig. Und der Download mit einer HTTP-Komponente ist auch nicht viel komplexer. Eher wahrscheinlich das Gegenteil und zudem dürfte es zuverlässiger funktionieren.

Link: https://www.delphi-treff.de/tipps-tr...herunterladen/

Copy and paste und schon fast fertig. Inklusive Anpassung für den Kunden 2 oder 3 Stunden.

[a.def]

Du schreibst du holst alle paar Minuten ein Bild und dann wird ein Timer aktiviert.
Aber dieses "alle paar Minuten"... ist das nicht auch ein Timer? Oder noch schlimmer. Ein Sleep?

Mit "Ausgelastet" meinte ich keine 100% Auslastung sondern einfach nur, dass der Hauptthread blockiert wird.

[t.roller]

Mit XE7, WIN8.1 geht folgender Test-Code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure SetCursorToControl(Control: TControl);
var P: TPoint;
begin
  P.X := Control.Width div 2;
  P.Y := Control.Height div 2;
  P := Control.ClientToScreen(P);
  SetCursorPos(P.X, P.Y);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:= TRUE;
  Button1.Enabled:= FALSE;
  Self.WindowState:= wsMinimized;
end;

procedure TForm1.Timer1Timer(Sender: TObject); // interval:= 10000;
begin
  Timer1.Enabled:= FALSE;
  Button1.Enabled:= TRUE;

  Application.BringToFront; //Setzt das zuletzt aktive Fenster auf dem Desktop in den Vordergrund
  Self.WindowState:= wsNormal; // besser als: Application.Restore;

  SetCursorToControl(self);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 50, 50, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 50, 50, 0, 0);
end;

end.

Source + EXE hinzugefügt

[idefix2]

Zitat von a.def:

Du schreibst du holst alle paar Minuten ein Bild und dann wird ein Timer aktiviert.
Aber dieses "alle paar Minuten"... ist das nicht auch ein Timer? Oder noch schlimmer. Ein Sleep?

Mit "Ausgelastet" meinte ich keine 100% Auslastung sondern einfach nur, dass der Hauptthread blockiert wird.

Nein, ich habe geschrieben:

Zitat:

Alle Minuten wird ein neues Bild geholt und untersucht. Das wird über einen Timer aktiviert, in der Wartezeit, bis der Timer ausgelöst wird, passiert nichts.

Dass es nicht an einem blockierten Hauptthread liegt (was schon deshalb nicht sein kann, weil der in der Zeit NICHTS tut), ist auch daran zu erkennen, dass über einen Klick auf das Programmicon in der Taskleiste das Formular sofort sichtbar wird.

Zitat von EWeiss:

Zitat:

Wie mache ich aus einer normalen Form ein nicht minimierbares Fenster?

BorderStyle? bsDialog

Danke, ich denke, damit ist das Problem gelöst.

Zitat von t.roller:

Mit XE7, WIN8.1 geht folgender Test-Code:
...

Seltsam: Das EXE funktioniert, aber wenn ich den Code in mein Programm einbaue, funktioniert es nicht. Ich kann es mir zwar nicht so recht vorstellen, aber könnte es einen Unterschied ausmachen, ob das Programm sich selbst minimiert hat, wie in deinem Beispiel, ober ob das Programm manuell per Klick auf den Minimieren-Button durch den Programmbenutzer minimiert wurde?

Leider lässt sich dein Projekt mit meinem Delphi 2009 nicht kompilieren, ich bekomme die Fehlermeldung

Code:

[MSBuild Fehler] 0 ist ein ungültiger Wert für den DebugInformation-Parameter der DCC-Aufgabe. Der DebugInformation-Parameter gehört zum System.Boolean-Typ.

Funktioniert das Restore des Fensters in denem Beispielprogramm immer noch, wenn du in der Button1Click Routine die Zeile Self.WindowState:= wsMinimized; herausnimmst und statt dessen nach dem Klick auf den Button das Fenster manuell minimierst?

[t.roller]

Zitat von idefix2:

Funktioniert das Restore des Fensters in denem Beispielprogramm immer noch, wenn du in der Button1Click Routine die Zeile Self.WindowState:= wsMinimized; herausnimmst und statt dessen nach dem Klick auf den Button das Fenster manuell minimierst?

Wenn ich manuell minimiere mit dem Anklicken des BorderIcons biMinimize funktioniert es auch.

Hinweis: Der mouse_event darf NICHT über dem Element erfolgen (im Beispiel Button1), das den Test ausgelöst hat, weil sonst gleich ein neuer Test ausgelöst wird (Kettenreaktion).
Evtl. mouse_event-Parameter ändern oder Button1 verschieben.

Wegen Debugger: Starte die Compilation versuchsweise mal mit
Umsch+Strg+F9.

[idefix2]

Zitat von t.roller:

Wenn ich manuell minimiere mit dem Anklicken des BorderIcons biMinimize funktioniert es auch.

Wirklich seltsam. Es wären doch etliche Anpassungen in deinem Beispielprogramm zu machen, damit es kompiliert, die ganzen Unitnamen passen ja auch nicht. Wenn ich mehr Zeit habe, spiele ich mich damit noch (und werde hier zurückmelden, was ich gefunden habe), weil ich verstehe überhaupt nicht, was bei meinem Programm schuld daran sein könnte, dass genau der gleiche Code, der im Beispielprogramm funktioniert, bei mir nicht geht. Aber jetzt kann ich verhindern, dass das Formular überhaupt minimiert wird, deshalb kommt das fürs erste in die Lade "möchte aber doch gerne wissen warum" und nicht mehr in die Lade "brauche ich unbedingt"

Zitat:

Hinweis: Der mouse_event darf NICHT über dem Element erfolgen (im Beispiel Button1), das den Test ausgelöst hat, weil sonst gleich ein neuer Test ausgelöst wird (Kettenreaktion).
Evtl. mouse_event-Parameter ändern oder Button1 verschieben.

Schon klar, in meinem Programm gibt es ja gar keinen entsprechenden Button. Minimiert wurde nur manuell, und in der Timerroutine sollte das Fenster vor dem nächsten Durchlauf wiederhergestellt werden. Und das macht er hartnäckig nicht.

[Luckie]

Ich würde es immer noch direkt über HTTP probierten. Jetzt hast du so viel Zeit vergagelt...

[Luckie]

Es wird ja wohl ein Image im Browser angezeigt. Man müsste also die Seite mach dem img-Tag scuhen können. Oder im JS-Script sehen, wo die Images abgelegt werden. FTP wäre noch eine Idee.

[idefix2]

Zitat von Luckie:

Tja, und mittlerweile ist es durch das hausgemachte Problem mit der Screenshotkrücke wohl erheblich teurer geworden und funktioniert nicht zuverlässig. Und der Download mit einer HTTP-Komponente ist auch nicht viel komplexer. Eher wahrscheinlich das Gegenteil und zudem dürfte es zuverlässiger funktionieren.

Link: https://www.delphi-treff.de/tipps-tr...herunterladen/

Copy and paste und schon fast fertig. Inklusive Anpassung für den Kunden 2 oder 3 Stunden.

Das Problem ist, dass ich keine "Datei" herunterladen kann. Wenn es eine Download-URL für das Bild selbst geben würde, hätte ich das natürlich so gemacht. Aber die gibt es nicht. Der Webserver der Kamera lädt in meinen Browser ein Javaskript, das einen Video-Stream (oder eben alternativ statt des bewegten Live-Streams nur ein Frame des Streams) am Bildschirm anzeigt.

Und das "hausgemachte" Problem war zu Beginn überhaupt nicht absehbar. Von einer normalen Form kann ich jederzeit eine Kopie eines Teils des Canvas machen, auch wenn die Form gerade nicht am Bildschirm sichtbar ist. Alle Schwierigkeiten haben damit begonnen, dass das in diesem Fall nicht funktioniert. Das konnte ich im voraus nicht wissen.

[EWeiss]

Zitat:

Wie mache ich aus einer normalen Form ein nicht minimierbares Fenster?

BorderStyle? bsDialog

gruss