Objekt-Zeiger in einem String-Parameter "transportiere"?

[uups]

Hallo! Ich habe eine Funktion auszuführen (zu der ich leider kein Quellcode besitze), die mehrere Sting-Parameter enthält. Nach der Ausführung der Funktion wird ein Event ausgelöst, der einige dieser Strings wieder zum Abruf bereitstellt.

Wäre es ohne Weiteres möglich, einem String-Parameter ein Pointer auf ein Objekt zuzuweisen und diesen String dann wieder in den Pointer zu konvertieren? Eigentlich stelle ich mir ein Pointer als ein Integer vor:

s := IntToStr(integer(Pointer(MyObject)));

und dann

Obj := TMyObject(Pointer(StrToInt(s)));

sollte eigentlich klappen, tut es aber nicht und meldet eine AV bei der Umwandlung des Strings zurück in den Pointer. Was mache ich falsch?

[ghubi01]

Hallo,

eventuell so:

Delphi-Quellcode:

type
  TMyObj = class(TObject)
  private
    FStr: string;
  end;
...

procedure TForm1.Button1Click(Sender: TObject);
var
  MyObj1, MyObj2: TMyObj;
  PMyObj2: ^TMyObj;
  s: String;
begin
  MyObj1:=TMyObj.Create;
  MyObj1.FStr:='Hallo';

  s:=IntToStr(integer(@MyObj1));
  PMyObj2:=Pointer(StrToInt(s));
  MyObj2:=PMyObj2^;

  Memo1.Lines.Add(MyObj2.FStr);

  MyObj1.Free;
end;

[Zacherl]

Niemals Integer für Pointer Casts verwenden, sondern NativeUInt /UIntPtr . Sonst hast du unter 64-Bit ganz schnell ein Problem.

[ghubi01]

Hallo Zacherl,

Du hast Recht. Ich bin auch noch von einer 32-Bit Umgebung ausgegangen.
So müsste es besser sein.

Delphi-Quellcode:

  ...
  s:=UIntToStr(NativeUInt(@MyObj1));
  PMyObj2:=Pointer(StrToUInt(s));
  ...

[uups]

Perfekt, vielen Dank!