Bild aus pByte speichern

[Graw]

Guten Morgen,

ich habe eine µEye Kamera von IDS.
Wie folgt kann ich das aktuelle Livebild in einem Panel anzeigen:

Code:

If (pImgMem <> nil) then is_RenderBitmap (hC, FrameId, pnuEye.Handle, DisplayMode)

pnuEye ist das Panel.

Die Bilddaten liegen in: pImgMem : pByte;

Das aktuelle Bild würde ich nun gerne speichern...
In dem pImgMem liegt ein Bild mit einer FullHD Auflösung, weshalb ich nicht einfach einen "Screenshot" von dem Panel amchen kann.
Hier würde ich dann zu viel Auflösung verlieren.
Leider weiß ich nicht wie ich das machen kann.
Über eure Hilfe wäre ich sehr Dankbar.

[CarlAshnikov]

Hallo,

kann man das Bild auf den Canvas eines TBitmap rendern lassen?

Delphi-Quellcode:

var
  bm: TBitMap;
begin
  bm := TBitMap.Create();
  try
    is_RenderBitmap (hC, FrameId, bm.Canvas.Handle, DisplayMode);
    bm.SaveToFile('test.bmp'); 
  finally
    bm.Free();
  end;
end;

[Graw]

Dann kommt beim öffnen des Bildes:
Das Bild kann nicht angezeigt werden, da die Datei leer ist.

[Neutral General]

Setz mal vorher die Höhe und Breite des Bitmaps.

[Graw]

Dann ist das erzeugte Bild nur weiß.

[Rollo62]

Vielleicht geht es ja mit einem unsichtbaren TImage, statt des TBitmap.
Das ist ein echtes Control und hat womöglich einen Canvas-Handle vom System.
Könnte aber sein das unsichtbare Controls gar nicht erst gezeichnet werden.

Rollo

[Neutral General]

Wenn du weißt wie groß das Bild hinter pImgMem ist, kannst du auch einfach die Daten hinter pImgMem in einen Stream packen und abspeichern.
Das wäre dann wahrscheinlich das einfachste.

[CarlAshnikov]

Wenn man nur die rohen Bilddaten hat, muss man sich den passenden bitmap header generieren um das korrekt speichern zu können. bitmap header

Edit:

Wie wäre es die Funktionen direkt von IDS zu nehmen: is_saveimage oder is_imagefile?

[TiGü]

Was sagt denn die Doku genau zu pImgMem? Ist das schon ein fertiges Bitmap, also mit den erforderlichen Headern, oder der reine Bildbuffer?
Wieviele Bits sind denn pro Bildpunkt vorhanden? 8-, 16-, 24-, 32-Bit? Kennst du die Größe des Buffers in Bytes? In der Regel bei Bitmap wäre das Höhe mal Breite mal 4.
Ist es wirklich unkomprimiertes Material oder muss man das erst einer JPEG-Dekodierung unterziehen?

Hier mal ein kleines Beispiel. Das Array MyBytes, die per Zufall gefüllt wird, entspricht dann deinen Bildbuffer, wo pImgMem drauf zeigt:

Delphi-Quellcode:

var
  MyStream: TStream;
  MyBitmap: TBitmap;
  MyBytes: TBytes;
  BitmapSize: Integer;
  I: Integer;
  BitmapInfo: TBitmapInfo;
  BitmapFileHeader: TBitmapFileHeader;
  pImgMem: PByte;
  BitmapHeight, BitmapWidth: Integer;
begin
  BitmapWidth := 1 * 1920;
  BitmapHeight := 1 * 1080;
  BitmapSize := BitmapWidth * BitmapHeight * 4;
  SetLength(MyBytes, BitmapSize);

  for I := Low(MyBytes) to High(MyBytes) do
  begin
    MyBytes[I] := RandomRange(Low(Byte), High(Byte));
  end;

  FillChar(BitmapInfo, SizeOf(BitmapInfo), 0);
  BitmapInfo.bmiHeader.biSize := SizeOf(BitmapInfo.bmiHeader);
  BitmapInfo.bmiHeader.biHeight := -BitmapHeight;
  BitmapInfo.bmiHeader.biWidth := BitmapWidth;
  BitmapInfo.bmiHeader.biPlanes := 1;
  BitmapInfo.bmiHeader.biBitCount := 32;

  FillChar(BitmapFileHeader, SizeOf(BitmapFileHeader), 0);
  BitmapFileHeader.bfType := $4D42;

  MyStream := TMemoryStream.Create;
  MyStream.Write(BitmapFileHeader, SizeOf(BitmapFileHeader));
  MyStream.Write(BitmapInfo, SizeOf(BitmapInfo));

  pImgMem := @MyBytes[0];
  MyStream.Write(pImgMem^, BitmapSize);
  MyStream.Position := 0;

  MyBitmap := TBitmap.Create;
  MyBitmap.LoadFromStream(MyStream);

  ForceDirectories('C:\Test');
  MyBitmap.SaveToFile('C:\Test\Test1.bmp');

  MyStream.Free;
  MyBitmap.Free;
end;

[Graw]

:oops:
Die Lösung kann so einfach sein...
Vielen dank an alle, besonders an CarlAshnikov...
Mit is_saveimage hat es nun wunderbar geklappt.

:-D