Экспорт blob поля из paradox

[D-Tritus]

Здравствуйте, подскажите пожалуйста решение следующей задачи: есть база paradox, два файла: dbf - таблица и mb - с данными из полей таблицы типа ole. Соответственно в таблице есть поле типа ole, в нём хранятся (как я понимаю) ссылки на изображения. В paradox editor можно посмотреть эти изображения, но экспортировать по одной записи очень долго. Мне необходимо по всем записям из этой таблицы вытащить и сохранить изображение на которое ссылается поле ole. К базе подключение сделал, таблицу получил, но как действовать дальше не знаю. Прокопал интернет, только куски кода нашёл, но разобраться толком не получается. Подскажите или направьте куда копать?

[Stilet]

А можно посмотреть что за куски кода ты нашел?
Так то как правило можно использовать тип TBlobField. У него есть метод сохранения в файл. Единственное - тип OLE меня смущает, но все же покажи как пробовал.

[D-Tritus]

Вот красным тип поля, и собственно сами записи. Большими буквами запись - где есть ссылка, маленькими где нету.

Детально если посмотреть запись: выбираю поле, и кнопка saveblob, пишу расширение jpeg и сохраняется картинка

Это по сути задачи, теперь по коду:
много уже что перепробовал, не могу найти направление как делать точно. Нашёл вот этот код, вышибает ошибка Bitmap is not valid. Куда копать, подскажите?

procedure TForm1.Button2Click(Sender: TObject);
var
blob: tblobstream;
begin
blob:= TBlobStream (Table1.CreateBlobStream(Table1.FieldByName('Deta'),bmRead));
try
blob.seek(0, sofrombeginning);
DBImage1.Picture.Bitmap.Assign(TBLOBField(Table1.Fields[18]));
with tfilestream.create('your_name.bmp', fmcreate) do
try
copyfrom(blob, blob.size)
finally
free
end;
finally
blob.free
end;
end;

[Stilet]

Ага. Тебе нужно высосать из БД всю порнушку? )))
Все просто:

procedure TForm1.Button2Click(Sender: TObject);
var
blob: tblobstream; fs:TFileStream;
begin
with Table1 do begin
 first;
 while not eof do begin
  blob:= TBlobStream (CreateBlobStream(FieldByName('Deta'),bmRead));
  fs:=TFileStream.Create('d:\'+FieldByName('Name').AsString+'.jpg');

  try
   blob.seek(0, sofrombeginning);
   fs.CopyFrom(blob,blob.Size);
   fs.free;
   blob.free; 
  except

  end;

  next;
 end;
end;

Это с потолка, но сработать должно.

[D-Tritus]

Спасибо, всё сработало шикарно. Добавил разве что параметр для метода Create.

fs:=TFileStream.Create('d:\1\'+FieldByName('Sys').AsString+'.jpg',fmCreate);

П.С.:в данном случае нет, но если будет база с ней, то обязательно воспользуюсь скриптом

[Аватар]

Не мешало бы еще проверить на предмет наличия картинки в поле перед считыванием

[Stilet]

Добавил разве что параметр для метода Create.

А-а-а, ну да. Чет я его упустил... Старею... Принц Пенсии всетки )))

[D-Tritus]

Сообщение от Аватар

Не мешало бы еще проверить на предмет наличия картинки в поле перед считыванием

Написал такую вот конструкцию, но пара пустых всё равно попало

if not(FieldByName('Deta').Value ='')

А ещё соответственно попали размером до 100 кб, не представляющие никакой информации, их просмотреть нельзя
Но это уже всё не критично, руками можно отобрать

[Аватар]

if not FieldByName('Deta').IsNull

[D-Tritus]

Сообщение от Аватар

if not FieldByName('Deta').IsNull

Спасибо, так лучше =)