Bild von einer WebCam im Lan abholen und anzeigen

[DL3AD]

Hallo,
in meinem Lan ist eine Webcam auf die ich wie folgt zugreifen kann.

Code: Alles auswählen

http://user:passwd@192.168.2.125/cgi-bin/viewer/video.jpg?streamid=0

Mit welcher Komponente greift man am elegantesten auf das Bild zu um es in einem Form anzuzeigen ?

Gruß Frank

[theo]

So z.B.
https://wiki.freepascal.org/fphttpclient#Examples

[DL3AD]

Hallo theo,
Danke - es läuft.

Code: Alles auswählen

//Test LAN Cam
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
  fphttpclient;
type
  { TForm1 }
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;
  Strm:TMemoryStream;

implementation
{$R *.lfm}
{ TForm1 }

//Test Cam =====================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  Strm:= TMemoryStream.Create;
  TFPHttpClient.SimpleGet(
  'http://user:passwd@192.168.2.125/cgi-bin/viewer/video.jpg?streamid=0',Strm);
  Strm.Position:= 0;
  Image1.Picture.LoadFromStream(Strm);
  Strm.Free;
end;

end.

Gruß Frank