AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

FreeMem und Pointer

Ein Thema von oXmoX · begonnen am 8. Jun 2005 · letzter Beitrag vom 8. Jun 2005
 
oXmoX

Registriert seit: 8. Jun 2005
85 Beiträge
 
#1

FreeMem und Pointer

  Alt 8. Jun 2005, 12:49
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
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz