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

Вниз

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

 
Алексей   (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;



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

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

Наверх




Память: 0.46 MB
Время: 0.017 c
4-70555
Axis_of_Evil
2003-03-21 15:42
2003.05.22
FindEditEx


1-70334
BDRON
2003-05-07 14:00
2003.05.22
CheckListBox.Selected


3-70120
Jaxtor
2003-04-30 12:42
2003.05.22
Check box в ячеках DBGridEh


7-70536
NorthMan
2003-03-22 18:38
2003.05.22
Люди, есть у кого работающий пример запуска процесса от


8-70407
Alex
2003-02-06 11:05
2003.05.22
неправильные