кодирование потоков данных

← →
Алексей (2003-05-01 12:27) [0]

begin
Table1.Edit;
Stream1 := TBlobStream.Create(Table1Data, bmReadWrite);
StreamMem:=TMemoryStream.Create;
try
RichEdit1.Lines.SaveToStream(StreamMem);
Size:= StreamMem.Size;
StreamMem.Seek(soFromBeginning, 0);
Stream1.CopyFrom(StreamMem, Size);
finally
Stream1.Free;
StreamMem.Free;
end;
Table1.Post;
end;

процедура считывания из блоб-поля в ричьедит

procedure TForm1.Read_from_Blob(Sender: TObject);
var
Stream1: TStream;
s: string;

begin
Stream1 := Table1.CreateBlobStream(Table1.FieldByName("Data"), bmRead);
try
RichEdit2.Lines.LoadFromStream(Stream1);
finally
Stream1.Free;
end;
end;

в приведенном примере все работает как часы!!
у меня не получается закодировать любым алгоритмом поток данных
перед его записью в таблицу и соответственно считать его от туда.
помогите примером на email: sena427@rambler.ru

← →
Алексей (2003-05-01 12:32) [1]

***********************
комментарий автора вопроса
не понятно почему, но эта часть вопроса не попала в форум с первого раза...
***********************

Здравствуйте. Помогите пожалуйста.
есть таблица, типа PARADOX, есть поле, формата BLOB.

процедура записи в блоб-поле из ричьедита

procedure TForm1.Write_to_Blob(Sender: TObject);
var
Stream1: TBlobStream;
StreamMem: TMemoryStream;
Size: int64;

кодирование потоков данных Найти похожие ветки