VPF::Использование внешнего фаила и вывод в печать

Scope

Дата 9.7.2008, 12:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

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

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;

zhefran

Дата 9.7.2008, 17:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

На счет Pdf: попробуй просто печатать через pdf принтер.

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

Scope

Дата 9.7.2008, 19:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Marked one, большое спасибо! Будем ковырять..
Zhefran, такой вариант рассматривался, но не факт что на исполняющей машине будет установлен пдф принтер.

Scope

Дата 10.7.2008, 13:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Господа, прошу высказать ваши предложения- нужен PDF принтер, интегрируемый в приложение.

zhefran

Дата 11.7.2008, 14:44 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Присоединённый файл ( Кол-во скачиваний: 3 )

PowerPdf.001 716,80 Kb

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

zhefran

Дата 11.7.2008, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

вторая часть

Присоединённый файл ( Кол-во скачиваний: 2 )

PowerPdf.002 716,80 Kb

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

zhefran

Дата 11.7.2008, 15:15 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

третья

Присоединённый файл ( Кол-во скачиваний: 2 )

PowerPdf.003 30,95 Kb

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

zhefran

Дата 11.7.2008, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Присоединённый файл ( Кол-во скачиваний: 2 )

PowerPdf.crc 0,05 Kb

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

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