XProfan

RGH

Dieter Zornow

then poste still please times one possible small example, so I the understand can.

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

06/29/08 ▲

Dieter
Zornow

I have you something by E-Mail skillful, there Includes and Own Header-Files uses go. The Examples müssten but here in the Forum downloadable his under ActiveX

greeting

Dieter

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

06/29/08 ▲

RGH

Hello, I faith I have The cause found. evident power itself Pascal The not documented (and accordingly not guaranteeing) static Speicherverwaltung of XProfan To including Version 10 To Nutze. as example use I a gekürzten View source from its feather. To XProfan 10 functions following View source:
Compile Mark Separation

window 100,10-500,500
usermessages 16
 $H Windows.ph
 $H OCX.ph
 $I OCX.inc
declare ATL&,Var#,Disp#,IID#
ocxInit()
declare Object&,Control&
ocxCreate(MSCAL.Calendar.7,%hwnd,10,100,350,250,addr(Object&),addr(Control&))
ocxMethod(Object&,Today)
numwidth 3

while 1

    locate 0,0
    print Tag   ,ocxGet(Object&,Day)
    print Monat ,ocxGet(Object&,Month)
    print Jahr  ,ocxGet(Object&,Year)
    waitinput
    case %umessage=16:break

endwhile

ocxMethod(Object&,AboutBox)
destroywindow(Control&)
ocxDeInit(n class=s2>)

The View source functions naturally only under the assumption, that The Speicheradresse the variables Object& and Control& unveränderlich is, what To XProfan 10 too random so was. XProfan 11 shows here More Dynamik, so the following small Änderung necessary becomes:
Compile Mark Separation

window 100,10-500,500
usermessages 16
 $H windows.ph
 $H OCX.ph
 $I OCX.inc
declare ATL&,Var#,Disp#,IID#
ocxInit()
declare Object&,Control&
declare c#, o#
dim c#,4
dim o#,4
ocxCreate(MSCAL.Calendar.7,%hwnd,10,100,350,250,o#,c#)
Object& = Long(O#,0)
Control& = Long(C#,0)
ocxMethod(Object&,Today)
numwidth 3

while 1

    locate 0,0
    print day   ,ocxGet(Object&,Day)
    print month ,ocxGet(Object&,Month)
    print year  ,ocxGet(Object&,Year)
    waitinput
    case %umessage=16:break

endwhile

ocxMethod(Object&,AboutBox)
destroywindow(Control&)
ocxDeInit()

Mach mind The Memory-Variables O# and C#, around the Result of ocxCreate() abzuholen. and already functions it too under XProfan 11. I suppose, that too The others Examples of UwePascal likewise simply anzupassen are.

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Dieter
Zornow

OK, thanks then is it Yes well, I had only time one little rum experimentiert, then stürtze each Program ex what about me thought, this is one Bug in XProfan 11, so can mansich brill.

Greeting

Dieter

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Frank
Abbing

evident power itself Pascal The not documented (and accordingly not guaranteeing) static Speicherverwaltung of XProfan To including Version 10 To Nutze.

there's it not alone. want You say, these for me ditto gängige practice is now not any more permits? neither with herkömmlicher API? is still ambulation and give with diversen Dll-functions whom Zeiger on one LongInt To transfer.

Sebastian
König

Hello Roland,

I find the new behaviour too quite irritierend... even if it severe taken is correct, that not explizit documents was, ought to one itself with look on others Languages still hereon leave can, that the address of/ one variables not changes (at least as long as tappt im dunkeln validly is, means with global variables lasting and with local for duration the procedure- or. Funktionsaufrufs). If not More given is, could something überspitzt ask, whom sense Addr() for normal variables at all yet had...

naturally is the dynamic Address on the others Page a swell thing - can You it Perhaps so arrange, that variables, its address is determined, to one move in memory protected go?

MfG

Sebastian

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

RGH

Hello!

first of all once: The Übergabe one Wertes over The address of/ one variables on a API-function is fundamentally no trouble. Problems can evident only then in integrally special Make come along, if over these address values zurückgegeben go.

Bislang I had to that Abspeichern the variables in Delphi one statisches aray using. therefore was The number the variables too always dull, there the aray to that Programmbeginn created watts.
In XProfan 11 use I The Open Arrays in Delphi and the using evident a something others Speicherverwaltung.

I look time, whether I there on The speedy yet what turn can, wants but nothing promise.

The problem shining Yes only in very special Make aufzutreten. in the Normalfall remaining The address of/ one variables Yes objectively still consist. The problem shining Yes, there it first now to over one half-way year since the first Subscriptionsversion emerged is, only extreme seldom aufzutreten. Möglicherweise objectively only Active X.

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

RGH

want You say, these for me ditto gängige practice is now not any more permits? neither with herkömmlicher API? is still ambulation and give with diversen Dll-functions whom Zeiger on one LongInt To transfer.

with herkömmlicher API shining it furthermore no Problems To give. so as to further Experimenten looks, changes itself too objectively not The address the variables. How I supra already mentioned: Presumably exit the trouble only in rare, integrally special Make on.

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Nutzt Delphi there Heaps [...]

RGH

... and so as looks, walk on my computer To dwell (XP per SP3) The Examples of Uwe Pascal werder under XProfan 10 yet under XProfan 11. it comes always The Message CallMethod - Unbekannter name. (Yes, I have The ComCtl32.ocx registered ....) in the firm (XP per SP2 has it worked.)

then must I well still others Topics zuwenden ...

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Uwe
''Pascal''
Niemeier

Hello people!

first of all time: I have in the momentum weder XP SP3 yet XProfan 11 available, therefore can ichs not self testing.

but: The of Roland reklamierten variables having in this Version the OCX-routines directly nothing with the ActiveX-functions To do:
Compile Mark Separation

proc ocxCreate----------------------------------ocxCreate-------------------------------

    parameters ProgID$,Wnd&,xa%,ya%,xb%,yb%,ObjAddr&,CtrlAddr&
    declare Control&,IUnknown&,Object&
    Control&=control(AtlAxWin,ProgID$,$50000000,xa%,ya%,xb%,yb%,Wnd&,0,0,0)
    ~AtlAxGetControl(Control&,addr(IUnknown&))
    Object&=QueryInterface(IUnknown&,~IID_IDispatch)
    CallMethod(IUnknown&,~Release)
    long ObjAddr&,0=Object&
    long CtrlAddr&,0=Control&
    endproc---------------------------------------------------------------------------------
    declare Object&,Control&
    ocxCreate(MSCAL.Calendar.7,%hwnd,10,100,350,250,addr(Object&),addr(Control&)

The both Pointer come in Proc as ObjAddr& and CtrlAddr& on, Object& and Control& go pub again declared and end the Proc go The - as Parameter übergebenen - Pointer with LONG filled.

The problem could means too in the direct Übergabe of
addr(Variable&) as Parameter for a procedure lying or in the local Deklaration of/ one global already vorhandenen Variable...

PS: in the example becomes Version 1 the OCX-routines uses. How see it because with Version 2 from?

SeeYou
Pascal

07/01/08 ▲