Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
В дельфи написал: 12.05.11 10:31 Число просмотров: 2304
Автор: Ustin <Ustin> Статус: Elderman
Отредактировано 12.05.11 10:36 Количество правок: 2
|
uses zlib;
...
procedure ubzlib(srcfn:string);
...
begin
s:=FileToString(srcfn);
s:=substr(s,1,length(s)-4);
src:=TStringStream.Create(s);
dest:=TFileStream.Create(srcfn+'.dc',fmCreate);
t:=TDecompressionStream.Create(src);
repeat
bytesread:=t.Read(mainbuffer,1024);
dest.Write(mainbuffer,bytesread);
until bytesread<1024;
t.free;
src.free;
dest.free;
end;
...
При наличии и отсутствии жирной строки всё распаковывалось без ошибок (результат правильный, исключений не вызывает).
|
|
|
подробно о проекте
Анализ криптографических сетевых...
