Hallo,
ich möchte das Videobild einer Ediview Webcam, das in einem Browser angezeigt wird, periodisch abtasten und für weitere Auswertungen verwenden.
In einer TWebbrowser-Komponente das Live-Bild anzuzeigen ist kein Problem. Aber ich habe nicht herausgefunden, wie ich von dem Live-Bild Screenshots generieren kann.
Ich habe mir vorgestellt, dass das einfach über den Canvas des Webbrowsers gehen müsste, aber TWebbrowser hat eine solche Property anscheinend nicht, jedenfalls habe ich nichts gefunden.

Hi,

Um was für ein System handelt es sich denn? Wäre es nicht möglich das Bild über über HTTP runterzuladen ohne das über den TWebBrowser zu machen? Ein weiterer Tipp wäre das ganze Formular zu screenshotten und dan das Live-Bild mit ein wenig Mathematik auszuschneiden.

Freundliche Grüsse

Es handelt sich um ein bewegtes Live-Bild von der Kamera, das via active-x dargestellt wird. Ich glaube nicht, dass sich da eine Momentaufnahme über HTTP herunterladen lässt.

Aber ein Screenshot vom ganzen Formular, das müsste gehen. Wie ich dann den Bereich herausschneide, der mich interessiert, weiss ich zwar noch nicht, weil ich so etwas bis jetzt noch nie gebraucht habe, aber das wird wohl lösbar sein, danke für den Tipp

Mit BitBlt kannst du mit einer Zeile direkt einen Ausschnitt von deinem Form-Handle auf ein Bitmap ziechnen.
Dazu musst du im letzten Parameter der Funktion SRCCOPY übergeben.

Edit:
Hier ein paar mehr infos ^^

MSDN Link mit allen Parametern

zusammenfalten · markieren

Delphi-Quellcode:

BOOL BitBlt(
  _In_ HDC hdcDest, // Handle auf welchem der Ausschnitt gezeichnet werden soll
  _In_ int nXDest, // Start X-Koordinate auf dem End Bild (Wird wahrscheinlich 0 sein)
  _In_ int nYDest, // Hier das selbe
  _In_ int nWidth, // Breite des Ausschnitts
  _In_ int nHeight, // Höhe des Ausschnitts
  _In_ HDC hdcSrc, // Handle deines Formulars (self.Canvas.Handle)
  _In_ int nXSrc, // Start X-Koordinate vom Ausschnitt auf deinem Formular
  _In_ int nYSrc, // Das selbe für Y
  _In_ DWORD dwRop // "SRCCOPY"
);

Vielen Dank, so funktioniert es tatsächlich wunderbar und denkbar einfach

Hallo,

leider gibt es jetzt doch noch ein Problem.
Ich war der Meinung, dass der Canvas ein "virtuelles" Zeichenbrett ist, auf dem die Komponente dargestellt wird. Offensichtlich ist dem aber nicht so, sondern der Canvas entspricht dem, was am Bildschirm aktuell dargestellt wird. Wird ein Teil meines Formlars von einem anderen Programm überdeckt, dann kopiert BitBlt nicht den "virtuellen" Inhalt meines Formulars, sondern das, was gerade am Bildschirm an der Stelle im Vordergrund angezeigt wird.

Gibt es eine Möglichkeit, auf das Bild zuzugreifen, das meine Form anzeigen würde, wenn sie im Vordergrund wäre? Wenn nicht, ist das sehr lästig, weil dann muss das Programm ja ständig im Vordergrund laufen.

Zitat von idefix2:

Hallo,

leider gibt es jetzt doch noch ein Problem.
Ich war der Meinung, dass der Canvas ein "virtuelles" Zeichenbrett ist, auf dem die Komponente dargestellt wird. Offensichtlich ist dem aber nicht so, sondern der Canvas entspricht dem, was am Bildschirm aktuell dargestellt wird. Wird ein Teil meines Formlars von einem anderen Programm überdeckt, dann kopiert BitBlt nicht den "virtuellen" Inhalt meines Formulars, sondern das, was gerade am Bildschirm an der Stelle im Vordergrund angezeigt wird.

Gibt es eine Möglichkeit, auf das Bild zuzugreifen, das meine Form anzeigen würde, wenn sie im Vordergrund wäre? Wenn nicht, ist das sehr lästig, weil dann muss das Programm ja ständig im Vordergrund laufen.

Hmm also bei mir funktioniert es auch wenn ein Fenster drüber liegt, nur wenn man das Fenster explizit minimiert geht es nicht mehr.

