Вывод картинки из dbimage в word

@borockov · Регистрация: 05.11.2012

Author24 — интернет-сервис помощи студентам

Друзья, такой вопрос как вывести картинку из dbimage в word. Я разобрался с тем как выводить данные из dbedit в word, с использованием шаблона word (.dot). Думал по аналогий вывести и из dbimage но не тут то было.

Delphi

procedure TForm3.Button1Click(Sender: TObject);
var
word,doc:OleVariant;
str,text,type1,foto:string;
begin
Getdir(0,str);
 word:=CreateOleObject('Word.Application');
 word.documents.open(str+'\sotr3.dot');
 //Вывод первого абазаца
 doc:=word.documents.item(1);
 text:=doc.paragraphs.item(1).Range.Text;
 text:=Replace(text,'DBEdit3',DBEdit3.Text);
 text:=Replace(text,'DBEdit4',DBEdit4.Text);
 text:=Replace(text,'DBEdit5',DBEdit5.Text);
 doc.paragraphs.item(1).Range.Text:=text;
 //Вывод первого абазаца
 
 //Вывод второго абзаца(Табельный номер)
  doc:=word.documents.item(1);
 text:=doc.paragraphs.item(3).Range.Text;
 text:=Replace(text,'DBEdit1',DBEdit1.Text);
 doc.paragraphs.item(3).Range.Text:=text;
 //Вывод второго абзаца(Табельный номер)
 
  //Вывод должности
  doc:=word.documents.item(1);
 text:=doc.paragraphs.item(6).Range.Text;
 text:=Replace(text,'DBEdit7',DBEdit7.Text);
 doc.paragraphs.item(6).Range.Text:=text;
 //Вывод должности
  word.visible.true;
end;

В принципе всё очень примитивно с выводом текста из dbedit, но вот блин dbimage никак не могу расколоть. Помогите пожалуйста, буду очень благодарен!

@Игорь[Igor] · 06.11.2012, 04:51

Как то так

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var
  tformat, tappbrd: OleVariant;
  len, a, b, vstart, vend: OleVariant;
begin
  WordApplication1.Connect;
  WordApplication1.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
 
  WordApplication1.Visible:=true;
 
  WordDocument1.Range.InsertParagraphAfter;
  WordApplication1.Selection.InsertAfter('fkjghdfjkghkafhpicturejkasgdf');
 
  WordDocument1.Range.InsertParagraphAfter;
  a:=0;
  b:=0;
  WordDocument1.Tables.Add(WordDocument1.Range(a, b), 5, 5, EmptyParam, EmptyParam);
  tformat:=wdTableFormatGrid1;
  tappbrd:=wdTableFormatApplyBorders;
  i:=1;
  WordDocument1.Tables.Item(i).AutoFormat(tformat, tappbrd, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
 
//  WordDocument1.Range.InsertParagraphAfter;
{  Clipboard.Assign(Image1.Picture);
  a:=0;
  b:=0;
  WordDocument1.Frames.Add(WordDocument1.Range(a, b));
  i:=1;
  WordDocument1.Frames.Item(i).Height:=Image1.Height;
  WordDocument1.Frames.Item(i).Width:=Image1.Width;
  WordDocument1.Frames.Item(i).Select;
  WordApplication1.Selection.Paste;}
 
  len:=Length(WordDocument1.Range.Text)-30;
  for j:=0 to len-8 do
  begin
    a:=j;
    b:=j+7;
    if WordDocument1.Range(a, b).Text='picture' then
    begin
      vstart:=j;
      vend:=j+7;
    end;
  end;
  WordDocument1.Range(vstart, vend).Select;
 
{  WordDocument1.Range.InsertParagraphAfter;
  a:=0;
  b:=0;
  WordDocument1.Tables.Add(WordDocument1.Range(a, b), 5, 5, EmptyParam, EmptyParam);
  tformat:=wdTableFormatGrid1;
  tappbrd:=wdTableFormatApplyBorders;
  i:=1;
  WordDocument1.Tables.Item(i).AutoFormat(tformat, tappbrd, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);}
end;

@Mawrat · 06.11.2012, 09:09

Здесь придётся картинку сначала сохранить в файл, а потом можно будет её загрузить в документ MS Word.
Предположим, wdDoc - документ типа Word.Document, wdRng - диапазон Word.Range, на место которого надо вставить картинку.

Delphi

1 2	var wdDoc, wdRng : Variant; //В Delphi 5 и более ранних: OleVariant.

1.

Delphi

1 2	wdDoc.InlineShapes.AddPicture(FileName:=<Picture_FileName>, LinkToFile:=False, SaveWithDocument:=True, Range:=wdRng);

2.

Delphi

1 2	wdDoc.Shapes.AddPicture(FileName:=<Picture_FileName>, LinkToFile:=False, SaveWithDocument:=True, Left:=<Left>, Top:=<Top>, Width:=<Width>, Height:=<Height>, Anchor:=wdRng);

Здесь:
- Left, Top - координаты левого верхнего угла картинки относительно верхней позиции диапазона wdRng (Anchor:=wdRng).
- Width, Height - размер изображения в документе (оригинальный размер изображения может быть другим).
3. Если надо вставить изображение на полотно для рисования в документе.

Delphi

var
  wdDoc, wdCnvShp : Variant; //wdCnvShp - полотно для рисования.
...
begin
...
  wdCnvShp.AddPicture(FileName:=<Picture_FileName>, LinkToFile:=False,
    SaveWithDocument:=True, Left:=<Left>, Top:=<Top>, Width:=<Width>, Height:=<Height>);

@borockov · 06.11.2012, 15:23 **[ТС]**

Блин, вроде логически всё правильно, не понимаю почему не работает, вылетает вот такая ошибка
"type not allowed in variant dispatch call". Не хочет работать не в какую=(

@Mawrat · 06.11.2012, 23:56

Это значит, какой-то параметр при вызове метода COM имеет "неправильный" тип. Надо код посмотреть. Вместе с участками, где формируются объекты, которые в качестве параметров передаются.

@borockov 4 / 4 / 3 Регистрация: 05.11.2012 Сообщений: 245
	06.11.2012, 15:23 [ТС]	4
	Блин, вроде логически всё правильно, не понимаю почему не работает, вылетает вот такая ошибка "type not allowed in variant dispatch call". Не хочет работать не в какую=( 0

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	06.11.2012, 23:56	5
	Это значит, какой-то параметр при вызове метода COM имеет "неправильный" тип. Надо код посмотреть. Вместе с участками, где формируются объекты, которые в качестве параметров передаются. 0