Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Вниз

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;




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.019 c
3-57019           red                   2002-01-24 00:23  2002.02.18  
проблема с фильтрацией


7-57223           Русский               2001-11-12 14:23  2002.02.18  
Компонент ButtonNew!


1-57072           Zool                  2002-02-01 16:45  2002.02.18  
Здравствуйте уважаемые Программисты! Ну помогите чайнику!


1-57063           SLAYER1               2002-02-01 16:59  2002.02.18  
Помогите плиз как из моей программы запустить существующий файл Excel с диска


7-57228           ATeam                 2001-10-25 15:01  2002.02.18  
Как скопировать файл в clipboard.