Оптимизация функции...

[SNUPY]

А так:

while SizeofFiles>1024 do
  begin
    sStream.CopyFrom(fs,BlockSize);
    SizeofFiles:=SizeofFiles-1024;
    Application.ProcessMessages;
  end;
  sStream.CopyFrom(fs, SizeofFiles);

Если не поможет.... то прямая дорога к Thread =)))

[prizrak1390]

SNUPY, ХА! именно ТАК щас и пробовал)))))))))))))) Реакции - NIL
А можешь показать реализацию в потоках? Вообще не хотелось бы к ним прибегать....

[SNUPY]

грубо говоря код потока:

unit Unit2;

interface

uses
  Classes;

type
  Some_Thread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation

{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure Some_Thread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ Some_Thread }
Procedure YourProcedure;
begin
//
end;

procedure Some_Thread.Execute;
begin
  FreeOnTerminate:=true;
  YourProcedure;
end;

end.

Если хочешь что бы в прогресс баре тикало, то надо создать в Главной форме процедуру которая будет прогресс в ПБ на одни квант прибавлять... потом в потоке при помощи синхранайз вызывать его =)))





КСТАТЕ!!!! А ты попробуйка для начала в своем случаи копировать в память, а потом из памяти на жесткий извлекай....

[SNUPY]

Вот это не грубый вариант потока =))) (только поленился сделать обновление прогресс бара):

unit Unit2;

interface

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

type
  Some_Thread = class(TThread)
    constructor CreateThead(AFileName : String; ASizeofFiles : Integer;
      AProgressBar : TProgressBar);
  private
    FileName : String;
    SizeofFiles : Integer;
    ProgressBar : TProgressBar;
  protected
    procedure Execute; override;
  end;

implementation


procedure SplitFile(FileName : String; SizeofFiles : Integer; ProgressBar : TProgressBar);
var
i : Word;
fs, sStream: TFileStream;
SplitFileName: String;
begin

fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
  for i := 1 to Trunc(fs.Size / SizeofFiles) + 1 do
  begin
    SplitFileName := ChangeFileExt(FileName, '.'+ FormatFloat('000', i));
    sStream := TFileStream.Create(SplitFileName, fmCreate or fmShareExclusive);
     try
       if fs.Size - fs.Position < SizeofFiles then
         SizeofFiles := fs.Size - fs.Position;
       sStream.CopyFrom(fs, SizeofFiles);
//       ProgressBar.Position := Round((fs.Position / fs.Size) * 100);
     finally
       sStream.Free;
     end;
   end;
finally
   fs.Free;
end;

end;

constructor Some_Thread.CreateThead(AFileName: string;
  ASizeofFiles: Integer; AProgressBar: TProgressBar);
begin
  inherited Create(true);
  Self.FileName:=AFileName;
  self.SizeofFiles:=ASizeofFiles;
  Self.ProgressBar:=AProgressBar;
  Self.Resume;
end;

procedure Some_Thread.Execute;
begin
  FreeOnTerminate:=true;
  SplitFile( FileName,SizeofFiles,ProgressBar);
end;

end.

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  Thr: Some_Thread;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Thr:=Some_Thread.CreateThead(...............);
end;

end.

[prizrak1390]

SNUPY, спасибо...вот только ошибку доступа тут выдаёт:
Self.FileName:=AFileName;

[SNUPY]

Надо будет исправить на вот это:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Thr:=Some_Thread.CreateThead(...............);
end;

01:15

Вот кстате версия где ПрогрессБар работает:

unit Unit2;

interface

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

type
  Some_Thread = class(TThread)
  private
    FileName : String;
    SizeofFiles : Integer;
    ProgressBar : TProgressBar;
    ProgressBarPosion:Integer;
  protected
    procedure Execute; override;
    procedure UpdateProgressBar{(position:integer)};
    procedure SplitFile(FileName : String; SizeofFiles : Integer; ProgressBar : TProgressBar);
  public
    constructor CreateThead(AFileName : String; ASizeofFiles : Integer;
      AProgressBar : TProgressBar);
  end;

implementation

uses Unit1;

procedure Some_Thread.SplitFile(FileName : String; SizeofFiles : Integer; ProgressBar : TProgressBar);
var
i : Word;
fs, sStream: TFileStream;
SplitFileName: String;
begin

fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
  for i := 1 to Trunc(fs.Size / SizeofFiles) + 1 do
  begin
    SplitFileName := ChangeFileExt(FileName, '.'+ FormatFloat('000', i));
    sStream := TFileStream.Create(SplitFileName, fmCreate or fmShareExclusive);
     try
       if fs.Size - fs.Position < SizeofFiles then
         SizeofFiles := fs.Size - fs.Position;
       sStream.CopyFrom(fs, SizeofFiles);
//       ProgressBar.Position := Round((fs.Position / fs.Size) * 100);
      ProgressBarPosion:=Round((fs.Position / fs.Size) * 100);
      Synchronize(UpdateProgressBar);
     finally
       sStream.Free;
     end;
   end;
finally
   fs.Free;
end;

end;

constructor Some_Thread.CreateThead(AFileName: string;
  ASizeofFiles: Integer; AProgressBar: TProgressBar);
begin
   inherited Create(True); 
  Self.FileName:=AFileName;
  self.SizeofFiles:=ASizeofFiles;
  Self.ProgressBar:=AProgressBar;
  Resume;
end;

procedure Some_Thread.Execute;
begin
  FreeOnTerminate:=true;
  SplitFile( FileName,SizeofFiles,ProgressBar);
end;

procedure Some_Thread.UpdateProgressBar;
begin
  ProgressBar.Position := ProgressBarPosion;
end;

end.

У нас принято пользоваться кнопочкой "Правка".

[prizrak1390]

SNUPY,спасибо, реально выручил. Обязательно укажу тебя в разделе:About)))))))

[SNUPY]

Да всегда пожалуйста =)))) Где-то я помог, где-то мне помогли... вот и так выживаем =)))