[borockov]

Всем добра друзья=). У меня такой вопрос, столкнулся с проблемой вывода данных из dbedit'ов и dbimage в WORD. Друзья как это можно реализовать?

[borockov]

Вот сама форма

[NumLock]

через TWordApplication к примеру. кста DBCtrls не нужны для этого.
вот тут "c:\Program Files\Borland\Delphi7\Demos\ActiveX\OleAuto\SrvCom p\Word" даже картинки в Word вставляются.

[borockov]

Сообщение от NumLock

через TWordApplication к примеру. кста DBCtrls не нужны для этого.
вот тут "c:\Program Files\Borland\Delphi7\Demos\ActiveX\OleAuto\SrvCom p\Word" даже картинки в Word вставляются.

Спасибо=))

[borockov]

Друзья, в общем разобрался с выводом из edit в word, если кому то интересно см.вложеный файл.
p.s делал всё по урокам Антона Макрушина, второй сезон. Всем добра=))

[borockov]

Друзья, возник ещё 1 вопрос. Прошу помочь тех кто разбирается в объектной модели word. Вот смотрите таким образом я делаю вывод данных из dbedit в word

Код:

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+'\sotr2.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,'DBEdit1',DBEdit1.Text);
 doc.paragraphs.item(6).Range.Text:=text;

Друзья как вывести фото из dbimage? С текстом всё понятно. Если к тексту мы обращаемся с помощью "paragraphs" то как можно обратиться к фото?

[NumLock]

см. 3-ий пост:

Сообщение от NumLock

даже картинки в Word вставляются.

[borockov]

NumLock я смотрел это, но видишь ли у меня реализовано немного по другому, потому что я не смог разобраться в этом примере. Фото я думаю можно вывести по аналогий с тем что я написал, просто я не знаю VBA и соответственно не знаю как обратиться к картинке в dbimage

[NumLock]

ты не смог разобраться в 3-х строчках (1 из них комментарий):

Код:

    {Insert data}
    DBImgFishImg.CopyToClipboard;
    WordDocument.Sentences.Last.Paste;

?
можно еще Selection.Paste использовать.

[borockov]

Выдаёт вот такую ошибку (см.прикреплённый файл) в строке WordDocument1.Sentences.Last.Paste;

[borockov]

Народ, а кто знает, есть возможность перевода картинки в строку?

[poli-smen]

Сообщение от borockov

Народ, а кто знает, есть возможность перевода картинки в строку?

Это как?
Типа на вход подаём картинку на которой нарисована избушка на курьих ножках, а на выходе получаем строку "Избушка на курьих ножках"?

[NumLock]

Код:

var
  WordApplication: OleVariant;
  WordDocument: OleVariant;
begin
  DBImage1.CopyToClipboard;
  WordApplication:=CreateOleObject('Word.Application');
  WordApplication.Visible:=True;
  WordApplication.Documents.Add(DocumentType:=wdNewBlankDocument);
  WordDocument:=WordApplication.Documents.Item(1);
  WordDocument.ActiveWindow.Selection.TypeText(Text:='1234');
  WordDocument.ActiveWindow.Selection.TypeParagraph;
  WordDocument.ActiveWindow.Selection.Paste;
  WordDocument.ActiveWindow.Selection.TypeParagraph;
  WordDocument.ActiveWindow.Selection.TypeText(Text:='abcd');
  WordDocument.ActiveWindow.Selection.TypeParagraph;
end;

Сообщение от borockov

Народ, а кто знает, есть возможность перевода картинки в строку?

<img src="data:image/gif;base64,<base64 строка>" />

[borockov]

Спасибо!!!