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'
Hi arthurprs,
the problem here is that you are directly creating a TStream when infact you should be using one of it's descendents, like TMemoryStream for example instead.

Just try changing the TStream references to TMemoryStream and see if that helps.

cheers,
Paul