Главная страница
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.041 c
2-1155109671
vladimirg88
2006-08-09 11:47
2006.08.27
про таймер


1-1152605075
Levin_610
2006-07-11 12:04
2006.08.27
активность пользователя


15-1154539521
matt
2006-08-02 21:25
2006.08.27
День пророка Ильи


15-1153942920
Andy BitOff
2006-07-26 23:42
2006.08.27
Встреча с пришельцами. О чём говорить и чего попросить.


6-1133493728
Component TIdNNTP
2005-12-02 06:22
2006.08.27
Indy Как избавиться от зависаний при закачке?