[AlexandrAA]

Здравствуйте! Я заполняю базу данных из анкет сделанных в Word'е, в анкете есть фотография, и вот ее я ни как не могу сохранить в базе. Для картинки создано BLOB поле, и вот кусок кода где я пытаюсь сначала вытащить картинку а затем сохранить в поле BLOB, но при попытке сохранить выдается исключение о неправильном формате рисунка. Везде есть примеры как вставлять рисунок в Word, а вот как его оттуда вытащить очень мало, точнее нашел всего один, по нему и пробую.

Код:

WRD.ActiveDocument.Shapes.Item(j).Select;
WRD.Selection.CopyAsPicture;
img1.Picture.Assign(Clipboard);
img1.Picture.SaveToFile('1.bmp');
fibdsPictures.Append;
// вот здесь появляется исключение о неверном формате рисунка
// файл кстати Windows открыть стандартным просмотровщиком не может,
// но Paint файл открывает
TBlobField(fibdsPictures.FieldByName('picture')).LoadFromFile('1.bmp');
fibdsPictures.Post;

Админ: Пользуемся тегами для оформления кода!