Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Файловая система
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 01.06.2006, 15:52
cad cad вне форума
Прохожий
 
Регистрация: 01.06.2006
Сообщения: 2
Репутация: 10
По умолчанию Decompres не удался или кто поможет беде

library lib;
uses
ShareMem,
SysUtils,
Classes,
FileUtil,
ZLib, IdCoderMessageDigest, IdCoder3To4;

{$R *.res}

function LoadFile(FileName: String; Compress: Boolean = True): string;
var
s: string;
f: file of Char;
i, obs: Integer;
ob: Pointer;
c: PChar;
begin
SetLength(s, GetFileSize(FileName));
AssignFile(f, FileName);
Reset(f);
i := 1;
try
while not Eof(f) do begin
Read(f, s[i]);
Inc(i);
end;
finally
CloseFile(f);
end;
if Compress then begin
CompressBuf(@s[1], Length(s), ob, obs);
c := ob;
SetLength(s, obs);
for i := 1 to obs do begin
s[i] := c^;
Inc(c);
end;
end;
Result := s;
end;

procedure SaveFile(FileName: String; const Text: string; DeCompress: Boolean = True);
var
f: file of Char;
i, obs: Integer;
ob: Pointer;
c: PChar;
begin
AssignFile(f, FileName);
Rewrite(f);
try
if DeCompress then begin
DecompressBuf(@Text[1], Length(Text), 0, ob, obs);
c := ob;
end else begin
c := @Text[1];
obs := Length(Text);
end;
for i := 1 to obs do begin
Write(f, c^);
Inc(c);
end;
finally
CloseFile(f);
end;
end;


exports
LoadFile,
SaveFile;

begin
end.

при savefile вылазит EdecompressionError че может быть (если можно на мыло)
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:33.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter