![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Всем добра друзья=). У меня такой вопрос, столкнулся с проблемой вывода данных из dbedit'ов и dbimage в WORD. Друзья как это можно реализовать?
|
#2
|
||||
|
||||
![]() Вот сама форма
|
#3
|
||||
|
||||
![]() через TWordApplication к примеру. кста DBCtrls не нужны для этого.
вот тут "c:\Program Files\Borland\Delphi7\Demos\ActiveX\OleAuto\SrvCom p\Word" даже картинки в Word вставляются. Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 01.11.2012 в 09:43. |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
borockov (01.11.2012)
|
#4
|
||||
|
||||
![]() Цитата:
|
#5
|
||||
|
||||
![]() Друзья, в общем разобрался с выводом из edit в word, если кому то интересно см.вложеный файл.
p.s делал всё по урокам Антона Макрушина, второй сезон. Всем добра=)) |
#6
|
||||
|
||||
![]() Друзья, возник ещё 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; |
#7
|
||||
|
||||
![]() см. 3-ий пост:
Цитата:
Пишу программы за еду. __________________ |
#8
|
||||
|
||||
![]() NumLock я смотрел это, но видишь ли у меня реализовано немного по другому, потому что я не смог разобраться в этом примере. Фото я думаю можно вывести по аналогий с тем что я написал, просто я не знаю VBA и соответственно не знаю как обратиться к картинке в dbimage
|
#9
|
||||
|
||||
![]() ты не смог разобраться в 3-х строчках (1 из них комментарий):
Код:
{Insert data} DBImgFishImg.CopyToClipboard; WordDocument.Sentences.Last.Paste; можно еще Selection.Paste использовать. Пишу программы за еду. __________________ |
#10
|
||||
|
||||
![]() Выдаёт вот такую ошибку (см.прикреплённый файл) в строке WordDocument1.Sentences.Last.Paste;
|
#11
|
||||
|
||||
![]() Народ, а кто знает, есть возможность перевода картинки в строку?
|
#12
|
||||
|
||||
![]() Цитата:
![]() Типа на вход подаём картинку на которой нарисована избушка на курьих ножках, а на выходе получаем строку "Избушка на курьих ножках"? ![]() |
#13
|
||||
|
||||
![]() Код:
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; Цитата:
Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
borockov (06.11.2012)
|
#14
|
||||
|
||||
![]() Спасибо!!!
|