Главная страница
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.024 c
1-70208
MAX22
2003-05-10 21:53
2003.05.22
Как досрочно завершить процедуру?


7-70534
mummi
2003-03-24 15:48
2003.05.22
Соm- порт


1-70316
sirsp
2003-05-08 12:34
2003.05.22
Как уменьшить размер DLL


14-70495
Doom
2003-05-01 10:55
2003.05.22
Помогите разобраться с ошибкой в Windows 2000 !!!


6-70421
@ndronix
2003-03-16 21:10
2003.05.22
Установка связи через модем...