[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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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 из них комментарий):

Код:

1 2 3

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

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

[borockov]

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

[borockov]

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

[poli-smen]

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

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

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

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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]

Спасибо!!!