Problem bei ActiveX / OCX-Ansteuerung

[steffen_d]

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]

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]

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]

genau. Denn
procedure Beispiel(var Varname: Integer); ist das gleiche wie
procedure Beispiel(Varname: PInteger);

[steffen_d]

Zitat von SirThornberry:

genau. Denn
procedure Beispiel(var Varname: Integer); ist das gleiche wie
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]

Bei einem Double steht im Speicher:

Zitat:

Double1

Bei einem Array of Double steht im Speicher

Zitat:

Double1
Double2
Double3

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

[steffen_d]

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]

DANKE !!!
Es funktioniert.

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

Gruß
Steffen