DES, прогресс бар

[Євгеній Бєлік]

Помогите сделать прогрессбар в делфи, вот программа(моя) но мне нужно чтобы действовал прогрессбар(хотябы только шифровки) взависимости от процесса шифровки файла, в программе есть оттельно процедура шифровки и розшифровки.
Кто сможет дописать чтобы работал прогрессбар? буду очень благодарен!!

[Simply-Art]

У меня нет некоторых компонентов, поэтому запустить и проверить не могу, но попробуйте так, в модуле DCPcrypt2.pas

unit DCPcrypt2;

interface
uses
  Classes, Sysutils, DCPconst, DCPbase64,uMain;
// дальше много кода, доходим до функции EncryptStream
function TDCP_cipher.EncryptStream(InStream, OutStream: TStream; Size: longword): longword;
var
  Buffer: array[0..8191] of byte;
  i, Read: longword;
begin
  Result:= 0;
  frmMain.Gauge1.Progress:=0;
  frmMain.Gauge1.MaxValue:=(Size div Sizeof(Buffer));
  for i:= 1 to (Size div Sizeof(Buffer)) do
  begin
    Read:= InStream.Read(Buffer,Sizeof(Buffer));
    Inc(Result,Read);
    EncryptStream(Buffer,Buffer,Read);
    OutStream.Write(Buffer,Read);
    frmMain.Gauge1.Progress:=i;
// и дальше опять много кода

Дешифрование делается аналогично, пробуйте, потом скажете если не получиться

[Євгеній Бєлік]

Ошибка "Circular unit reference to uMain".
в чём собственно проблема?

[mihali4]

В том, что две юниты ссылаются друг на друга... (uses)

[Євгеній Бєлік]

ну я уже пробывал описать один из них в implementation, но всёравно ошибка.

[Simply-Art]

Скиньте компоненты которые вы ставили для этой программы.

[Hotei]

05:33
Могу посоветовать только разбивать функции шифрования и дешифрования на итерации, что бы они сразу возвращали проценты. (Так будет правильно с точки зрения теории программирования)
Или передавать прогрессбар ссылкой и уже обращаться к методу внутри

uMain
Cipher.EncryptStream(strmInput,strmOutput,strmInput.Size,Gauge1);

DCPcrypt2
function TDCP_cipher.EncryptStream(InStream, OutStream: TStream; Size: longword; Progress:TGauge): longword;
var
  Buffer: array[0..8191] of byte;
  i, Read: longword;
begin
  Result:= 0;
  for i:= 1 to (Size div Sizeof(Buffer)) do
  begin
    Read:= InStream.Read(Buffer,Sizeof(Buffer));
    Inc(Result,Read);
    Encrypt(Buffer,Buffer,Read);
    OutStream.Write(Buffer,Read);
    Progress.AddProgress(Round((Size div Sizeof(Buffer))/100));
  end;
  if (Size mod Sizeof(Buffer))<> 0 then
  begin
    Read:= InStream.Read(Buffer,Size mod Sizeof(Buffer));
    Inc(Result,Read);
    Encrypt(Buffer,Buffer,Read);
    OutStream.Write(Buffer,Read);
    Progress.AddProgress(100);
  end;
end;

Передавай приветы Оксане Ивановне!

05:35

Сообщение от Simply-Art

Скиньте компоненты которые вы ставили для этой программы.

Компоненты все в архиве, только необходимо DCPreg.pas подкорректировать

Красные жирные циферки видны ?
Это время, когда вы отправляли свои сообщения друг за другом, подряд.
У нас есть кнопка "Правка".
Читаем правила раздела.
По правилам это приравнивается к флуду.