Quote Originally Posted by arthurprs
Quote Originally Posted by Robert Kosek
Show me your code and the string you're looking for. I'll tell you how to get it right. Wicked Defense uses my zip handler that uses that exact line of code.
There
[pascal]procedure Loadresources;
var
ZIP: TAbUnZipper;
RESZIP: TStream;
a: Cardinal;
path: string;
begin
a := SDL_GetTicks;
ZIP := TAbUnZipper.Create(nil);
path := ExtractFileDir(ParamStr(0)) + '\';
Writeln(path);
ZIP.OpenArchive(path+'res.zip');
RESZIP := TStream.Create;
ZIP.ExtractToStream('minefield.bmp',RESZIP);
g_minefield := LoadSDLBMPFromStream(RESZIP);
ZIP.Free;
RESZIP.free;
end;
[/pascal]

ERROR:
EstreamError with message 'Tstream.seek not implemented'
maybe this:

RESZIP := TStream.Create;
RESZIP.Seek(0, soFromBeginning);

seems that is the same of RESZIP.Position := 0;