Wie bekomme ich einen Zeiger auf ein dynamisches Array ?

[Whookie]

Hallo zusammen!
Ich hab da grad ein kleines Problem folgender Natur:

Delphi-Quellcode:

Type
  PLongword = ^TLongword;
  TLongword = Array Of Longword;


  procedure foo(pData: PLongword; Count: Integer);
  begin
    for i := 0 To Count-1 Do Do
      ... := pData^[i]
  end;


  procedure bar(const data: Array Of Longword);
  begin
    foo(@data, High(data)+1);
  end;

  

  begin
    ..
    bar([1,3,5,7]);
    ..
  end;

nur leider funktioniert @data nicht und irgendwie will es mir nicht gelingen einen vernünftigen pointer auf data zu kriegen :( (foo liegt übrigens in einer dll).

Vielleicht steh ich ja grad auf der Leitung ...

[Edit]: Korrektur TLongwords + und Longword (sowas von blöd)

[mkinzler]

data ist doch schon ein Zeiger.

[mkinzler]

[Edit: Falscher Button]

[SirThornberry]

du musst die adresse des ersten elementes übergeben.

[Whookie]

Das habe ich natürlich schon versucht, aber:

Delphi-Quellcode:

  foo(@data, High(data)+1);

und auch

Delphi-Quellcode:

  foo(@data[0], High(data)+1);

liefern den selben Wert zurück und führen zu einer EAccessviolation ...

[alzaimar]

1. PLongs deklariert, aber nie verwendet....
2. Deklaration

Delphi-Quellcode:

procedure foo(pData: PLongword; Count: Integer);

und Aufruf

Delphi-Quellcode:

procedure bar(data: Array Of Byte);
begin
  foo(@data, High(data)+1);
end;

Sind eventuell ... sagen wir ... nicht zu 100% äquivalent.

3.Parameterdeklaration und Typendeklaration sind unterschiedlich. Delphi kommt da vermutlich durcheinander, denn 'Array Of XXX' sind sowohl offene Array-Parameter als auch dynamische Arrays.

Abhilfe: verwende überall die gleiche Typendeklaration.

[Whookie]

Zitat:

Zitat von alzaimar

1. PLongs deklariert, aber nie verwendet....
2. Deklaration

Tippfehler im ersten Posting entfernt ... Problem bleibt das selbe ... ich hätte gerne einen Zeiger auf das dynamische Array, weil es mir halt garso wiederstrebt, in bar() in ein statisches array umzukopieren...

... und wie gesagt foo() befindet sich in einer dll (die nicht von mir stammt) die einfach einen pointer auf ein array von longword erwartet. da is nix zu holen mit gleichen Definitionen.

... und durcheinander kommen sollte Delphi schon garnicht ??

[mkinzler]

Zitat:

du musst die adresse des ersten elementes übergeben.

also

Delphi-Quellcode:

foo(@data[0], High(data)+1);

[SirThornberry]

wenn die funktion in einer Dll ist erwartet sie einen Pointer auf das erste Element des Arrays.
Zudem solltest du die Aufrufkonvention beachten.

[Lossy eX]

Du musst in jedem Fall auch auf die Typen achten. Du kannst nicht die Größe eines array of byte auf ein array of longword übertragen. Denn 100 Elemente in einem array of byte sind gerade mal 25 in einem array of longword.