TMemoryStream

[AET]

procedure CompressFile(const sFileIn : string; const sFileOut : string; const Level : TCompLevel = clDefault);
var
 inStream, outStream, ms: TMemoryStream;
 i,s :integer;
begin
 inStream:=TMemoryStream.Create;
 outStream:=TMemoryStream.Create;
 try
  inStream.LoadFromFile(sFileIn);
   try
    CopyFrom(inStream, inStream.Size);
   finally
    Free;
   end;
   for i := 1 to Length(s) do  begin
  outStream.Read(s[i], 1);

подскажит считываю файл в память и ситываю по одному из памяти хотел произвести шифрования. для шифрования использую константу в виде массива таблиц вот пример

const
key1: array[1..64] of Byte =  (
 $D5, $EE, $74, $29, $B3, $25, $34, $B8, $13, $56,
 $37, $84, $1E, $24, $21, $17, $90, $71, $DA, $7D,
 $D6, $80, $D1, $6D, $36, $69, $6B, $8F, $C4, $C6,
 $72, $EF, $40, $12, $4C, $E9, $9E, $CF, $58, $4A,
 $F2, $84, $AD, $C4, $4D, $9A, $44, $28, $61, $1E,
 $67, $4F, $C0, $4B, $C9, $8D, $6A, $6A, $66, $4C,
 $85, $E1, $85, $9F
 );

если значения совподают то записываем адресс массива

   outStream.SaveToFile(sFileOut);
   end;
  finally
   outStream.Free;
   inStream.Free;
  end;
end;

[Aliens_wolfs]

Привет. Попробуем разобраться. Как ты сравнение делаешь?

[AET]

Сообщение от Aliens_wolfs

Привет. Попробуем разобраться. Как ты сравнение делаешь?

привет вот какраз и думаю как это зделать

procedure CompressFile(const sFileIn : string; const sFileOut : string; const Level : TCompLevel = clDefault);
var
 inStream, outStream, ms: TMemoryStream;
 i,s,a :integer;
 b: byte;
begin
 inStream:=TMemoryStream.Create;
 outStream:=TMemoryStream.Create;
 try
  inStream.LoadFromFile(sFileIn);
    try
    CopyFrom(inStream, inStream.Size);
   finally
    Free;
   end;
   for i := 1 to outStream.Size do  begin
  outStream.Read(b, 1);
  for s := 1 to 256 do
  while b <> key2[s] do begin
    inc(s);
  end;


   outStream.SaveToFile(sFileOut);
   end;
  finally
   outStream.Free;
   inStream.Free;
  end;
end;

как теперь результат записать в буфер

[Aliens_wolfs]

Так тебе зашифровать или сжать файл нужно?

[AET]

Сообщение от Aliens_wolfs

Так тебе зашифровать или сжать файл нужно?

зашифровать. в обшем масив из 256 символов и сравниваеш между символом считоного файла и масива как только они совподают записываем адрес из масива до совпадени данного символо

[Aliens_wolfs]

А расшифровываешь ты как?

[AET]

Сообщение от Aliens_wolfs

А расшифровываешь ты как?

считываешь байт из зашифрованого файла и это будет адресом в таблисе и записываеш уже значение с таблицыв расшифроваемый файл и все я его зделал но чуть по другому с старым методом но при зашифровке и расшифровке уходит много времени вот хотел переделать народ подскажите как дальше быть