ShadowFlare's Realm - Print Page

ShadowFlare's Realm
http://sfsrealm.hopto.org/cgi-bin/yabb2/YaBB.pl
ShadowFlare's Realm Forums >> Program Development >> How to decompress w3g file on Delphi?
http://sfsrealm.hopto.org/cgi-bin/yabb2/YaBB.pl?num=1127291461

Message started by Wi34rD on Sep 21^st, 2005, 10:31am

Title: How to decompress w3g file on Delphi?
Post by Wi34rD on Sep 21^st, 2005, 10:31am

I bad speak english, so exuse me, plz.

Title: Re: How to decompress w3g file on Delphi?
Post by wulfskin on Sep 22^nd, 2005, 9:20pm

Hello,

an extract out of my program:
Code:

for I := 1 to FBlockCount do begin
BlockSize := ReadWord;
Seek(6, soFromCurrent);
ZipStream := TMemoryStream.Create;
ZipStream.CopyFrom(FileStream, BlockSize);
DezipStream := TZDecompressionStream.Create(ZipStream);
ReplayStream.CopyFrom(DezipStream, 0);
DezipStream.Free;
ZipStream.Free;
end;

Google for Ziblib and Delphi to get the unit for extraction.

Regards,
Hape

Title: Re: How to decompress w3g file on Delphi?
Post by Wird on Aug 28^th, 2006, 10:40am

Who can give me source-code on Delphi?

Title: Re: How to decompress w3g file on Delphi?
Post by wulfskin on Aug 28^th, 2006, 11:13am

Hello,

my program "Replay Explorer" is open source and written in delphi. The source code is not documented/commented, sorry.
You may want to look at my source:
http://sourceforge.net/projects/rep-ex.
Extraction is in unit "w3g.pas".
If you got any further question, you're welcome to ask!

Regards,
Hape