Kamera-DLL Zeichnet in TPanel.Handle. Daraus nun ne TBitmap?

[Furtbichler]

Hi,

Der Titel sagt schon alles, aber nochmal in Deutsch ;-)

Wir haben eine Kamera (Leutron). Die hängt irgendwo im Netz. Zur Ansteuerung benutzen wir eine DLL (Orchid.DLL).
Um ein Bild von der Kamera zu bekommen, muss man letztendlich ein 'Handle' angeben. Mein Programmierer hat einfach ein TPanel auf die Form geschmissen und dessen Handle übergeben.

Supi, funktioniert....

Nur, wie bekomme ich das Bild in ein TBitmap (ich will es nämlich speichern)?

[DeddyH]

Schuss ins Blaue: mit GetWindowDC Handle auf den DC des Panels holen und dem Bitmap.Canvas.Handle zuweisen.

[Bummi]

oder per bitblt übertragen

mit //* markierte Zeilen sind nur zum testen drin, brauchst du nicht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  C:TCanvas;  //*    
  bmp:TBitMap;
begin
  c := TCanvas.Create;//*
  bmp := TBitMap.Create;
  try
  c.Handle := GetDC(Panel1.Handle);//*
  c.Rectangle(10,10,100,100);      //*


  bmp.Width := Panel1.Width;
  bmp.height := Panel1.height;

  bitBlt(bmp.Canvas.Handle,0,0 ,Panel1.Width,Panel1.Height, GetDC(Panel1.Handle),0,0,SRCCOPY);
  Image1.picture.Assign(bmp);//*
  finally
  bmp.free;
  c.Free;//*
  end;
end;

[Furtbichler]

Diis gratias.

Gibts ne Möglichkeit, die Dimensionen des in das Handle gezeichneten Dingenskirchenzeugs zu bekommen?

Obwohl, ich glaub, die DLL gibt das her, also die Dimensionen des Bildes zu bekommen ....

Also nochmals: Danke!