XProfan

Waaaha soy en heute Abend!!!

08.04.2009 ▲

Jaujau!

ocxPut(Script&,Valor,gettext$(Edit&) )--Variable Valor conjunto
imprimir ocxMethod(Script&,Meldung)

zwar no getestet (kein XProfan hier) aber Por favor, más bien Gott lass lo trabajo.

Dankesehr! Dankesehr! Dankesehr!

08.04.2009 ▲

@UWE: Genial!

Und con el algo überarbeiteten (anhängigen) ocx3a.ph klappts auch con xpse.

El PH beinhaltet 2 kleine Fehler (si uno lo überhaupt así nennen kann) por qué el Code no yo en el lief.

In el Línea

AtlAxWinInit(=Externo(atl.dll,AtlAxWinInit;

fehlt hinten una Komma

AtlAxWinInit(=Externo(ATL.DLL,AtlAxWinInit,;

Yo en atl.dll auch el Dateinamen geuppert así esta DLL de xpse erkannt voluntad kann como una DLL de uno Liste para DLL welche gesondert behandelt voluntad necesario, en etwa geladen voluntad antes el Beziehen el Funktionsadressen. (Was auch una Grund dafür es dass el end vom xpse siempre en __xpse__endofprogram__ geändert se en solche DLLS auch otra vez a entladen antes el Programmende.)

Zuletzt muss Yo sólo todavía

 {$pushkeyword count%,param#,stringw,stringw$}

anwenden y: Lo va!

Jetzt wünscht Yo Tiempo en Wunsch!

Como Yo el sehe puede el Beginn ser uno wundervollen Beziehung zwischen XProfan y hübschen UIs.

ocx3a.ph	5 kB

Hochgeladen:	09.04.2009

Ladeanzahl:
		Descargar

09.04.2009 ▲

Das DestroyWindow lässt el Programa aber abstürzen, auch con usted?

Einfach veces en lugar de el Bucle en el JSScript-Exec.prf

ocxPut(Script&,Valor,gettext$(Edit&) )--Variable Valor conjunto
imprimir ocxMethod(Script&,Meldung)-------Script ausführen; Rückgabe: Ergebnis
destroywindow(WebControl&)
ocxDeInit()
messagebox ,,0

einsetzen. Yo erhalte una vorzeitiges Programmende.

09.04.2009 ▲

Apéndice: ¿Tiene un Concepto cómo hacerlo WebControl para Tastatureingaben empfänglich hacer kann? (Oder es el así no pensamiento?

)

09.04.2009 ▲

Uwe
''Pascal''
Niemeier

Hi IF!

El PH beinhaltet 2 kleine Fehler (si uno lo überhaupt así nennen kann) por qué el Code no yo en el lief.

Irgendwas lag me como an; en irgendeiner älteren Profano-Versión mußte el así ser

El Anpassung a XPSE Tuve en 3a todavía no berücksichtigt; el kommt en Vollversion.

Das DestroyWindow lässt el Programa aber abstürzen, auch con usted?

Nö.
Prüf veces, si el Controlhandle wirklich disponible ist; el war sí uno el Problemas en letzten ß de XProfan 11.2

¿Tiene un Concepto cómo hacerlo WebControl para Tastatureingaben empfänglich hacer kann?

Das se veces una Thema en el ocxPackage 3 ser. Hier una kleine Prevista (habe el @Addr()-Workaround veces con instalado):

window 780,400
 $H Windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var File$=X:OCXTest.html-----------------------------Pfad Por favor, adaptar!
declarar Temp#
dim Temp#,4
var WebObject&=ocxCreate(File$,%hwnd,500,10,250,100,$50800000,Temp#)
var WebControl&=long(Temp#,0)
var Document&=ocxGet(WebObject&,Document)
var HTMLWnd&=ocxGet(Document&,ParentWindow)

proc Event----------------------------------------------------------

    var Event&=ocxGet(HTMLWnd&,event)
    var Key%=ocxGet(Event&,keycode)
    --Per Usermessage WaitInput durchbrechen y Parámetro übergeben
    sendmessage(%hwnd,5000,Key%,Key%)
    ocxRelease(Event&)
    ENDPROC-------------------------------------------------------------

    proc CreateIMD----------------------------CreateInterfaceMethodDummy

        var a&=~GlobalAlloc(0,16)
        long a&,0=-1192457387,&(2),-1034033781,&(1)*4+4
        volver a&
        ENDPROC-------------------------------------------------------------
        declarar VTable#,IFace&
        dim VTable#,32
        long VTable#,0=CreateIMD(2,0)QueryInterface
        long VTable#,4=CreateIMD(0,0)AddRef
        long VTable#,8=CreateIMD(0,0)Release
        long VTable#,24=procaddr(Event,5)
        long VTable#,28=VTable#
        IFace&=VTable#+28
        --Eigenes Interface a ocx-Objektliste hinzufügen ( en ocx3a todavía undokumentiert)
        ocxAddObject(IFace&)--Ist notwendig, así IFace& como Objektpointer übergeben se
        usermessages 16,5000
        set(fastmode,1)
        ocxPut(Document&,onkeypress,IFace&)
        ocxMethod(HTMLWnd&,Foco)--Foco en WebControl (va no con SetFocus)

        mientras que 1

            waitinput
            caso %umessage=16:romper
            caso %umessage=5000:imprimir Taste : ;&uwparam

        endwhile

        destroywindow(WebControl&)
        ocxDeInit()

Nach diesem Principio kannst du praktisch cada on-Event des HTML-Dokumentes anzapfen y encima el Event-Objeto weitere Infos dazu einholen.

BTW: Als Grundlage para solche Entwicklungen verwende Yo el IHTML-Interface-Referenz de MSDN.

HTH
Pascal

10.04.2009 ▲

Jau, el mostrar Yo a!

10.04.2009 ▲

Uwe
''Pascal''
Niemeier

Hi Personas!

Kleine Corrección: El ursprüngliche ocxInfo.inc (a Analyse y para propio Experimente;
a Nutzung de ActiveX no zwingend nötig) se ejecuta no en Verbindung con el ocxPackage 3a.
Hier el entsprechende Actualización.

SeeYou
Pascal

ocxInfo.zip	2 kB

Hochgeladen:	19.12.2009

Ladeanzahl:
		Descargar

19.12.2009 ▲

¡Hola Pascal!

In el ocx3a.ph es:

AtlAxWinInit(=Externo("atl.dll","AtlAxWinInit";

, hier nadie Komma y debería heißen:

AtlAxWinInit(=Externo("atl.dll","AtlAxWinInit",;

05.04.2010 ▲

Uwe
''Pascal''
Niemeier

Hi IF!

Stimmt, el passiert me öfters...se ejecuta aber trotzdem...

In irgendeiner älteren Profano-Versión mußte el así ser en APIs sin Parámetro y irgendwie es el hängengeblieben

SeeYou
Pascal

05.04.2010 ▲

Tuve beim Puesto übersehen, dass AtlAxWinInit no Parámetro esperado - así gesehen ists imho más una Bug en el XPSE, el ";-Schreibweise no korrekt umzusetzen. (debería mejor beide Varianten trabajo)

07.04.2010 ▲