Solved

Converting Delphi Win32 code to Delphi.NET with pointer arithmetic

Posted on 2008-10-14
5
919 Views
Last Modified: 2013-11-23
I am trying to convert some Delphi Win32 code to Delphi.NET (in Delphi 2007). I am getting an error "E2089 Invalid typecast".

The function is taking a dib handle as a parameter and attempting to return a pointer to the image data bits. How do I do this properly in Delphi.NET?
{$UNSAFECODE ON}

function TEsImage.GetPtrToBits: Pointer; {$IFDEF CLR}unsafe;{$ENDIF}

var

  imageBits: Pointer;

  bitmapInfo: PBitmapInfo;

  numberOfColors: Integer;

begin

  bitmapInfo := PBitmapInfo(GlobalLock(FDIB));

  if Assigned(bitmapInfo) then begin

    { Get number of colors }

    if bitmapInfo.bmiHeader.biClrUsed > 0 then begin

      numberOfColors := bitmapInfo.bmiHeader.biClrUsed

    end else begin

      if (bitmapInfo.bmiHeader.biBitCount <> 24) and (bitmapInfo.bmiHeader.biBitCount <> 16) then begin

        numberOfColors := 1 shl bitmapInfo.bmiHeader.biBitCount;

      end else begin

        numberOfColors := 0;

      end;

    end;
 

    // THIS IS THE LINE GIVING THE TYPECAST COMPILER ERROR

    imageBits := Pointer(DWORD(bitmapInfo) +

                  SizeOf(BITMAPINFOHEADER) +

                  bitmapInfo*SizeOf(RGBQUAD));
 

    result := pointer(imageBits);

  end else begin

    result := Nil;

  end;

  GlobalUnLock(FDIB);

end;

{$UNSAFECODE OFF}

Open in new window

0
Comment
Question by:llanphear
  • 3
5 Comments
 
LVL 6

Expert Comment

by:ChristianWimmer
ID: 22713647
I think you must convert bitmapInfo first as you did the first time.
imageBits := Pointer(DWORD(bitmapInfo) +

                  SizeOf(BITMAPINFOHEADER) +

                  DWORD(bitmapInfo)*SizeOf(RGBQUAD));

Open in new window

0
 

Author Comment

by:llanphear
ID: 22713793
Whoops I had an error in the line. Still does't work though
imageBits := Pointer(DWORD(bitmapInfo) +

                  SizeOf(BITMAPINFOHEADER) +

                  numberOfColors*SizeOf(RGBQUAD));

Open in new window

0
 
LVL 27

Accepted Solution

by:
BigRat earned 500 total points
ID: 22721876
I don't understand this, because it looks as if the code has been marked unsafe!!!

Why not try incrementing the pointer?

   Inc(bitMapInfo,a+b*c);
0
 

Author Closing Comment

by:llanphear
ID: 31505993
Thank you. My biggest mistake was expecting a return result from Inc().
0
 

Author Comment

by:llanphear
ID: 22725849
Here is the final bit of code in case anyone was interested...
var

  pInfo: PByte;

  imageBits: PByte;

  bitmapInfo: PBitmapInfo;

  numberOfColors: Integer;

begin

  pInfo := PByte(GlobalLock(FDIB));

  bitmapInfo := PBitmapInfo(pInfo);

  if Assigned(pInfo) then begin

    if bitmapInfo.bmiHeader.biClrUsed > 0 then begin

      numberOfColors := bitmapInfo.bmiHeader.biClrUsed

    end else begin

      if (bitmapInfo.bmiHeader.biBitCount <> 24) and (bitmapInfo.bmiHeader.biBitCount <> 16) then begin

        numberOfColors := 1 shl bitmapInfo.bmiHeader.biBitCount;

      end else begin

        numberOfColors := 0;

      end;

    end;

    Inc(pInfo, SizeOf(BITMAPINFOHEADER) + numberOfColors * SizeOf(RGBQUAD));

    imageBits := pInfo;
 

    FData := Pointer(imageBits);
 

  end else begin

    FData := Nil;

  end; 

  GlobalUnLock(FDIB);

end;

Open in new window

0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

In our object-oriented world the class is a minimal unit, a brick for constructing our applications. It is an abstraction and we know well how to use it. In well-designed software we are not usually interested in knowing how objects look in memory. …
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
The viewer will learn how to use and create keystrokes in Netbeans IDE 8.0 for Windows.
The viewer will learn how to use and create new code templates in NetBeans IDE 8.0 for Windows.

932 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now