Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Problem bei ActiveX / OCX-Ansteuerung (https://www.delphipraxis.net/97317-problem-bei-activex-ocx-ansteuerung.html)

steffen_d 8. Aug 2007 15:15


Problem bei ActiveX / OCX-Ansteuerung
 
Hallo,
folgendes Problem:

ich habe in Delphi (Turbo Delphi 2006 für Win32) über "Komponenten/Komponente imortieren.../ActiveX-Steuerelement importieren" aus einem OCX eine Type Library erstellt.

In einer Funktion sind die var-Parameter als Double bzw. Integer konvertiert worden.

Delphi-Quellcode:
   
function DoSomething(Param1: Integer; Param2: Integer; var pParamArray1: Double; var pParamArray2: Double; var pParamArray3: Integer; var pParamArray4: Integer): Integer;
In einem Beispiel-Codeschnipsel, allerdings in C++, werden diese Var-Parameter aber als Arrays angesprochen.

Code:
DWORD         i;  
DWORD         Param1;  
DWORD         Param2;  
DOUBLE        ParamArray1[3];  
DOUBLE        ParamArray2[3];  
DWORD         ParamArray3[3];  
DWORD         ParamArray4[3];  
DWORD         eRc;

   for( i = 1; i <= 3; i++ )
   {
      ParamArray1[i] = 10000;
      ParamArray2[i] = 1000;
      ParamArray3[i] = 0;
      ParamArray4[i] = 0;
   }


eRc = m_tControl.DoSomething(Param1, Param2, ParamArray1, ParamArray2, ParamArray3, ParamArray4);
Ich muss diese Array also in Delphi auch irgendwie füllen und übergeben.
Was muss ich tun, damit ich in Delphi an diese Arrays komme?

Vielen Dank im Voraus
Steffen

SirThornberry 8. Aug 2007 15:20

Re: Problem bei ActiveX / OCX-Ansteuerung
 
wenn du die declaration nicht ändern willst brauchst du einfach nur das erste(nullte) Element des Arrays übergeben.
Denn ob du etwas als "var" oder mit Pointertyp declarierst ist intern gleich. In beiden Fällen wird die Adresse übergeben.

steffen_d 8. Aug 2007 15:53

Re: Problem bei ActiveX / OCX-Ansteuerung
 
Hallo,

im OCX muss ein gefülltes Array ankommen.
Ich muss also einfach die Arrays füllen und dann nur das jeweils nullte Element übergeben?
Im OCX ist dann trotzdem das komplette Array verfügbar?

Danke und Gruß
Steffen

SirThornberry 8. Aug 2007 16:04

Re: Problem bei ActiveX / OCX-Ansteuerung
 
genau. Denn
Delphi-Quellcode:
procedure Beispiel(var Varname: Integer);
ist das gleiche wie
Delphi-Quellcode:
procedure Beispiel(Varname: PInteger);

steffen_d 8. Aug 2007 16:20

Re: Problem bei ActiveX / OCX-Ansteuerung
 
Zitat:

Zitat von SirThornberry
genau. Denn
Delphi-Quellcode:
procedure Beispiel(var Varname: Integer);
ist das gleiche wie
Delphi-Quellcode:
procedure Beispiel(Varname: PInteger);

Hallo,

ja, schon klar, aber wenn ich das nullte Element übergebe, wird das dann wirklich als Pointer auf das Array of Double angesehen und nicht als Double?

Danke und Gruß
Steffen

SirThornberry 8. Aug 2007 16:32

Re: Problem bei ActiveX / OCX-Ansteuerung
 
Bei einem Double steht im Speicher:
Zitat:

Double1
Bei einem Array of Double steht im Speicher
Zitat:

Double1
Double2
Double3
dementsprechend ist
Delphi-Quellcode:
@Double1
das gleiche wie
Delphi-Quellcode:
@DoubleArray[0]
bei
Delphi-Quellcode:
procedure Beispiel(Variable: PDouble);
kommt also in beiden fällen die Speicheradresse von einem Double an.
Und da
Delphi-Quellcode:
procedure Beispiel(Variable: PDouble);
das gleiche ist wie
Delphi-Quellcode:
procedure Beispiel(var Variable: Double);
was wiederum das gleiche ist wie
Delphi-Quellcode:
procedure Beispiel(Variable: Pointer);
klappt es das 0te Element zu übergeben.

steffen_d 8. Aug 2007 16:50

Re: Problem bei ActiveX / OCX-Ansteuerung
 
Hallo,
ja, das 0te Element zu übergeben klappt.
Nur leider scheint aber im OCX nichts davon anzukommen.
Die Funktion lässt sich zwar aufrufen, produziert keine Fehler, tut aber leider nicht was sie soll.

Danke und Gruß
Steffen

steffen_d 8. Aug 2007 18:17

Re: Problem bei ActiveX / OCX-Ansteuerung
 
DANKE !!!
Es funktioniert. :dancer:

Hab einfach mal gebootet, dann gings. :wall:
Wahrscheinlich hatte sich irgendwas im OCX verhakt, durch meine vorherigen Fehlversuche.

Gruß
Steffen


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:51 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz