Passing a DISPATCH variable

[Peter Redei]

I wanted to do that...

FUNCTION SetHeader(objXMLHTTP AS DISPATCH, vr1 AS VARIANT, vr2 AS VARIANT) AS LONG
       
    OBJECT CALL objXMLHTTP.setRequestHeader( vr1, vr2)
    IF OBJRESULT OR ERR THEN
        FUNCTION = 0
    ELSE
        FUNCTION = 1
    END IF
    
END FUNCTION

The compiler returns error that objXMLHTTP must be a DISPATCH. Why? What is the correct way of passing a DISPATCH to another function?

Peter Redei

[José Roca]

Which version of the compiler. PB 8.04 doesn't complain.

[Peter Redei]

Compiler Version

7.02

Thanks Jose. I am also trying to do it with your trick (how you load ATL) but no luck so far.

Peter Redei

[José Roca]

7.02 is quite old. Try the following:

FUNCTION SetHeader(vobjXMLHTTP AS VARIANT, vr1 AS VARIANT, vr2 AS VARIANT) AS LONG
    
    LOCAL objXMLHTTP AS DISPATCH
    
    SET objXMLHTTP = vobjXMLHTTP
    OBJECT CALL objXMLHTTP.setRequestHeader( vr1, vr2)
    IF OBJRESULT OR ERR THEN
        FUNCTION = 0
    ELSE
        FUNCTION = 1
    END IF
    SET objXMLHTTP = NOTHING
    
END FUNCTION

DIM vobjXMLHTTP AS VARIANT
SET vobjXMLHTTP = objXMLHTTP
lRes = SetHeader(vobjXMLHTTP, vr1, vr2
SET vobjXMLHTTP = EMPTY

[Peter Redei]

Thanks Jose, this worked, except the
SET vobjXMLHTTP = EMPTY line. It also did not like NOTHING, but it took

SET objXMLHTTP = NOTHING
SET vobjXMLHTTP = objXMLHTTP

Peter Redei

[José Roca]

Sorry, my mistake. Use vobjXMLHTTP = EMPTY.