XProfan

- Página 1 -

Uwe
''Pascal''
Niemeier

¡Hola Christof!

Geht doch sicher auch con XProfan, oder?
A Not encima ActiveX?!

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

26.04.2008 ▲

Christof
Neuß

¡Hola Pascal,

super, así gehts sicher. El Beispiele Excel1 y Excel2 trabajo en me einwandfrei. Leider Yo lo todavía no geschafft, una vorhandene Excel-Expediente a abierto. In Excel1.prf Yo el Línea
Kompilieren Marca Separación

var NewBook&=ocxMethod(WorkBooks&,Add)

por
Kompilieren Marca Separación

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

ersetzt. Funktioniert pero no. Irgendwas stimmt con el/el Parametern (Dateiname) no. El Expediente hay aber en diesem Directorio. Posesiones ya alles mögliche ausprobiert. Weißt Usted qué?

Gracias!

Win10 16 GB RAM

Christof
Neuß

Hi Pascal,

Yo bins otra vez.

Bin en XProfan no tan bewandert. Kann lo ser, dass hier algo fehlt?
Kompilieren Marca Separación

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

Oben voluntad Count% y Param# angesprochen, el aber hier no transferencia oder declariert voluntad. Como ya he dicho, Yo verstehs no tan correcto.

Merci!

Win10 16 GB RAM

Beides en übergeordneter Procedimiento/Función oder gar global?

Christof
Neuß

SORRY!

¡Hola Pascal,

lo funktioniert!!!! Tuve sólo una * al Anfag des Dateinamens vergessen.
BTW: ¿Por qué muss el como hin?

Merci!

Win10 16 GB RAM

Christof
Neuß

Hi IF,

jo, ahora tener ICHs auch endlich kapiert. Deklarierte Variables son tan hier auch para el untergeordneten Procs sichtbar.

Gracias para el Referencia!

Win10 16 GB RAM

Christof
Neuß

¡Hola Pascal,

beim Kompilieren con XPSE bekomme Yo siempre el Fehlermeldung, dass en 2 Zeilen el Stringende fehlt. Yo habe entonces en el OCX2.PH a folgende Zeilen una zweites angehängt. Jetzt gehts!
Kompilieren Marca Separación

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

¿Puede Usted así qué anfangen?

Win10 16 GB RAM

- Página 2 -

Uwe
''Pascal''
Niemeier

¡Hola Christof!

Probier veces esta Variante:

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

In früheren Profano-Versionen (a 7.5) durfte nämlich hinter externo Características, el no Parámetro erwarteten, kein Komma posición, de 7.5 wars egal. Und porque XPSE siempre en el neuesten Stand es, esperado lo ahora wahrscheinlich genau dieses Komma.

Zu el Sache con el *: Steht en el Ayuda a Routinen; zwar kann Profano inzwischen el Art übergebener Parámetro erkennen, aber porque Windows/ActiveX mehr Variables-Typen sabe como Profano wären zusätzliche Präfixes como Kennung irgendwann así más o menos nötig gewesen.

HTH
Pascal

Christof
Neuß

Hola si,

puede auch una Problema de XPSE ser? Wenn Yo normal kompiliere funktioniert alles, con XPSE bekomme Yo folgende Fehlermeldung:

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

Yo sería sólo gerne XPSE nutzen, como Yo z.B. así simplemente el Programa-Icon austauschen kann.

Win10 16 GB RAM

Christof
Neuß

¡Hola Pascal,

el Komma ha geholfen, el Fehlermeldung con el fehlende Stringende a beheben. XPSE kompiliert ahora. Aunque schmiert el Programa ya en ocxInit() con Profano-Runtime ha una Problema festgestellt y muss darse por concluido. total de.

Yo krieg hier todavía el Krise....

Win10 16 GB RAM

Schau veces el problema Tuve auch ya: [...]

Hier liegt simplemente una Syntaxfehler en el Headerfile antes - dadurch ergibt se una Folgefehler welcher de XPSE angemeckert se.

Yo habe hay una Korrigierte hochgeladen.