Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 31.10.2012, 18:30
Аватар для borockov
borockov borockov вне форума
Начинающий
 
Регистрация: 18.08.2012
Сообщения: 125
Репутация: 10
По умолчанию dbedit, dbimage вывод данных в word

Всем добра друзья=). У меня такой вопрос, столкнулся с проблемой вывода данных из dbedit'ов и dbimage в WORD. Друзья как это можно реализовать?
Ответить с цитированием
  #2  
Старый 31.10.2012, 19:09
Аватар для borockov
borockov borockov вне форума
Начинающий
 
Регистрация: 18.08.2012
Сообщения: 125
Репутация: 10
По умолчанию =)

Вот сама форма
Изображения
Тип файла: jpg Общая информация1.jpg (75.1 Кбайт, 15 просмотров)
Ответить с цитированием
  #3  
Старый 01.11.2012, 09:41
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

через 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  
Старый 01.11.2012, 16:02
Аватар для borockov
borockov borockov вне форума
Начинающий
 
Регистрация: 18.08.2012
Сообщения: 125
Репутация: 10
По умолчанию =)

Цитата:
Сообщение от NumLock
через TWordApplication к примеру. кста DBCtrls не нужны для этого.
вот тут "c:\Program Files\Borland\Delphi7\Demos\ActiveX\OleAuto\SrvCom p\Word" даже картинки в Word вставляются.
Спасибо=))
Ответить с цитированием
  #5  
Старый 05.11.2012, 12:14
Аватар для borockov
borockov borockov вне форума
Начинающий
 
Регистрация: 18.08.2012
Сообщения: 125
Репутация: 10
По умолчанию =)

Друзья, в общем разобрался с выводом из edit в word, если кому то интересно см.вложеный файл.
p.s делал всё по урокам Антона Макрушина, второй сезон. Всем добра=))
Вложения
Тип файла: rar word.rar (219.7 Кбайт, 41 просмотров)
Ответить с цитированием
  #6  
Старый 05.11.2012, 16:46
Аватар для borockov
borockov borockov вне форума
Начинающий
 
Регистрация: 18.08.2012
Сообщения: 125
Репутация: 10
По умолчанию =)

Друзья, возник ещё 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" то как можно обратиться к фото?
Ответить с цитированием
  #7  
Старый 05.11.2012, 17:09
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

см. 3-ий пост:
Цитата:
Сообщение от NumLock
даже картинки в Word вставляются.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #8  
Старый 05.11.2012, 18:05
Аватар для borockov
borockov borockov вне форума
Начинающий
 
Регистрация: 18.08.2012
Сообщения: 125
Репутация: 10
По умолчанию

NumLock я смотрел это, но видишь ли у меня реализовано немного по другому, потому что я не смог разобраться в этом примере. Фото я думаю можно вывести по аналогий с тем что я написал, просто я не знаю VBA и соответственно не знаю как обратиться к картинке в dbimage
Ответить с цитированием
  #9  
Старый 05.11.2012, 18:22
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Печаль

ты не смог разобраться в 3-х строчках (1 из них комментарий):
Код:
    {Insert data}
    DBImgFishImg.CopyToClipboard;
    WordDocument.Sentences.Last.Paste;
?
можно еще Selection.Paste использовать.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #10  
Старый 05.11.2012, 18:43
Аватар для borockov
borockov borockov вне форума
Начинающий
 
Регистрация: 18.08.2012
Сообщения: 125
Репутация: 10
По умолчанию =)

Выдаёт вот такую ошибку (см.прикреплённый файл) в строке WordDocument1.Sentences.Last.Paste;
Изображения
Тип файла: jpg Без имени-2.jpg (37.1 Кбайт, 10 просмотров)
Ответить с цитированием
  #11  
Старый 05.11.2012, 21:17
Аватар для borockov
borockov borockov вне форума
Начинающий
 
Регистрация: 18.08.2012
Сообщения: 125
Репутация: 10
По умолчанию =)

Народ, а кто знает, есть возможность перевода картинки в строку?
Ответить с цитированием
  #12  
Старый 06.11.2012, 06:29
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от borockov
Народ, а кто знает, есть возможность перевода картинки в строку?
Это как?
Типа на вход подаём картинку на которой нарисована избушка на курьих ножках, а на выходе получаем строку "Избушка на курьих ножках"?
Ответить с цитированием
  #13  
Старый 06.11.2012, 09:12
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
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 строка>" />
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
borockov (06.11.2012)
  #14  
Старый 06.11.2012, 14:42
Аватар для borockov
borockov borockov вне форума
Начинающий
 
Регистрация: 18.08.2012
Сообщения: 125
Репутация: 10
По умолчанию =)))

Спасибо!!!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:12.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025