English
Bugs and vermeintliche

Completed: Active-X Examples of Uwe Pascal n.

 

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:
CompileMarkSeparation
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:
CompileMarkSeparation
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
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.
 
06/30/08  
 




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  [...]  ?
 
06/30/08  
 




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
 
07/01/08  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

9.114 Views

Untitledvor 0 min.
RudiB.03/17/22
Andre Rohland12/30/13
Pedro Miguel08/26/13
Georg Hovenbitzer05/28/13
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie