Forum: Programmieren allgemein
by ATS3788,
4. Jan 2011
Hallo das Poblem war, das ich den Stream nicht auf Position := 0
gesetzt hatte.:stupid:
Forum: Programmieren allgemein
by ATS3788,
3. Jan 2011
var
p : TGifImage;
g : TGifImage;
begin
g := TGifImage.Create;
p := pointer(Msg.LParam);
BuOpenPics.Caption := IntToStr( p.Height);
Forum: Programmieren allgemein
by ATS3788,
3. Jan 2011
Danke das Problem liegt auch nicht
an der Übergabe
SendMessage(TheHandle,MessageToGetPics,1, integer(_GifImage));
das passt schon.
Habe ein Problem das in ein TImage zu bekommen
var
p : TGifImage;
Forum: Programmieren allgemein
by ATS3788,
3. Jan 2011
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