Forum: Multimedia
Delphi
by cylor,
10. Okt 2008
Da beim JPEG Informationen verloren gehen hab ich das jetzt so gelöst:
type
TLogPal = record
lpal : TLogPalette;
colorSpace : Array of TPaletteEntry;
end;
var
Forum: Multimedia
Delphi
by cylor,
10. Okt 2008
Guten Morgen! Nach einer kleinen Korrektur funktioniert es... fast. Vielen Dank!
var
bmp: TBitmap;
pBuffer: Pointer;
const
ueye_ImgWidth = 1024;
ueye_ImgHeight = 768;
Forum: Multimedia
Delphi
by cylor,
9. Okt 2008
Nein macht leider auch nichts. Gibt es ne andere Möglichkeit den Buffer in ein TBitmap zu packen?
mfg Lars
Forum: Multimedia
Delphi
by cylor,
9. Okt 2008
Aha Cardinal() heisst das Zauberwort. Ich hatte es mit Integer() versucht. Danke!:P
Mein Code schaut nu so aus:
var pBuffer: Pointer;
begin
GetMem(pBuffer, ueye_picture_buffer_size);
uEyeCam1.CopyImage(Cardinal(pBuffer), ueye_picture_buffer_size);
SetBitmapBits(Image1.Picture.Bitmap.Handle, ueye_picture_buffer_size, @pBuffer);
Forum: Multimedia
Delphi
by cylor,
9. Okt 2008
Nein der will ein Integer kein Pointer.
Forum: Multimedia
Delphi
by cylor,
9. Okt 2008
Ja das ist mir schon klar, dass das nicht der Buffer ist, sonder nur die Größe des Buffers. ^^
Mit getMem hab ich schon rumgespielt. Etwa sowas:
var pBuffer: Pointer;
begin
image_buffer_size := 1024*768*8;
GetMem(pBuffer, image_buffer_size);
...