Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


Основы Delphi
AssignPrn
Процедура
Обрабатывает принтер как текстовый файл - простой способ печати текста unit
  procedure AssignPrn ( var FileHandle : TextFile ) ;
Описание
Процедура AssignPrn назначает принтер на FileHandle. Это означает, что последующая запись текста в этот файл будет перенаправена на принтер. Это обеспечивает простой и легкий способ формирования дампа текста на принтер.
Примечания
Предупреждение: Механизм AssignPrn полезен для простых программ, но испытывает недостаток в любом управлении печати для реального приложения.
Похожие команды
AssignFile  Связывает дескриптор файла с бинарным или текстовым файлом

CloseFile  Закрывает открытый файл

ReWrite  Открывает текстовый или двоичный файл для записи

Write  Записывает данные в бинарный или текстовый файл

WriteLn  Записывает законченную строку данных в текстовый файл

 
Пример кода : Печать нескольких слов на принтере
var
  myFile : TextFile;
  printDialog : TPrintDialog;

begin
  // Создание диалога выбора принтера
  printDialog := TPrintDialog.Create(Form1);

  // Если пользователь выбрал принтер (или значение по умолчанию), то печатайте!
  if printDialog.Execute then
  begin
    // Попытка открыть файл принтера
    AssignPrn(myFile);

    // Теперь подготовливаемся дляя записи на принтер
    ReWrite(myFile);

    // Запишите несколько известных слов в этот файл -
    // вместо этого они будут напечатаны
    WriteLn(myFile, 'Hello');
    WriteLn(myFile, 'World');

    // Закрытие фала
    CloseFile(myFile);
  end;
end;
После того, как пользователь выбирает принтер, следующий текст будет напечатан маленьким шрифтом в верхнем левом углу страницы:

Hello
World
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия