Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.45 MB
Время: 0.045 c
2-1158425473
KidMan
2006-09-16 20:51
2006.10.15
выполнение запроса в MySQL


3-1155541687
Term
2006-08-14 11:48
2006.10.15
Разница в скорости работы хранимой процедуры


15-1158674598
Gerlon
2006-09-19 18:03
2006.10.15
Shareware


15-1158777078
ArtemESC
2006-09-20 22:31
2006.10.15
BC_31, как откомпилить следующее...


4-1149009608
Варяг
2006-05-30 21:20
2006.10.15
Загрузка и отображение картинки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский