XProfan

Waaaha suis mich sur aujourd'hui soir!!!

08.04.2009 ▲

Jaujau!

ocxPut(Script&,Wert,gettext$(Edit&) )--Variable Wert mettons
imprimer ocxMethod(Script&,annonce)

zwar pas getestet (ne...aucune XProfan ici) mais s'il te plaît lieber Gott lass es marcher.

Dankesehr! Dankesehr! Dankesehr!

08.04.2009 ▲

@UWE: Genial!

et avec qui quelque chose überarbeiteten (anhängigen) ocx3a.ph klappts aussi avec xpse.

qui PH beinhaltet 2 kleine faute (si on es überhaupt so appeler peux) weshalb qui Code chez Je ne lief.

dans qui la ligne

AtlAxWinInit(=Externe(atl.dll,AtlAxWinInit;

fehlt hinten un Komma

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

je hab chez qui atl.dll aussi den Dateinamen geuppert avec cela cet DLL de xpse erkannt volonté peux comme une DLL aus einer liste pour DLL quelle gesondert behandelt volonté doit, dans etwa geladen volonté avant dem Beziehen qui Funktionsadressen. (quoi aussi un Grund pour ist dass cela end vom xpse toujours dans __xpse__endofprogram__ geändert wird um solche DLLS aussi wieder trop entladen avant dem Programmende.)

Zuletzt muss je seulement encore

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

anwenden et: und dir!

maintenant wünscht je mir Zeit sur Wunsch!

comment je cela vois peux cela qui Beginn son einer wundervollen Beziehung entre XProfan et hübschen UIs.

ocx3a.ph	5 kB

Hochgeladen:	09.04.2009

Downloadcounter:
		Download

09.04.2009 ▲

cela DestroyWindow peut cela Programme mais abstürzen, aussi chez Dir?

simple la fois statt qui Boucle dans qui JSScript-Exec.prf

ocxPut(Script&,Wert,gettext$(Edit&) )--Variable Wert mettons
imprimer ocxMethod(Script&,annonce)-------Script effectuer; Rückgabe: Ergebnis
destroywindow(WebControl&)
ocxDeInit()
messagebox ,,0

einsetzen. je erhalte un vorzeitiges Programmende.

09.04.2009 ▲

Nachtrag: Avez-vous un concept comment on cela WebControl pour Tastatureingaben empfänglich faire peux? (ou bien ist cela so pas gedacht?

)

09.04.2009 ▲

Uwe
''Pascal''
Niemeier

Hi iF!

qui PH beinhaltet 2 kleine faute (si on es überhaupt so appeler peux) weshalb qui Code chez Je ne lief.

Irgendwas lag mir là an; dans irgendeiner älteren Profan-Version mußte cela so son

qui Anpassung à XPSE J'ai eu chez 3a encore pas berücksichtigt; cela venez chez qui Vollversion.

cela DestroyWindow peut cela Programme mais abstürzen, aussi chez Dir?

Nö.
Prüf la fois, si cela Controlhandle wirklich vorhanden ist; cela était oui eines qui Probleme chez qui letzten ß de XProfan 11.2

Avez-vous un concept comment on cela WebControl pour Tastatureingaben empfänglich faire peux?

cela soll la fois un Thema im ocxPackage 3 son. ici une kleine Vorschau (habe den @Addr()-Workaround la fois avec incorporé):

window 780,400
 $H Windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var File$=X:OCXTest.html-----------------------------Pfad s'il te plaît anpassen!
declare 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 et paramètre ü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
        return a&
        endproc-------------------------------------------------------------
        declare 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 zur ocx-Objektliste hinzufügen ( dans ocx3a encore undokumentiert)
        ocxAddObject(IFace&)--Ist notwendig, avec cela IFace& comme Objektpointer übergeben wird
        usermessages 16,5000
        set(fastmode,1)
        ocxPut(Document&,onkeypress,IFace&)
        ocxMethod(HTMLWnd&,Concentrer)--Concentrer sur WebControl (allez pas avec SetFocus)

        tandis que 1

            waitinput
            cas %umessage=16:pause
            cas %umessage=5000:imprimer bouton : ;&uwparam

        endwhile

        destroywindow(WebControl&)
        ocxDeInit()

Pour diesem Prinzip peux du pratique chaque on-Event des HTML-Dokumentes anzapfen et sur cela Event-objet weitere Infos en supplément einholen.

BTW: comme Grundlage pour solche Entwicklungen verwende je qui IHTML-Interface-référence de MSDN.

HTH
Pascal

10.04.2009 ▲

Jau, cela exposition je mir à!

10.04.2009 ▲

Uwe
''Pascal''
Niemeier

Hi gens!

Kleine Correction: qui ursprüngliche ocxInfo.inc (zur Analyse et pour eigene Experimente;
zur Nutzung de ActiveX pas zwingend nötig) fonctionne pas dans liaison avec dem ocxPackage 3a.
ici cela entsprechende Update.

SeeYou
Pascal

ocxInfo.zip	2 kB

Hochgeladen:	19.12.2009

Downloadcounter:
		Download

19.12.2009 ▲

allô Pascal!

dans qui ocx3a.ph steht:

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

, ici fehlt un Komma et devrait appeler:

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

05.04.2010 ▲

Uwe
''Pascal''
Niemeier

Hi iF!

Stimmt, cela passiert mir öfters...fonctionne mais quand même...

dans irgendeiner älteren Profan-Version mußte cela so son chez APIs sans paramètre et irgendwie ist cela hängengeblieben

SeeYou
Pascal

05.04.2010 ▲

je hatte beim Poste übersehen, dass AtlAxWinInit keinen paramètre erwartet - so gesehen ists imho plutôt un Bug im XPSE, qui ";-Schreibweise pas korrekt umzusetzen. (sollte besser beide Varianten marcher)

07.04.2010 ▲