Re: SAMPLE code for Loading, Resizing and Saving Animated GIF in LeadTools 12.0 in VB.NET windows ap

Could some one please provide me a sample code to load a animated gif image and resize it and save it using Lead Tools Main API in version 12.0.

Thanks

Hi,
Could some one please provide me a sample code to load a animated gif image, resize it and save it using Lead Tools Main API in version 12.0.

I need to know what dlls are required and the classes used. A small code snippet is greatly appreciated.


Thanks

The following API code shows how to load an animated GIF image, resize it and save it:
+----------+
L_INT nRet;
L_INT nFlags = LOADFILE_ALLOCATE | LOADFILE_STORE;
FILEINFO FileInfo;                        /* LEAD File Information structure. */
LOADFILEOPTION LoadOpt;
SAVEFILEOPTION SaveOpt;
int i;
...
nRet = L_FileInfo(OpenFileName.lpstrFile, &FileInfo, FILEINFO_TOTALPAGES, NULL);
      
for(i = 0; i < FileInfo.TotalPages;i++)
{
LoadOpt.PageNumber = i;

nRet = L_LoadFile (OpenFileName.lpstrFile,
&BitmapHandle,
0,
ORDER_BGR,
nFlags,
NULL, NULL,&LoadOpt, NULL);

nRet = L_SizeBitmap (&BitmapHandle, 100, 100, SIZE_RESAMPLE);
         
SaveOpt.PageNumber = i;
SaveOpt.Flags = ESO_INSERTPAGE;
         
nRet = nRet = L_SaveFile("c:\\TEST2.gif",
&BitmapHandle,
FILE_GIF, 8, 0,
SAVEFILE_FIXEDPALETTE,
NULL,
NULL,
&SaveOpt);       
}
+----------+

Thanks,
Maen Badwan
LEADTOOLS Technical Support

Hello Maen,
Thanks for the sample. But I am looking for the Lead.Leadlib interface way of resizing animated gif.

please see attached the sample code and help me in getting this fixed to allow for animated gifs loading, resizing and saving in 12.0 version.

Thanks again.

The following code shows how you can load a GIF file, resize it and save it:
+--------------+
Dim i As Integer
LEAD1.GetFileInfo "c:\eye.gif", -1, FILEINFO_TOTALPAGES

For i = 0 To LEAD1.InfoTotalPages - 1

LEAD1.Load "c:\eye.gif", 0, i, 1
LEAD1.Size 100, 100, RESIZE_RESAMPLE
LEAD1.Save "c:\ResGif.gif", FILE_GIF, 8, 2, SAVE_APPEND

Next i
+--------------+

Thanks,
Maen Badwan
LEADTOOLS Technical Support

Thanks Maen.

I will give it a try.

Chakri

Hi Maen,
I tried your code. It resizes and saves the new file but the image is not loading right. It is faded and does not repeat the animation. Please help with.

Thanks.

Please see attached the sample images. weather.gif after resizing to newgiffy2.gif

newgiffy2.gif is the new converted image using the code you gave. dont know whats making it blurry. please let me know.

Thanks.

Please send me the source GIF file that you are trying to resize.
You can either post it here or send it to support@leadtools.com and mention this forum post in your email.
When attaching to the forums, do NOT use the "Preview" feature. Also, put your attachments in a ZIP or RAR file.

Thanks,
Maen Badwan
LEADTOOLS Technical Support

Just sent the zip file to the support@leadtools.com

Thanks.

Chakri,
To properly resize an animated GIF file, you must scale all of the following using the same ratio:
1. Bitmap width and height for all frames. This is done using the Size method.
2. Global animation width and height.
3. BitmapLeft and Top for all frames.
You must then save the resulting image using one call to the Save method.

Here's a code sample that resizes the image to one half (50%) of its original size:
+----------------+
Dim i As Integer
AxLEAD1.UnlockSupport(LEADLib.SupportLockConstants.L_SUPPORT_GIFLZW, "sg8Z2XkjL")
AxLEAD1.Load("f:\Patches\ToAmin\Last\Today\90351_BKSL.gif", 0, 1, -1)

For i = 0 To AxLEAD1.BitmapListCount - 1
AxLEAD1.BitmapListIndex = i
AxLEAD1.Size(AxLEAD1.BitmapWidth / 2, AxLEAD1.BitmapHeight / 2, LEADLib.ResizeConstants.RESIZE_NORMAL)
AxLEAD1.BitmapLeft = AxLEAD1.BitmapLeft / 2
AxLEAD1.BitmapTop = AxLEAD1.BitmapTop / 2
Next i

AxLEAD1.AnimationHeight = AxLEAD1.AnimationHeight / 2
AxLEAD1.AnimationWidth = AxLEAD1.AnimationWidth / 2
AxLEAD1.Save("f:\Patches\ToAmin\Last\Today\90351_BKSLResized.gif", LEADLib.FileConstants.FILE_GIF, 8, 2, 0)
+----------------+

Thanks,
Maen Badwan
LEADTOOLS Technical Support