Data Techniques Forums

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

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