Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
VFP / WinFax Pro
Message
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00456929
Message ID:
00456948
Views:
20
Would be good to know what line causes the error...

>OK UTers, for those of you have might have worked with WinFax Pro before, below is a snippet of code that gets a "Function arguement value, type or count is invalid" error message. The real bogus part is that VB example that I have from the WinFax SDK works successfully. It is that example from which this snippet is created. I don't see the difference.
>
>
>PROCEDURE TEST
>LOCAL loWFConvert
>LOCAL lcInputFile, lcOutputFile
>
>* Create the file convertion object to convert a received
>* fax to a TIF format.
>loWFConvert = CreateObject("WinFax.SDKFXConverter")
>
>* TIF format = 3.
>loWFConvert.Format = 3
>loWFConvert.BitsPerPixel = 1
>
>* Set input and output files.
>lcInputFile = "C:\Program Files\Symantec\WinFax\Data\1919001.fxr"
>lcOutputFile = "C:\APS\Documents\TEST6.TIF"
>
>IF NOT FILE(lcInputFile)
> WAIT WINDOW "Input file not found."
> RETURN
>ENDIF
>
>* Do the conversion.
>lnSuccess = .F.
>lnSuccess = loWFConvert.ConvertFromFX(lcInputFile, lcOutputFile)
>
>IF lnSuccess = 0
> wait window "Success"
>ELSE
> WAIT WINDOW "Whoops - success = " + allt(str(lnSuccess))
>ENDIF
>
>RELEASE loWFConvert
>
>RETURN
>
>***********************************
>convertFormat is 3 (TIF)
>cmbBitsPerPixel is 1
>src & desc equate to the above lcInputFile & lcOutputFile
>The VB variables are set via an example form.
>
> ' set the format
> convertObj.Format = convertFormat
>
> ' set the bits per pixel
> convertObj.BitsPerPixel = Val(cmbBitsPerPixel.Text)
>
> ' convert
> src = lblFXFile.Caption
> desc = lblOtherGraphicFile.Caption
> If chkByPage.Value = 1 Then
> result = convertObj.ConvertFromFXToPage(src, desc, Val(edtPageNum.Text))
> Else
> result = convertObj.ConvertFromFX(src, desc)
> End If
Wayne Myers, MCSD
Senior Consultant
Forte' Incorporated
"The only things you can take to heaven are those which you give away" Author Unknown
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform