Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

кодирование потоков данных [D5, Paradox]

Алексей © (2003-05-01 12:27:00)
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:00) [1]
***********************
комментарий автора вопроса
не понятно почему, но эта часть вопроса не попала в форум с первого раза...
***********************

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

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »