Object und Pointer

[ATS3788]

Delphi-Quellcode:

var
_GifImage     : TGifImage;
p             : ^TGifImage;
begin
_GifImage := TGifImage.Create;
_GifImage.LoadFromStream(Stream); ;
p^ := _GifImage;
 SendMessage(TheHandle,MessageToGetPics,1, integer(p^));

Ich versuche so ein GifImage Object zu
versenden, ei und ich sehe einfach nicht,
wo mein Fehler ist.

[Christian Seehase]

Moin Martin,

_GifImage ist schon ein Pointer.
Wohin wird verschickt, und was passiert soll am Ziel passieren?

[Teekeks]

Deine Variable TGifImage ist auch schon ein Pointer.
Du legst also ein Pointer auf einen Pointer an und möchtest diesen versenden.
Das geht jedoch nicht wirklich gut. (warum weiß ich auch nicht...)
Also einfach mal mit

Delphi-Quellcode:

SendMessage(TheHandle,MessageToGetPics,1, integer(pointer(_GifImage)));

Wobei ich gerade sehe das du erste einen Pointer nutzt (p^:=bla) und dann bei dem Übertragen doch nur den Abgespeicherten Wert nutzt (integer(p^)).
Erwartest du am anderen Ende vl. dass der Pointer noch die Variable beinhaltet (also das empfangender_pointer^ gleich deiner Variablen _GifImage ist?

[ATS3788]

Danke das Problem liegt auch nicht
an der Übergabe

Delphi-Quellcode:

 SendMessage(TheHandle,MessageToGetPics,1, integer(_GifImage));

das passt schon.

Habe ein Problem das in ein TImage zu bekommen

Delphi-Quellcode:

var
p : TGifImage;
begin

 p := pointer(Msg.LParam);
  BuOpenPics.Caption := IntToStr( p.Height);

case Msg.WParam of
1: begin ImPic.Picture.Assign(p);
     end;

end;
  end;

Das ist der Empfänger da gibt es auch kein Problem
wenn ich das aus der Applikation mache.
Nur aus der DLL geht es nicht ?

[rollstuhlfahrer]

Ein Objekt ist ein komplexer Typ. Den kannst du nicht einfach von einer Anwendung in eine DLL übertragen, da beide unterschiedliche Speichermanager verwenden und nicht auf die privaten Speicher der jeweils anderen beteiligten Komponenten zugreifen können. Du kannst dein Objekt also nur entweder innerhalb der EXE oder innerhalb der DLL versenden.

Bernhard

[ATS3788]

Delphi-Quellcode:

var
p : TGifImage;
g : TGifImage;
begin

g := TGifImage.Create;


 p := pointer(Msg.LParam);
  BuOpenPics.Caption := IntToStr( p.Height);

  p.SaveToFile('d:\1.gif');

  g.LoadFromFile('d:\1.gif');

case Msg.WParam of
1: ImPic.Picture.Assign(g);


     end;
     g.Free;
  end;

Und das funktioniert auch.

Nur ich kann p nicht direkt assignen

[Bummi]

Sharemem?
ansonsten MemoryStream schreiben/lesen

[ATS3788]

Hallo das Poblem war, das ich den Stream nicht auf Position := 0
gesetzt hatte.:stupid: