Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.08.27;
Скачать: CL | DM;

Вниз

Потомок TFileStream   Найти похожие ветки 

 
Vendict ©   (2006-07-15 17:46) [0]

Такая ситуация. Есть задумка. Создаётся потомок от TFileStream и переписывается так, чтобы при чтении и записи на лету расшифровывалось и зашифровывалось соответственно. Тут и появляются странные грабли.


Type
 TBytes = array[0..MaxInt-1] of Byte;

 TCriptoFile = class (TFileStream)
.....
   Function Write(const Buffer; Count: Longint): Longint; override;
 End;

.......
Var
b:TBytes;

Function TCriptoFile.Write;
Var
a:array of Byte;
i:integer;
// b:TBytes;
Begin
FillChar(b,SizeOf(b),0);
SetLength(a,Count);
For i:=0 to count-1 do
 a[i]:=TBytes(Buffer)[i];

........// шифруем a по какому либо алгоритму

For i:=0 to count-1 do
 b[i]:=a[i];

Inherited Write(b, Count);
End;


и самое странное. при попытке
 Inherited Write(a, Count);
пишется чёрт знает что,
так же как написано выше, при вызове метода, например,
 Memo.Lines.SaveToStream(FS)
возникает ошибка, что-то вроде "Write Stream Error", но файл нормально записывается. как данные грабли обойти ?


 
Джо ©   (2006-07-15 18:05) [1]

Result := inherited Write(b[0], Count);

?


 
Ketmar ©   (2006-07-15 20:09) [2]

а почему бы не делать агрегирование? что-то вроде
constructor Create (aStream: TStream);
тогда можно любой поток кодировать.


 
Vendict ©   (2006-07-15 20:26) [3]

Джо ©   (15.07.06 18:05) [1]
Result := inherited Write(b[0], Count);


не ожидал такого решения. только без [0]. нужен был "Result" ...



Страницы: 1 вся ветка

Текущий архив: 2006.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.067 c
3-1150381411
Urvin
2006-06-15 18:23
2006.08.27
Счетчик (?) в Firebird


2-1154787406
Reaktor
2006-08-05 18:16
2006.08.27
Как изменить цвет объекта Button?


3-1150877258
Mishenka
2006-06-21 12:07
2006.08.27
Запись файла нулевой длины


2-1155116069
DelphiLexx
2006-08-09 13:34
2006.08.27
Скопировать все данные из TRxMemoryData в TFIBDataSet


15-1153983484
Иксик
2006-07-27 10:58
2006.08.27
Зотов