Ошибка в статье = ошибка в рограмме.

[Alex Cones]

http://programmersclub.ru/ahillesarhiv/
В этой статье подробно описана процедура архивации\разархивации, но похоже допущена ошибка в орфографии или не описана переменная. Программа немного ругается на строку:

   bytesread:=decompressStream.Read(mainbuffer,buffer_size);

Мол такая переменная не описана. Что делать?

[Stilet]

Никаких ошибок:

mainbuffer:array[0..buffer_size-1] of char; // константа нужна для универсальности

//её можно (т.е. нужно) объявить где-нибудь в начале


Поэтому константе buffer_size лучше присвоить значение 1024 (это самое оптимальное значение - проверено опытом!!!).

Читать просто нужно внимательно.

[Alex Cones]

А теперь не принимает какой-либо < Путь к результату >. На всех ругается. Уже пробовал указывать и папку и файл... ( в процедуре разархивации)

[Stilet]

А теперь не принимает какой-либо

Код, как грится, в студию )
И текст ошибок

[Alex Cones]

unit Unit18;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Zlib, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  source,dest:TFileStream;
  decompressStream:TDecompressionStream;
  bytesread:integer;
  mainbuffer:array[0..1023] of char;
begin
  source:=TFileStream.Create('D:\PROGRAMMING\DELPHI\Delphi\Projects\1.zip',fmOpenRead);
  dest:=TFileStream.Create('D:\PROGRAMMING\DELPHI\Delphi\Projects\TEST\1.bmp',fmCreate);
  decompressStream:=TDecompressionStream.Create(source);
  try
  repeat
   bytesread:=decompressStream.Read(mainbuffer,1024);
   dest.Write(mainbuffer,bytesread);
  until bytesread<1024;
  except
  decompressStream.Free;
  source.Free;
  dest.Free;
  exit;
  end;
  decompressStream.Free;
  source.Free;
  dest.Free;
end;
end.

1:При этом пути
2: При пути без 1.bmp

[Stilet]

D:\PROGRAMMING\DELPHI\Delphi\Projec ts\TEST\

Ошибка вылезет если у тебя такой папки нет.
Пройди пошагам отладчиком - на какой строке выбивает?

[Alex Cones]

Все во вложениях.

[Stilet]

Ну дык значит нет такой папки. Чтоб заработало нужно проверять существует она и лежащий в ней файл али нет.

[Alex Cones]

папка существует.bmp (45.9 Кб, 1 просмотров)

Папка сама есть а вот что значит

и лежащий в ней файл

???
Ведь это выходная папка.

[DarkEvil]

я б это:

 source:=TFileStream.Create('D:\PROGRAMMING\DELPHI\Delphi\Projects\1.zip',fmOpenRead);
  dest:=TFileStream.Create('D:\PROGRAMMING\DELPHI\Delphi\Projects\TEST\1.bmp',fmCreate);

зделал так:

if OpenDialog1.Execute then
source:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
if SaveDialog1.Execute then
dest:=TFileStream.Create(SaveDialog1.FileName,fmCreate);