XProfan

- page 1 -

Uwe
''Pascal''
Niemeier

allô Christof!

allez doch sûrement aussi avec XProfan, ou bien?
Zur Not sur ActiveX?!

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

26.04.2008 ▲

Christof
Neuß

allô Pascal,

super, avec cela gehts sûrement. qui Beispiele Excel1 et Excel2 marcher chez mir einwandfrei. malheureusement habe je es encore pas geschafft, une vorhandene Excel-Dossier trop ouvrir. dans Excel1.prf habe je qui la ligne
Kompilieren Marque Séparation

var NewBook&=ocxMethod(WorkBooks&,Add)

par
Kompilieren Marque Séparation

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

ersetzt. Funktioniert mais pas. Irgendwas stimmt avec dem/den Parametern (Dateiname) pas. qui Dossier gibt es mais dans diesem Verzeichnis. Habe déjà alles mögliche ausprobiert. sais Du quoi?

merci!

Win10 16 GB RAM

Christof
Neuß

Hi Pascal,

je bins nochmal.

suis dans XProfan encore pas so bewandert. peux es son, dass ici irgendwas fehlt?
Kompilieren Marque Séparation

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>-

dessus volonté Count% et Param# angesprochen, qui mais ici pas transfert ou bien declariert volonté. Comme je le disais, je verstehs encore pas so richtig.

Merci!

Win10 16 GB RAM

Beides dans übergeordneter Procédure/Funktion ou bien gar global?

Christof
Neuß

SORRY!

allô Pascal,

es funktioniert!!!! je hatte seulement un * am Anfag des Dateinamens oublier qc.
BTW: pourquoi muss cela là hin?

Merci!

Win10 16 GB RAM

Christof
Neuß

Hi iF,

jo, maintenant hab ICHs aussi enfin kapiert. Deklarierte Variablen sommes oui ici aussi pour qui untergeordneten Procs sichtbar.

merci pour den Hinweis!

Win10 16 GB RAM

Christof
Neuß

allô Pascal,

beim Kompilieren avec XPSE bekomme je toujours qui Fehlermeldung, dass chez 2 Zeilen cela Stringende fehlt. j'ai ensuite dans qui OCX2.PH à folgende Zeilen un zweites angehängt. maintenant gehts!
Kompilieren Marque Séparation

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

peux Du avec cela quoi anfangen?

Win10 16 GB RAM

- page 2 -

Uwe
''Pascal''
Niemeier

allô Christof!

Probier la fois cet variante:

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

dans précédent Profan-Versionen (jusqu'à 7.5) durfte nämlich derrière externe Funktionen, qui keinen paramètre erwarteten, ne...aucune Komma stehen, ab 7.5 wars égal. et weil XPSE toujours sur dem neuesten Stand ist, erwartet es maintenant wahrscheinlich oui c'est ca cet Komma.

trop qui l'affaire avec dem *: Steht dans qui Aider le Routinen; zwar peux Profan inzwischen qui Art übergebener paramètre erkennen, mais weil Windows/ActiveX plus Variablen-Typen kennt comme Profan wären zusätzliche Präfixes comme Kennung irgendwann so ou bien so nötig gewesen.

HTH
Pascal

Christof
Neuß

allô iF,

peux cela aussi un Problem de XPSE son? si je normal kompiliere funktioniert alles, avec XPSE bekomme je folgende Fehlermeldung:

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

je serait arrêt volontiers XPSE nutzen, là je z.B. so simple cela Programme-Icon austauschen peux.

Win10 16 GB RAM

Christof
Neuß

allô Pascal,

cela Komma hat geholfen, qui Fehlermeldung avec dem fehlende Stringende trop beheben. XPSE kompiliert maintenant aussi. Allerdings schmiert cela Programme déjà chez ocxInit() avec Profan-Runtime hat un Problem festgestellt et muss finissez volonté. total ab.

je krieg ici encore qui Krise....

Win10 16 GB RAM

exposition la fois cela Problem J'ai eu aussi déjà: [...]

ici liegt simple un Syntaxfehler im Headerfile avant - dadurch ergibt sich un Folgefehler quel de XPSE angemeckert wird.

j'ai là une Korrigierte hochgeladen.