Print Page - DelphiXE3 VC++ Lazarus Dll

Title: DelphiXE3 VC++ Lazarus Dll
Post by: sikale on 9 November 2012, 15:55:08

Lazarus1.0.2 Compiled "VampyreImaging.lpi"
Generate "VampyreImaging.dll"

VC++ Run "test.c"
........................
/* save image to Targa format */
ImSaveImageToFile("ctestimage.png", &Img); //Unable to generate images
DelphiXE3 Call VampyreImaging.dll //Unable to generate images too

but VampyreImaging.dll of DelphiXE3 Generated
generate images is OK.

How do I set Lazarus？

Sorry, my English is poor。 :-[

Title: Re: DelphiXE3 VC++ Lazarus Dll
Post by: sikale on 10 November 2012, 06:41:34

Delphi create Image:　TImageData;
ImNewImage(256, 256, ifA8R8G8B8, Image);

Passed to Lazarus
Run " TestImage(Image) "

Result is:
LongInt(Image.Width) 1242488 // Should be 256
LongInt(Image.Height) 1243380 //Should be 256
LongInt(Image.Format) 6244311 // Should be 88

Google to Similar problems：
http://community.freepascal.org:10000/bboards/message?message_id=335641&forum_id=24082

Title: Re: DelphiXE3 VC++ Lazarus Dll
Post by: sikale on 10 November 2012, 06:56:09

function ImSaveImageToFile(FileName: PAnsiChar; const Image: TImageData): Boolean; cdecl;

Modified to

function ImSaveImageToFile(FileName: PAnsiChar; const Image: PImageData): Boolean; cdecl;
or
function ImSaveImageToFile(FileName: PAnsiChar; var Image: TImageData): Boolean; cdecl;

Delphi Pass a PImageData pointer to Lazarus
or
var Image

run is OK ;D

Vampyre Imaging Library Forum

Imaging Category => Help & Questions => Topic started by: sikale on 9 November 2012, 15:55:08