Ausgangspunkt Ist ein ActiveX aus VB 6, was so aufgerufen wird<br>
Dim dll1 As UGR<br>
Set dll1 = New UGR<br>
Call dll1.UGR(2, L(), Z1, Z2, Gamma(), C(), Etalb, Lvktype, Labase,Laside, Laend, Ugi())<br>
<br>
Beschreibung der Parameter:<br>
<br>
Eingabe:<br>
L(1 To Z1, 1 To Z2) As Single:<br>
Gamma(1 To Z1) As Long:<br>
C(1 To Z2) As Long:<br>
Ausgabe:<br>
Ugi(1 To 10, 1 To 19) As Single:<br>
<br>
Beim Import im Delphi erhalte ich als Typ für diese Parameter Psafearray<br>
<br>
procedure UGR(var Index: Smallint; var L: PSafeArray; var Z1: Integer; var Z2: Integer; <br>
var Gamma: PSafeArray; var Phi: PSafeArray; var Etalb: Integer; <br>
var Lvktype: Integer; var Labase: Single; var Laside: Single; var Laend: Single; <br>
var Ugi: PSafeArray); safecall;<br>
<br>
Bei mir <br>
Gamma=> g_winkel : array[0..37] of real;<br>
L => lvk : array[0..37,0..37] of real;<br>
<br>
Die felder müssen nicht vollständig gefüllt sein. Sondern bis Z1,Z2.<br>
<br>
Wie bekomme ich meine Daten übergeben? bzw. wo gibts was zu Psafearray<br>
<br>
Dim dll1 As UGR<br>
Set dll1 = New UGR<br>
Call dll1.UGR(2, L(), Z1, Z2, Gamma(), C(), Etalb, Lvktype, Labase,Laside, Laend, Ugi())<br>
<br>
Beschreibung der Parameter:<br>
<br>
Eingabe:<br>
L(1 To Z1, 1 To Z2) As Single:<br>
Gamma(1 To Z1) As Long:<br>
C(1 To Z2) As Long:<br>
Ausgabe:<br>
Ugi(1 To 10, 1 To 19) As Single:<br>
<br>
Beim Import im Delphi erhalte ich als Typ für diese Parameter Psafearray<br>
<br>
procedure UGR(var Index: Smallint; var L: PSafeArray; var Z1: Integer; var Z2: Integer; <br>
var Gamma: PSafeArray; var Phi: PSafeArray; var Etalb: Integer; <br>
var Lvktype: Integer; var Labase: Single; var Laside: Single; var Laend: Single; <br>
var Ugi: PSafeArray); safecall;<br>
<br>
Bei mir <br>
Gamma=> g_winkel : array[0..37] of real;<br>
L => lvk : array[0..37,0..37] of real;<br>
<br>
Die felder müssen nicht vollständig gefüllt sein. Sondern bis Z1,Z2.<br>
<br>
Wie bekomme ich meine Daten übergeben? bzw. wo gibts was zu Psafearray<br>
<br>
Comment