| |
|
|
Dieter Zornow | i think its another trouble in XProfan 11, have straight too over again The OCX - Examples of Uwe Pascal n. tested. under XProfan 10 runs everything yet correct. under XProfan 11 RC 8 only Abstürze each example.
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 | Dieter Zornow
i think its another trouble in XProfan 11, have straight too over again The OCX - Examples of Uwe Pascal n. tested. under XProfan 10 runs everything yet correct. under XProfan 11 RC 8 only Abstürze each example.
greeting
Dieter
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: CompileMarkSeparationwindow 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: CompileMarkSeparationwindow 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 | 06/30/08 ▲ |
|
|
|
|
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 | 06/30/08 ▲ |
|
|
|
|
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: [...] | 06/30/08 ▲ |
|
|
|
|
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 | 06/30/08 ▲ |
|
|
|
|
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 | 06/30/08 ▲ |
|
|
|
|
| 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 | 06/30/08 ▲ |
|
|
|
|
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: CompileMarkSeparation
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 |
|
|
| |
|
|