Hallo zusammen!
Hab grad ein Problem mit Pointern und komme einfach nicht weiter.
Ich greife in meiner Applikation auf eine C-Library (OpenCV) zu und in C sind (wenn ich das richtig verstehe) normale Arrays implizit typisierte Pointer, denen ein entsprechend großer Speicherbereich zugewiesen wird. In C kann man ja typisierte Pointer auch so wie Arrays ansprechen ...also mit pointerName[index] zum Beispiel. Da soetwas in Delphi nicht geht habe ich mir folgende Hilfsfunktionen gebaut, mit der in komfortablen Zugriff auf die Array- (bzw. eigentlich Pointer-) Elemente habe:
Delphi-Quellcode:
procedure SetElement64d(Vector: PDouble;
Index: Integer; Value: Double);
begin
Inc(Vector,
Index);
Vector^ := Value;
Dec(Vector,
Index);
end;
function GetElement64d(Vector: PDouble;
Index: Integer): Double;
begin
Inc(Vector,
Index);
Result := Vector^;
Dec(Vector,
Index);
end;
(Es scheint übrigns keinen Unterschied zu machen, ob ich Vector als Referenz (also mit var) ober per Call By Value übergebe!)
Natürlich funktioniert das ganze nur, wenn man zuvor die benötigte Menge Speicher allokiert, z.B.:
Delphi-Quellcode:
var
TestVector: PDouble;
begin
GetMem(TestVector, SizeOf(PDouble) * 4000);
SetElement64d(TestVector, 10, 0.1);
assert(GetElement64d(TestVector, 10) = 0.1);
FreeMem(TestVector, SizeOf(PDouble) * 4000);
end;
Meine Frage ist jetzt:
Warum bekomme ich eine EInvalidPointer
Exception bei der Freigabe des Speichers in der letzten Zeile (das assert macht keine Probleme)? Besonders seltsam ist: Das ganze hatte ich zuvor schonmal für Single-Pointer (also 32-Bit-Float) geschrieben. Da hat es funktioniert. Noch schlimmer: auch die 64-Bit-Double-Version funktioniert manchmal ...wenn ich an völlig anderer Stelle in meiner Applikation Änderungen vornehme, die eigentlich absolut nichts damit zu tun haben.
Ich sitze jetzt schon mehrere Tage an dem Problem und meine Verzweiflung könnte nicht größer sein . Mal sehen ob ich ich wenigstens einen Tip bekomme.
Ach ja, ich verwende übrigens Delphi 7.0 ...könnte es möglicherweise durch ein Update behoben werden??
Gruß,
Jan