Hier mein Testcode:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  LBitmap : TBitmap;
begin
  LBitmap := TBitmap.Create();

  LBitmap.Width := WebBrowser1.Width;
  LBitmap.Height := WebBrowser1.Height;

  bitblt(LBitmap.canvas.Handle, 0, 0, Width,Height, self.canvas.handle, WebBrowser1.Left, WebBrowser1.Top, SRCCOPY);
  LBitmap.SaveToFile('./test.bmp');
  LBitmap.Free;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  webbrowser1.Navigate('http://google.de/?q=' + IntToStr(Random(500)));
end;

Sind halt 2 Timer, der erste ruft BitBlt auf und speichert das Bitmap, der zweite ruft Googlesuchen mit Zahlen zwischen 0 und 500 auf um Veränderungen beim abspeichern sehen zu können.
Also wie gesagt, auch wenn 200 Fenster über dem TWebBrowser liegen funktioniert es ohne Probleme.

Freundliche Grüsse

Edit: Ansonsten könntest du versuchen das Fenster einfach ganz ausserhalb des Sichtbaren Bereichs zu verschieben? Also Quasi Form.Left := -1000; Das klappt bei mir nämlich auch.

Projekt endlich abgeschlossen.
Veranschlagt hatte ich 4 Stunden, geworden sind es etliche Tage.

Javascript ist eine einzige Katastrophe. Während ein snapshot eines normalen Delphiformulars, auch mit TWebbrowser, auch im Hintergrund funktioniert, gilt das nicht, wenn im Browser diese Java Applikation läuft. Ich frage mich, was für Schweinereien das Javascript da aufführt. Ist das Formular mit der Browserkomponente nicht im Vordergrund, dann wird das, was sich am Bidschirm im Vordergrund über der Komponente befindet, ins JPG kopiert, unabhängig vom übertragenen Bild. Schiebt man das Formular zur Seite, sodass das Bild teilweise nicht mehr am Schirm ist, dann ist der nicht am Schirm sichtbare Teil des Bildes im JPG eine weisse Fläche. Nachdem das Ganze auf einem Server instaliert ist, und zu den Zeiten, wo am Server selbst gearbeitet wird, dieses Programm nicht laufen muss, ist es mir und vor allem dem Kunden zum Glück egal. Wie man es lösen könnte, wenn das Programm im Hintergrund laufen soll, habe ich nicht herausgefunden.
Aber es kommt noch schlimmer. Wenn sich jemand per remote Desktop auf den Server verbindet, stört das das Programm nicht, es läuft am virtuellen Desktop weiter. Aber wenn man den remote Desktop wieder schliesst, erscheint am Server der Anmeldebildschirm, und das Javaskript stürzt komplett ab - derart, dass man es nur per Task Manager abschiessen kann, normal schliessen lässt es sich dann nicht. Um das zu umgehen, musste ich den Remote Desktop, mit dem der Kunde bisher auf seinen Server zugegriffen hat, durch VNC ersetzten. Damit funktioniert es.
Die letzte Hürde war noch Java Update, das musste ich auch noch deaktivieren, denn wenn sich das ungefragt gemeldet hat, ist das Javaskript, das das Video anzeigt, und damit mein Programm, ebenfalls komplett abgeschmiert.

pfffft...

Hallo,

ich bin jetzt mal ganz naiv:

Dein Programm läuft als Admin und Du meldest Dich per Remotedesktop als Admin an, dann bekommst Du Probleme. (Dergleichen natürlich auch, wenn es ein beliebiger, anderer User ist.)

Was ist denn, wenn Du für Deine Applikation einen eigenen Benutzer anlegst und unter diesem Benutzer läuft nur Deine Applikation und sonst nichts.

Der Benutzer müsste doch dann seinen eigenen Desktop, losgelöst von allem Anderen, was sich so auf dem Server tummelt, haben.

Ließe sich das eventuell einrichten und funktioniert das dann, ohne die von Dir beschriebenen Probleme?

Das könnte eine Lösung sein, werde ich noch ausprobieren. Ich weiss nicht, was passiert, wenn am Server ein User angemeldet ist und ein anderer User sich per remote desktop anmeldet - ob dann der Serverschirm auch schwarz wird und bei gleichzeitiger Abmeldung des aktuellen Users auf den virtuellen Desktop "übersiedelt", oder ob er normal weiter läuft und am remote Desktop ein komplett anderer Schirm gezeigt wird.

Im Prinzip läuft es jetzt so, dass der Kunde zufrieden ist, aber ob der Vorschlag funktioniert, möchte ich jetzt auch wissen.