Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Использование внешнего фаила и вывод в печать, Вопрос новичка 
:(
    Опции темы
Scope
Дата 9.7.2008, 12:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 3.6.2007

Репутация: нет
Всего: нет



Доброго времени суток.
В программировании приложений я мягко сказать- не силён, так что взываю к Вашей помощи.
Встала передо мною задача- написать "простенькую программку", которая бы включала в себя 10 полей ввода и три кнопки: "Print", "Create PDF file" и "Exit". Программа по сути должна делать следующее: в корневом каталоге искать фаил, к примеру "Licence.txt", добавлять к данным этого фаила данные из полей ввода и при нажатии соответствующей кнопки выводить всё это дело в печать соответственно на принтер либо создавать PDF фаил.
З.Ы.: целесообразно ли использовать для создания PDF фаила библиотеку PDF Creator Pilot?
Знающие и сведущие мира сего- помогите начинающему в его начинаниях, хотя бы даже ссылками на похожие примеры.
Заранее благодарен smile 
PM MAIL   Вверх
MarkedOne
Дата 9.7.2008, 13:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 8.2.2008

Репутация: нет
Всего: нет



Вот код, который печатает содержимое компонента Memo.
Думаю его можно переделать под ваши нужды:
Код

procedure TForm1.Print(Memo: TMemo);
// Печать содержимого редактора c помощью свойства Printer.Canvas
var
  Y,dY,X,k: Integer;
  S: String;
begin
  if Memo.Lines.Count=0 then Exit;
  Screen.Cursor := crHourGlass;
  with Printer do
  begin
    BeginDoc;
    with Canvas do
    begin
      Font := Memo.Font;
      dY := TextHeight('1');    //    Определяем высоту строки
      Y := 3*dY;                   // Отступ от верхнего края листа
      X := PageWidth div 15;       // Отступ от левого края
      for k := 0 to Memo.Lines.Count-1    do
      begin
        // Выводим очередную строку
        TextOut(X,Y,Memo.Lines[k]);
        // Смещаемся на следующую    строку листа
        inc(Y,dY);
        if PageHeight-Y<2*dY then         // Нижний край листа?
        begin                             // Да
          NewPage;                        // Переход на новый лист
          // Выводим номер    страницы посередине листа:
          S := '- '+IntToStr(PageNumber)+'    -';
          TextOut((PageWidth-TextWidth(S))    div 2, dy, S);
          // и отчеркиваем    его от текста:
          MoveTo(X, 3*dy div    2);
          LineTo(PageWidth-X,    9*dy div 4);
          // Ордината    первой строки:
          Y := 3*dY
        end;  // if PageHeight-Y<2*dY
      end;  // for k := 0 to Memo1.Lines.Count-1    do
    end;  // with Canvas do
    EndDoc;
  end;  // with Printer do
  Screen.Cursor := crDefault;
end;

PM MAIL WWW   Вверх
zhefran
Дата 9.7.2008, 17:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 237
Регистрация: 27.9.2007
Где: Винница-Киев-Ирпе нь-?, Украина

Репутация: нет
Всего: нет



На счет Pdf: попробуй просто печатать через pdf принтер.
--------------------
Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!
PM MAIL WWW ICQ   Вверх
Scope
Дата 9.7.2008, 19:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 3.6.2007

Репутация: нет
Всего: нет



Marked one, большое спасибо! Будем ковырять..
Zhefran, такой вариант рассматривался, но не факт что на исполняющей машине будет установлен пдф принтер.
PM MAIL   Вверх
Scope
Дата 10.7.2008, 13:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 3.6.2007

Репутация: нет
Всего: нет



Господа, прошу высказать ваши предложения- нужен PDF принтер, интегрируемый в приложение.
PM MAIL   Вверх
zhefran
Дата 11.7.2008, 14:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 237
Регистрация: 27.9.2007
Где: Винница-Киев-Ирпе нь-?, Украина

Репутация: нет
Всего: нет



В таком случае используй компоненты для создания pdf файлов, почти все они платные.
Попробуй разобраться с powerpdf.

Это сообщение отредактировал(а) zhefran - 11.7.2008, 15:12

Присоединённый файл ( Кол-во скачиваний: 3 )
Присоединённый файл  PowerPdf.001 716,80 Kb
--------------------
Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!
PM MAIL WWW ICQ   Вверх
zhefran
Дата 11.7.2008, 15:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 237
Регистрация: 27.9.2007
Где: Винница-Киев-Ирпе нь-?, Украина

Репутация: нет
Всего: нет



вторая часть

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  PowerPdf.002 716,80 Kb
--------------------
Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!
PM MAIL WWW ICQ   Вверх
zhefran
Дата 11.7.2008, 15:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 237
Регистрация: 27.9.2007
Где: Винница-Киев-Ирпе нь-?, Украина

Репутация: нет
Всего: нет



третья

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  PowerPdf.003 30,95 Kb
--------------------
Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!
PM MAIL WWW ICQ   Вверх
zhefran
Дата 11.7.2008, 15:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 237
Регистрация: 27.9.2007
Где: Винница-Киев-Ирпе нь-?, Украина

Репутация: нет
Всего: нет



Файл контрольной суммы. Собирать Тоталом

З.Ы.Администраторы, если можете, то обьедините эти мои сообщения. 

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  PowerPdf.crc 0,05 Kb
--------------------
Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!
PM MAIL WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0709 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.