Фото и Word

← →
valery779 (2006-09-27 19:28) [0]

Загружаю фото в БД в форматах bmp jpg jpeg, просматриваю их через Image, хотелось бы вместе с анкетными данными выводить их Word

← →
EvS © (2006-09-27 19:38) [1]

Разрешение надо? Считай, что получил.

← →
atruhin © (2006-09-27 19:41) [2]

Одобряю

← →
YurikGL © (2006-09-27 19:49) [3]

Либо через буфер обмена, либо сохраняешь рисунок в файл и вставляешь его во Word...
Второй вариант лучше

← →
Anatoly Podgoretsky © (2006-09-27 22:04) [4]

А чем формат jpg отличается от jpeg?

← →
valery779 (2006-09-28 15:34) [5]

procedure TForm1.Button1Click(Sender: TObject);
var W:variant;
APalette :HPalette;
AFormat:Word;
AData:THandle;
begin
W:=CreateOleObject("Word.Application");
W.Visible:=true;
W.documents.Add(ExtractFileDir(Application.ExeName)+"\templ\file.doc",0);
W.ActiveDocument.Select;
Image1.Picture.SaveToClipboardFormat(AFormat,AData,APalette);
W.Selection.Paste;
end;

-- File.doc существует, но процедура создает новый ???
-- буфер пустой, --> пятая команда не работает и на .bmp и на .jpg
Нужно ли задавать AFormat,AData,APalette значения ???
Остряков прошу не беспокоится

> -- File.doc существует, но процедура создает новый ???

Open для чего по твоему существует?

> Нужно ли задавать AFormat,AData,APalette значения ???

Очень даже.

> -- буфер пустой, --> пятая команда не работает и на .bmp
> и на .jpg

Попробуй Clipboard.Assign(Image1.Picture);

Фото и Word Найти похожие ветки