Форум: "Базы";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Вниз
Запись бинарного файла в поле ADOTable Найти похожие ветки
← →
TechnoDreamer © (2004-04-04 16:46) [0]База данных MS Access, необходимо в поле "Bin" вставлять двоичные данные (из файла). Формат поля - "Поле объекта OLE". Код следующий, что неправильно? Чего то не хватает?
var
tmpBS: TStream;
tmpFS: TFileStream;
begin
if OpenDialog.Execute then
begin
ADOTable.Edit;
tmpBS:=ADOTable.CreateBlobStream(ADOTable.FieldByName("Bin"), bmReadWrite);
tmpBS.Seek(0,soFromBeginning);
tmpFS:=TFileStream.Create(odGroupPict.Filename,fmOpenRead);
tmpBS.CopyFrom(tmpFS,tmpFS.Size);
ADOTable.Post;
with tmpBS,tmpFS do Free;
end;
← →
sniknik © (2004-04-04 18:32) [1]линшнего дофига
if OpenDialog.Execute then begin
ADODataSet1.Edit;
TBlobField(ADODataSet1.FieldByName("Bin")).LoadFromFile(OpenDialog.Filename);
ADODataSet1.Post;
end;
← →
TechnoDreamer © (2004-04-04 20:01) [2]Спасибо, в принципе, то что нужно.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.058 c
