OpenCV und Delphi

[alf.stefan]

Ich weiss ja nicht ob es jemand interessiert aber ich habs doch noch hinbekommen.
Jetzt gibt es zwar andere Probleme aber das gehört nicht hierher.

also was ich wollte war eine Procedur die ein pPplImage bekommt und das dann auf einem TImage darstellt.

Dazu war es scheinbar notwendig die Bilddaten im richtigen Format in einen MemoryStream zu kopieren. Der MemoryStream wird dann einfach mit LoadFromStream in das Image geladen und dann Image refresh und fertig.

Wenn jemand so freundlich wäre das mal anzuschauen und einen Komentar abzugeben wäre das sehr willkommen.
Ich bin mir nämlich nicht sicher ob ich das mit den Pointern und alloc und wieder freigeben richtig gemacht habe.


Bis bald

Stefan

Delphi-Quellcode:

procedure showIt(iplImage : pIplImage; image: TImage);
var
   pp : pointer;
   bmih : pBitmapInfoHeader;
   pBmfh : pBitmapFileHeader;
   sz : cardinal;
   ms : TMemoryStream;
   p : pointer;
begin


   ms := TMemoryStream.Create;

   sz := SizeOf(TBitmapFileHeader);
   pp := AllocMem(sz);
   bmih := @(pbyteArray(pp)^[SizeOf(TBitmapInfoHeader)]);


   bmih.biSize := SizeOf(TBitmapInfoHeader);
   bmih.biWidth := iplImage.Width;
   bmih.biHeight := iplImage.Height;
   bmih.biPlanes := 1;
   bmih.biBitCount := iplImage.Depth*iplImage.NChannels;
   bmih.biCompression := BI_RGB;
   bmih.biSizeImage := iplImage.ImageSize;//      ((iplImage.Width+31)div 32*4)*8*iplImage.Height;
   bmih.biXPelsPerMeter :=0;
   bmih.biYPelsPerMeter :=0;
   bmih.biClrUsed :=0;
   bmih.biClrImportant :=0;



//
   StreamDIB(bmih,ms);

   pBmfh := ms.Memory;
//   p := pointer(Cardinal(ms.Memory) + pBitmapFileHeader(ms.Memory)^.bfOffBits);
   p := pointer(Cardinal(pBmfh) + pBmfh^.bfOffBits);

   Move(iplImage^.ImageData^, p^, bmih^.biSizeImage);


   ms.Position :=0;
   image.Picture.Bitmap.LoadFromStream(ms);

   image.Refresh;

   IplDeallocateImage(iplImage);

   ms.Free;
   freeMem(pp,sz);
end;

Delphi-Quellcode:

procedure streamDib(header: pBITMAPINFOHEADER;var ms:TMemoryStream);
var
    memsize: Integer;
    dib :pBitmapInfoHeader;
    pBfh: pBitmapFileHeader;
    i:Integer;
    b : byte;
begin
    memsize := SizeOF(TBitmapFileHeader) + header.biSize +
        (( ((header.biWidth * header.biBitCount) + 31) div 32 ) *4) *
        header.biHeight;
    if (Header^.biClrUsed>0) then Inc(MemSize,256 * sizeof(TRGBQUAD) );
    ms.SetSize(memSize);
    pBfh := ms.Memory;

    pBfh.bfType := $4D42;
    pBfh.bfSize := memsize;
    pBfh.bfOffBits := memsize
    - (( ((header.biWidth * header.biBitCount) + 31) div 32 ) *4) *
        header.biHeight;
    dib := @(pByteArray(pBfh)^[SizeOF(TBitmapFileHeader)]);
    dib^ := header^;
    if (dib^.biClrUsed>0) then begin
        for i := 0 to dib^.biClrUsed-1 do begin
            b := Round((i*255)/(dib^.biClrUsed-1));
            pBitmapInfo(dib).bmiColors[i].rgbRed := b;
            pBitmapInfo(dib).bmiColors[i].rgbGreen := b;
            pBitmapInfo(dib).bmiColors[i].rgbBlue := b;
        end;
    end;
end;