Arrays und Zugriffsverletzung

[Ex0rzist]

Hallo erstmal,

ich bin neu hier im Forum und habe auch gleich eine Frage.

Und zwar:
Wie übergebe ich einer DLL ein Array, ohne dass Zugriffsverletzungen auftreten? http://www.mysmilies.de/knirsch.gif

Ich habe es bis jetzt so versucht:

Code:

... 
[b]type[/b] 
EinDim = Array [1..10] of Integer; 

... 

function Modifiziere(Matrix1: EinDim):EinDim; 
begin 
// Modifikation des Arrays 
end; 
...

Ich hoffe, ihr könnt mir weiterhelfen.

__________

Ex0rzist

[d3g]

Hi Ex0rzist,

Du übergibst der DLL einen Pointer auf den Speicherbereich des Arrays:

(im Programm)

Code:

type
  EinDim = array[1..10] of Integer;
  PEinDim = array[1..10] of Integer;
  
var
  aEinDim: EinDim;

procedure Modifiziere(p: PEinDim); external 'MyDLL.dll';

  // ...

  // Aufruf
  Modifiziere(@aEinDim);

(in der DLL)

Code:

// type-Definitionen aus dem Programm hier herkopieren

procedure Modifiziere(p: PEinDim);
begin
  // Modifiezieren, nur statt aEinDim[xyz] benutze p^[xyz]  
end;

MfG,
d3g

[Ex0rzist]

Danke für deine Antwort.

theomega hat mir schon eine Lösung gegeben. Aber das werde ich auch nochmal ausprobieren.

Gruß,
Ex0rzist

[MathiasSimmack]

Zitat von d3g:

Du übergibst der DLL einen Pointer auf den Speicherbereich des Arrays

Aber dann bitte so:

Code:

type
  PEinDim = ^EinDim;

Dein "PEinDim" ist nämlich identisch zu "EinDim".

[Ex0rzist]

Na gut, dann mach ich es so.

Ich hatte mich schon gewundert, warum das gleich ist. Aber ich als Pointer-Newbie hab mir da nix bei gedacht.

[d3g]

Zitat:

Dein "PEinDim" ist nämlich identisch zu "EinDim".

Das ist ja mal wieder schlimm mit mir. Ich glaub, ich geh zum Arzt und lass mir Medikamente zur Konzentration verschreiben

MfG,
d3g

[Ex0rzist]

Hi,

ich hab nochmal ´ne Frage:
Wie geht das mit mehrdimensionalen dynamischen Arrays?

Ich poste hier mal meinen Code:

Für die Exe:

Code:

unit Projekt1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  ZweiDim = Array of Array of Integer;
  PZweiDim = ^ZweiDim;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen}
  public
    { Public-Deklarationen}
  end;

var
  Form1: TForm1;
  aZweiDim: ZweiDim;
Procedure Modifiziere(p: PZweiDim); external 'matrix.dll';

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
 SetLength(aZweiDim,2,2);
 aZweiDim[0][0] := 1;
 aZweiDim[0][1] := 1;
 aZweiDim[1][0] := 1;
 aZweiDim[1][1] := 1;
 Modifiziere(@aZweiDim);
end;

end.

Für die DLL:

Code:

library matrix;

uses
  SysUtils,
  Classes;

type
  ZweiDim = Array of Array of Integer;
  PZweiDim = ^ZweiDim;

procedure Modifiziere(p: PZweiDim); stdcall;
var i,k : integer;
begin
  For i := 0 to high(p) do
   begin
    For k := 0 to high(p) do
     begin
      p^[i][k] := 17;
     end;
   end;
end;

exports Modifiziere;

begin
end.

Kann mir einer von Euch sagen, was daran falsch ist?
Ich sehe vor lauter Pointern und Dimensionen schon gar nicht mehr durch.
So, wie ich das mitbekommen habe, liegt der Fehler in der DLL (von den Fehlermeldungen her).

__________

Ex0rzist

[Chewie]

Müsste man den Array-Pointer bei der Verwendung in der High-Funktion nicht auch derefenzieren? Weil dann ja ein Integer-Wert(Pointer) als Funktionsparameter verwendet wird und kein Array.

[Ex0rzist]

Ja, natürlich.

Das habe ich bloss hier vergessen. Im Programm steht es richtig - läuft aber trotzdem nicht.

_____________

Ex0rzist

[d3g]

Hi Ex0rzist,

beim übergeben der dynamischen Arrays wird nicht die Größe des Array mitgegeben. Du müssest die in Parametern der Prozedur nachreichen und dann SetLength(p^, Groesse) und SetLength(p^[xyz], GroesseZweiteDimension) ausführen.

MfG,
d3g