Текущий архив: 2006.10.15;
Скачать: CL | DM;

Вниз

Фото и 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 значения ???
Остряков прошу не беспокоится

---

← →
Valery779 ©   (2006-09-28 15:36) [6]

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 значения ???
Остряков прошу не беспокоится

---

← →
EvS ©   (2006-09-28 17:48) [7]

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

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

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

Очень даже.

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.10.15;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.046 c