Pointer Problem

[Rolf Frei]

Versuch mal folgendes:

Delphi-Quellcode:

procedure TMainForm.OnCLick(Sender:TObject);
var
  Data : TBytes;
begin
  SetLength(Data, 4);
  Data[0] := 1;
  Data[1] := 2;
  Data[2] := 3;
  Data[3] := 4;

  DoIt(Length(Data), Pointer(Data)); // oder Pointer(Data[0])
end;

[TurboMagic]

Das funktioniert so leider nicht.
Ich baue es jetzt auf Speicher reservieren um.

[Rolf Frei]

Du allozierst da ja eigentlich schon Speicher mit dem SetLength. Ich würde darauf tippen, dass deine DLL eventuell fasch deklariert ist. Poste doch auch bitte mal die Deklaration der DLL Definition.

Habe hier noch ein sehr gutes Dokument zu diesem Thema gefudnen, das du dir unbeding durchlensen solltest.
http://rvelthuis.de/articles/articles-dlls.html

[TurboMagic]

Asche auf mein Haupt!

@Data[0] geht doch!
Der weitere Code in der DLL hatte noch diverse andere Fehlerchen!

Was aber krachte war: Pointer(Data[0], da fehlte wohl der Addressoperator drin.
Was aber auch funktionierte war GetMem auf einen normalen Pointer und den übergeben.
Nur ist @Data[0] schöner und erspart das Umkopieren der Daten in den normalen Pointer.
Ja, man hätte dem auch einfach auf @Data[0] zuweisen können.
ABer @Data[0] ist halt am leserlichsten für meine Zwecke.

[TomyN]

Wenn die DLL von verschiedenen Sprachen (in 32Bit Systemen) aufgerufen werden soll, dann solltest Du evtl. auch StdCall als Aufrufconvention definieren.

[TurboMagic]

Hallo,

nein. Die Forderung hier war cdecl statt StdCall
wegen Plattformunabhängigkeit. Das war ja aber nicht das Problem,
sondern Copy & Paste Programmierung und dann nicht alles richtig
angepasst an die neuen Randbedingungen.

Grüße
TurboMagic