I am trying to SingleDataFileStorage with ZenGL and probably there is something wrong in my code:
Code:
function SFDS_Tex_Load(FileName,Extension :string) : zglPTexture;
var
TempStream : TMemoryStream;
Reader :TSFDSFileReader;
OutStream:TStream;
OutStreamSize:Int64;
begin
TempStream := TMemoryStream.Create;
Reader := TSFDSFileReader.Create('data.sfds',0 ); //Open GPK File
OutStream := Reader.OpenStream(FileName, OutStreamSize);
TempStream.LoadFromStream(OutStream);
rama.Memory:= TempStream.Memory;
rama.Size := OutStreamSize;
rama.Position:=0;
Result := Tex_LoadFromMemory( rama, Extension);
TempStream.Free;
TempStream := nil;
OutStream.Free;
OutStream:=nil;
end;
Bookmarks