Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
 
 23:45 eugeni
 
 
Во Флориде и в Королевстве сейчас  00:03[Войти] | [Зарегистрироваться]
Ответ на вопрос № 17322

16-07-2003 20:11
Прошу помоши!
Кратко излагаю задачу:
есть  плоттер  PIF01  работает  он  через COM2 порт (драйверов к нему
конечно  же  нет)  необходимо посылать данные в порт, но вот незадача
порт  нехочет работать. Привожу текст программы, может я сделал какие
нибудь  ошибки. Использую Windows 2000/XP, а пишу на Delphi7, в DOS'е
все работает т.е. порт и плоттер исправны. Заранее спасибо.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
FORM1.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
f: THandle;
i:cardinal;
p:pointer;
size:word;
buf:string;
ct: TCommTimeouts;
dcb: TDCB;
begin
f := Windows.CreateFile(PChar('COM2'), GENERIC_READ or
GENERIC_WRITE,FILE_SHARE_READ or FILE_SHARE_WRITE,
nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);

  dcb.BaudRate := 4800;
  dcb.StopBits := 1;
  dcb.Parity := NOPARITY;
  dcb.ByteSize := 8;
  if not Windows.SetCommState(f, dcb);
  or not Windows.GetCommTimeouts(f, ct) then exit error;

  ct.ReadTotalTimeoutConstant := 50;
  ct.ReadIntervalTimeout := 50;
  ct.ReadTotalTimeoutMultiplier := 1;
  ct.WriteTotalTimeoutMultiplier := 0;
  ct.WriteTotalTimeoutConstant := 10;
  if not Windows.SetCommTimeouts(f, ct)  or not
Windows.SetCommMask(f, EV_RING + EV_RXCHAR + EV_RXFLAG + EV_TXEMPTY);
then exit;


size:=8;
buf:='D';
p := @Buf;

for buf:=1 to 255 do
begin

  while size > 0 do begin
if not  WriteFile(f, p^, 1, i, nil) then exit;
  inc(integer(p)); dec(size);
  Application.ProcessMessages;
  end;
end;

Windows.CloseHandle(f);
end;
end.

P.S.  Может кто-то сталкивался с подобной задачей и остались исходники
или документация

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

09-08-2006 14:12
есть полная документация на PIF01 и дравер под Win98
el-tex@mail.ru

05-10-2003 18:01
Вопрос к Хомченко Н.Г.- есть ли у вас какая-либо документация
по плоттеру PIF-01? Какой формат передачи данных и скорость передачи?
Какой алгоритм управления,есть ли у вас описание команд? При наличии
этой информации нам помогут написать драйвер.

16-08-2003 09:47 | Сообщение от автора вопроса
Наша детская дизайнстудия тоже имеет плоттер PIF-01,но мы не можем его
запустить. Если у когото появится информация о работающей программе ,
просим сообщить на наш Е-mail : hass_studio@mail.ru

17-07-2003 16:07
Уважаемый Александр Спелицин дело говорит.
Есть дополнение:
  структуру TDCB настоятельно рекомендую инициализировать:
    а. Заполнить поле

DCBlength := SizeOf(TDCB);


    б. Вызвать функцию

GetCommState(f, DCB)

.
  тогда все поля структуры будут грамотно заполнены, если не было ошибки.

17-07-2003 01:20
Вот пример из учебного проекта:
// Открываем порт
  PortHandle := CreateFile(PChar(PortName), GENERIC_READ + GENERIC_WRITE,
                  0,                    // exclusive access
// т.е. никаких FILE_SHARE_READ и FILE_SHARE_WRITE!!!
                  nil,                // no security attrs
                  OPEN_EXISTING,
                  FILE_ATTRIBUTE_NORMAL + FILE_FLAG_OVERLAPPED, // overlapped I/O
                  0);

FILE_FLAG_OVERLAPPED в Вашем случае можно не указывать.

Далее.

  p := @Buf;
Неверно, надо писать
  p := @Buf[1];
если хотите получить адрес первого символа в строке.
В нулевом байте хранится либо длина строки, либо что-то еще, не сами символы.

RTFM!

  for buf := 1 to 255 do
Простите, но buf это строка, а не число!!!


  if not  WriteFile(f, p^, 1, i, nil) then exit;
Наверное i здесь это тоже что и LPDWORD lpNumberOfBytesWritten из F1.
Где анализ кол-ва записанных байт???

Так что читайде документацию по WinAPI функциям и анализируйте результат их выполнения. Например через GetLastError.



17-07-2003 01:19
Вот пример из учебного проекта:
// Открываем порт
  PortHandle := CreateFile(PChar(PortName), GENERIC_READ + GENERIC_WRITE,
                  0,                    // exclusive access
// т.е. никаких FILE_SHARE_READ и FILE_SHARE_WRITE!!!
                  nil,                // no security attrs
                  OPEN_EXISTING,
                  FILE_ATTRIBUTE_NORMAL + FILE_FLAG_OVERLAPPED, // overlapped I/O
                  0);

FILE_FLAG_OVERLAPPED в Вашем случае можно не указывать.

Далее.

  p := @Buf;
Неверно, надо писать
  p := @Buf[1];
В нулевом байте хранится либо длина строки, либо что-то еще, не сами символы.

RTFM!

  for buf := 1 to 255 do
Простите, но buf это строка, а не число!!!


  if not  WriteFile(f, p^, 1, i, nil) then exit;
Наверное i здесь это тоже что и LPDWORD lpNumberOfBytesWritten из F1.
Где анализ кол-ва записанных байт???

Так что читайде документацию по WinAPI функциям и анализируйте результат их выполнения. Например через GetLastError.

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
"Мы с тобой одной крови — ты и я!". Чьи это заветные слова?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования