XProfan

- Page 1 -

Uwe
''Pascal''
Niemeier

Hello Christof!

goes still sure too with XProfan, or?
to hardship over ActiveX?!

[web]https://XProfan.com/thread.core?t=4363[/web]
SeeYou
Pascal

04/26/08 ▲

Christof
Neuß

Hello Pascal,

super, so GEHTS sure. The Examples Excel1 and Excel2 functions by me correct. unfortunately have I it not yet geschafft, a available Excel-File to open. In Excel1.prf have I The row
Compile Mark Separation

var NewBook&=ocxMethod(WorkBooks&,Add)

through
Compile Mark Separation

var NewBook&=ocxMethod(WorkBooks&,Open,C:\Programme\XProfan10\ocxPackage2\Intern2\Excel3.xls)

supplant. functions but not. Irgendwas is correct with the/whom Parameters (Dateiname) not. The File there but in this directory. have already all sorts of things ausprobiert. know You what?

Thank you!

Win10 16 GB RAM

Christof
Neuß

Hi Pascal,

I bins again.

be in XProfan not yet so bewandert. can it his, that here something missing?
Compile Mark Separation

proc ocxPutParams-------------------------------ocxPutParams----------------------------

    declare Pos%,v$,v&,v%
    dim Param#,(Count%-1)*16--Parameter-Array
    clear Param#

    whileloop Count%,3,-1--bestücken in umgekehrter Reihenfolge!

        v$=$(&loop)
        v&=&(&loop)
        v%=~VT_I4

        if left$(v$,1)=*------Parameter ist String

            v%=~VT_BSTR
            v$[&loop]=MultiToWideEx(del$(v$,1,1))
            v&=addr(v$[&loop])

        elseif left$(v$,1)=#--Parameter ist Objekt

            v%=~VT_DISPATCH
            v&=val(del$(v$,1,1))

        endif

        word Param#,Pos%=v%--Typ
        Pos%=Pos%+8
        long Param#,Pos%=v&--Wert
        Pos%=Pos%+8

    endwhile

    endproc-------------------------------------------------------------------------------pan>-

supra go Count% and Param# addressed, The but not transfer or declariert go. As I said, I verstehs not yet so correctly..

Merci!

Win10 16 GB RAM

Both in übergeordneter procedure/function or quite global?

Christof
Neuß

SORRY!

Hello Pascal,

it functions!!!! I had only one * on the Anfag the Dateinamens forget.
BTW: Why must the there there?

Merci!

Win10 16 GB RAM

Christof
Neuß

Hi iF,

jo, now Have ICHs too finally understands. declared variables are so here too for untergeordneten Procs visible.

thanks for Info!

Win10 16 GB RAM

Christof
Neuß

Hello Pascal,

at Compile with XPSE I get always The Error Message, that with 2 Lines the Stringende missing. I have then in the OCX2.PH on following Lines one second appended. now GEHTS!
Compile Mark Separation

CoUninitialize(=External(ole32,CoUninitialize;
AtlAxWinInit(=External(atl.dll,AtlAxWinInit

can You so what begin?

Win10 16 GB RAM

- Page 2 -

Uwe
''Pascal''
Niemeier

Hello Christof!

Probier time these Variante:

CoUninitialize(=External(ole32,CoUninitialize,;
AtlAxWinInit(=External(atl.dll,AtlAxWinInit,;

In previous Profan-versions (To 7.5) durfte namely behind external functions, The none Parameter expected, no comma stand, ex 7.5 wars alike. and because XPSE always on the latest stood is, expects it now probably very this comma.

to the thing with the *: standing in the Help whom Routinen; of course can Profan meanwhile The manner übergebener Parameter discern, but because windows/ActiveX More variables-Types knows as Profan wären additional Präfixes as Kennung sometime so or so necessary been.

HTH
Pascal

Christof
Neuß

Hello iF,

can the too a problem of XPSE his? If I normal kompiliere functions everything, with XPSE I get following Error Message:

Stringende missing!
__cf7&=__cf1(__cf2(atl.dll),AtlAxWinInit)

i'd hold gladly XPSE benefit, I z.B. so simply the program-Icon replace can.

Win10 16 GB RAM

Christof
Neuß

Hello Pascal,

the comma has helped, The Error Message with the fehlende Stringende To to fix. XPSE compiled now too. though smears the program already with ocxInit() with Profan-Runtime has a problem fixes and must exits go. utterly ex.

I war here yet The crisis....

Win10 16 GB RAM

look time the trouble I had already: [...]

here lying simply one Syntaxfehler in the Headerfile to - therefore yields itself one Folgefehler which of XPSE angemeckert becomes.

I have there a Korrigierte uploaded.