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

Вниз

Запись бинарного файла в поле 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
1-1081879867
Mishenka
2004-04-13 22:11
2004.05.02
Кавычки в FileNameEdit из RxLib...


1-1082275000
Master Paleva
2004-04-18 11:56
2004.05.02
Как прописать что-либо в реестр из Делфи


6-1078530063
teapot
2004-03-06 02:41
2004.05.02
как перенаправлять сетевой трафик на Делфи?


3-1081333615
Kein
2004-04-07 14:26
2004.05.02
разрушение структуры таблицы


1-1082113754
alienserg
2004-04-16 15:09
2004.05.02
offtop: Рестарт сервиса и загрузка DLL