Re: VFP9 Sample

Admin — Thu, 25 Feb 2010 19:28:38 GMT

Hi,

Here's a utility that converts VB to VFP, looks like it might do the job for you and its free and includes source code.

http://www.sweetpotatosoftware.com/SPSBlog/PermaLink,guid,453c9b02-e964-4311-850b-abcdcd84ddb3.aspx

VFP9 Sample

apaustria — Tue, 23 Feb 2010 22:29:48 GMT

I'm looking for someone to translate this to VFP9 or some codes to basically save one image to another format.

Dim Attrs As Attributes

' Save our loaded 1 bit image as an FMF

Set Attrs = New IMActX8Ctl.Attributes

Attrs.Add "EXTENSION", "TIF", IMActX8Ctl.String

Attrs.Add "COMPRESS", "True", IMActX8Ctl.String

Attrs.Add "TIFF_COMPRESS", "GROUP3", IMActX8Ctl.String

Attrs.Add "TIFF_FILLORDER", 2, Int32

Attrs.Add "TIFF_XRES", 200, Int32

Attrs.Add "TIFF_YRES", 196, IMActX8Ctl.Int32

Attrs.Add "TIFF_ROWSPERSTRIP", Im1.ImageHeight, IMActX8Ctl.Int32

Attrs.Add "TIFF_BYTEFORMAT", "INTEL", IMActX8Ctl.String

Attrs.Add "TIFF_PHOTOMETRICINTERP", 0, IMActX8Ctl.Int32

Attrs.Add "TIFF_NEWSUBFILETYPE", 0, IMActX8Ctl.Int32

' Call SaveAs passing the Attrs collection

Im1.SaveAs "c:\test.fmf", Attrs

Using the ActiveX Controls

Re: VFP9 Sample

VFP9 Sample