Fax con Fivewin

[Pier Luigi]

Dovrei realizzare una applicazione per inviare Fax.
Non ho mai affrontato l'argomento.
Avete qualche consiglio da darmi?

Pier Luigi

[Enrico Maria Giordano]

Ti posso aiutare se usi WinFax.

EMG

[Pier Luigi]

Sì, sul computer ho installato WinFax.

Pier Luigi

[Enrico Maria Giordano]

Code: Select all | Expand

FUNCTION SENDFAX( cFax, cDes, cOgg, cMsg )

    LOCAL lOk := .F.

    LOCAL oFax

    BEGIN SEQUENCE
        oFax = CREATEOBJECT( "WinFax.SDKSend" )

        oFax:LeaveRunning()

        IF oFax:SetTo( cDes ) = 1; BREAK; ENDIF
        IF oFax:SetSubject( cOgg ) = 1; BREAK; ENDIF
        IF oFax:SetCoverText( cMsg ) = 1; BREAK; ENDIF
        IF oFax:SetNumber( cFax ) = 1; BREAK; ENDIF

        IF oFax:AddRecipient() = 1; BREAK; ENDIF

        IF oFax:Send( 0 ) = 1; BREAK; ENDIF

        oFax:Done()

        lOk = .T.
    END SEQUENCE

    RETURN lOk

EMG

[Pier Luigi]

Il programma mi segnala

Error: Unresolved external '_HB_FUN_CREATEOBJECT' ...

Io uso Harbour e FW 2.5.

Pier Luigi

[Enrico Maria Giordano]

Allora sostituiscilo con

Code: Select all | Expand

oFax = TOleAuto():New( "WinFax.SDKSend" )

e linka la libreria hbole.lib.

EMG

[Pier Luigi]

Funziona alla grande!

Grazie EMG.

PS
Per curiosità: quale DLL di Winfax viene richiamata?

[Enrico Maria Giordano]

Non lo so, mi dispiace.

EMG