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