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:
00457021
Views:
24
>Would be good to know what line causes the error...

Hi Wayne,

lnSuccess = loWFConvert.ConvertFromFX(lcInputFile, lcOutputFile)

causes the error.

Steve
>
>>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform