cairnswm
21-06-2004, 06:40 AM
Hi All
Can anyone tell me why this code doesn't work...
procedure TForm1.FormCreate(Sender: TObject);
Var
Stream : TMemoryStream;
begin
Application.OnIdle := Form1.GameLoop;
Item := TGLXImageItem.Create(Nil);
Item.LoadTexture('C:\CairnsGames\Games\DGDev\GLXTr eem\Hut.bmp');
Item.TransparentColor := $FFFFFF;
Item.Transparent := True;
Item2 := TGLXImageItem.Create(Nil);
Stream := TMemoryStream.Create;
Item.SaveToStream(Stream);
Item2.LoadFromStream(Stream);
Stream.Free;
end;
The Line 'Item2.LoadFromStream(Stream);' gives me a 'Stream read Error'.
Also posted on the GLXtreem Forum.
Can anyone tell me why this code doesn't work...
procedure TForm1.FormCreate(Sender: TObject);
Var
Stream : TMemoryStream;
begin
Application.OnIdle := Form1.GameLoop;
Item := TGLXImageItem.Create(Nil);
Item.LoadTexture('C:\CairnsGames\Games\DGDev\GLXTr eem\Hut.bmp');
Item.TransparentColor := $FFFFFF;
Item.Transparent := True;
Item2 := TGLXImageItem.Create(Nil);
Stream := TMemoryStream.Create;
Item.SaveToStream(Stream);
Item2.LoadFromStream(Stream);
Stream.Free;
end;
The Line 'Item2.LoadFromStream(Stream);' gives me a 'Stream read Error'.
Also posted on the GLXtreem Forum.