Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Trying to resize an image
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Trying to resize an image
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows Server 2012
Network:
Windows 2008 Server
Database:
MS SQL Server
Application:
Web
Divers
Thread ID:
01577727
Message ID:
01577727
Vues:
65
I have downloaded GDI and the following sample program

But the program just hangs - what am I going wrong?

** How To: RESIZE with Thumbnail Technique
**

** Saves to a PNG file

DO j:\gdi\System.App

WITH _SCREEN.System.Drawing

* Variables to store the new Image size
LOCAL lnWidth, lnHeight
STORE 60 TO lnWidth, lnHeight

* Load the original Image
LOCAL loSrcImage as xfcBitmap
loSrcImage = .Bitmap.New(GETPICT())



* Get the thumbnail with the desired size
LOCAL loThumbnail as xfcImage
loThumbnail = loSrcImage.GetThumbnailImage(198, 240)

* Save the resized image as Png
loResized.Save("c:\Resized1.png", .Imaging.ImageFormat.Png)

ENDWITH
RETURN
Specialist in Advertising, Marketing, especially Direct Marketing

I run courses in Business Management and Marketing
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform