XProfan

Waaaha freue me on today evening!!!

04/08/09 ▲

Jaujau!

ocxPut(Script&,worth,gettext$(Edit&) )--Variable worth settle
print ocxMethod(Script&,Message)

of course not tested (no XProfan here) but Please rather god lass it functions.

Dankesehr! Dankesehr! Dankesehr!

04/08/09 ▲

@UWE: Genial!

and with the something überarbeiteten (anhängigen) ocx3a.ph works too with xpse.

The PH contain 2 small Error (if one it at all so name can) and so the code not at me running.

in the row

AtlAxWinInit(=External(atl.dll,AtlAxWinInit;

missing hinten one comma

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

I Have with the atl.dll too whom Filenames geuppert so these DLL of xpse recognized go can as a DLL a list for DLLs which gesondert treats go must, vaguely loaded go to the relating the Funktionsadressen. (what too one reason for is that the end of xpse always in __xpse__endofprogram__ changed becomes circa such DLLS again To entladen to the End of program.)

lastly must I only yet

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

utilize and: It's all right!

now wish I me Time on wish!

How I the see can the the Beginn his of/ one wundervollen relationship between XProfan and beautiful UIs.

ocx3a.ph	5 kB

Hochgeladen:	04/09/09

Downloadcounter:
		Download

04/09/09 ▲

the DestroyWindow can the program but crash, too with you?

simply time instead of the Loop in the JSScript-Exec.prf

ocxPut(Script&,worth,gettext$(Edit&) )--Variable worth settle
print ocxMethod(Script&,Message)-------Script perform; Return: Result
destroywindow(WebControl&)
ocxDeInit()
messagebox ,,0

bring into action. I sustain one vorzeitiges End of program.

04/09/09 ▲

Nachtrag: have You a idea How to the WebControl for Tastatureingaben susceptible can make? (or is the so not virtual?

)

04/09/09 ▲

Uwe
''Pascal''
Niemeier

Hi iF!

The PH contain 2 small Error (if one it at all so name can) and so the code not at me running.

Irgendwas lying me there an; in anybody older Profan-Version had to the so his

The Anpassung on XPSE I had with 3a not yet berücksichtigt; the comes with the Full Version.

the DestroyWindow can the program but crash, too with you?

Nö.
Prüf time, whether the Controlhandle really present ist; the was Yes one the Problems with the last ß of XProfan 11.2

have You a idea How to the WebControl for Tastatureingaben susceptible can make?

the should time one Topic in the ocxPackage 3 his. here a small Preview (have whom @Addr()-Workaround time with installed):

window 780,400
 $H windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var File$=X:OCXTest.html-----------------------------way Please adjust!
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 User Message WaitInput durchbrechen and Parameter ü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
        --Own interface to ocx-Objektliste add ( in ocx3a yet undokumentiert)
        ocxAddObject(IFace&)--is necessary, so IFace& as Objektpointer übergeben becomes
        usermessages 16,5000
        set(fastmode,1)
        ocxPut(Document&,onkeypress,IFace&)
        ocxMethod(HTMLWnd&,Focus)--Focus on WebControl (goes not with SetFocus)

        while 1

            waitinput
            case %umessage=16:break
            case %umessage=5000:print Button : ;&uwparam

        endwhile

        destroywindow(WebControl&)
        ocxDeInit()

After this principle can you useful each on-Event the HTML-Dokumentes anzapfen and over the Event-Objekt further Info moreover run down.

BTW: as basis for such developments use I The IHTML-interface-reference of MSDN.

HTH
Pascal

04/10/09 ▲

Jau, the look I me on!

04/10/09 ▲

Uwe
''Pascal''
Niemeier

Hi people!

small Korrektur: The ursprüngliche ocxInfo.inc (to analysis and Own Experimente;
to Use of ActiveX not coercive necessary) runs not in link with the ocxPackage 3a.
here the suitable Update.

SeeYou
Pascal

ocxInfo.zip	2 kB

Hochgeladen:	12/19/09

Downloadcounter:
		Download

12/19/09 ▲

Hello Pascal!

in the ocx3a.ph standing:

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

, here missing one comma and should hot:

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

04/05/10 ▲

Uwe
''Pascal''
Niemeier

Hi iF!

is correct, the happens me öfters...runs but nevertheless...

In anybody older Profan-Version had to the so his with APIs without Parameter and somehow is the hängengeblieben

SeeYou
Pascal

04/05/10 ▲

I had at Post overlooking, that AtlAxWinInit none Parameter expects - so seen ists imho sooner one bow in the XPSE, The ";-spelling not correctly umzusetzen. (ought to rather both mutants functions)

04/07/10 ▲