Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
VFP / WinFax Pro
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Titre:
VFP / WinFax Pro
Divers
Thread ID:
00456929
Message ID:
00456929
Vues:
69
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform