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

Вниз

dbExpress   Найти похожие ветки 

 
Илья   (2001-12-28 15:26) [0]

Уважаемые господа, кто поможет записать BLOB-овское поле.

Делаю:

var
cbs:TStream;
begin
with DataModule,QueryBlob do
begin
Edit;
cbs:=CreateBlobStream(FieldByName("FIELD_BLOB"),bmReadWrite);
try
cbs.Position:=0;
Editor.Lines.SaveToStream(cbs);
Post;
ApplyUpdates(0);
finally
cbs.Free
end
end
end


 
Vadim ©   (2001-12-29 09:06) [1]

Если речь идёт о строках, можно не изворачиваться:
QueryBlob.Params[0].AsBlob := Editor.Lines.Text;


 
Yura_Neo ©   (2002-01-24 12:48) [2]

Вот выдрал рабочий кусок (храню иконки в BLOB(dbExpress,TSQLClientDataSet)), может поможет:

S: TMemoryStream;

S := TMemoryStream.Create;
try
imIcon.Picture.Icon.SaveToStream(S);
S.Position := 0;
cdsIcon.Edit;
cdsIconIBLOB.LoadFromStream(S);
cdsIcon.Post;
cdsIcon.ApplyUpdates(10);
finally
S.Free;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.012 c
3-56998
навичек
2002-01-24 03:28
2002.02.18
Чегото непонятное с TTable (или со мной:( )


4-57269
Dimaond Cat
2001-12-18 01:25
2002.02.18
Закрасить кнопку, (также вопрос к Ю.ЗОТОВУ)


1-57069
novomod
2002-01-31 14:24
2002.02.18
HELP. Алгоритм.


4-57251
Digitman
2001-11-05 13:30
2002.02.18
Какой ресурс в NT жестко ассоциирован с хэндлом со значением 4 ?


14-57195
zero
2001-12-28 11:38
2002.02.18
RxLib и Delphi6.0