Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

LPT-порт   Найти похожие ветки 

 
Icar   (2005-07-28 15:50) [0]

Как мне подать некоторое двоичное число на линии данных ECP LPT порта? Программа для обработки уже есть. Как перевести порт в режим приёма данных?


 
tesseract ©   (2005-07-28 18:13) [1]

CreateFile, REadFile, WriteFile WaitForsingleobject, GetOvelpappedResult - Всё в Windows SDK.


 
Чапаев ©   (2005-07-28 18:59) [2]

> CreateFile, REadFile, WriteFile WaitForsingleobject, GetOvelpappedResult - Всё в Windows SDK.
Так-то оно так... Но почему-то при попытке WriteFile программулька виснет...

Есть работающий пример?


 
tesseract ©   (2005-07-29 09:57) [3]


function tezpl._SendCommand(var cmd;length:cardinal):integer;
var
tmp,nb:cardinal;
//bt:array of word;
succ:boolean;
begin
result:=-1;
_LastError:=ErrInterfaceError;
// Пишем команду
result:=_lastError;
succ:=true;
succ:=WriteFile(hCom,Cmd,length,nb,@readol);
if not succ then
           begin
           tmp:=GetLastError;
            if tmp=ERROR_IO_PENDING then
             if WaitForSingleObject(ReadOl.hEvent,1000)=WAIT_OBJECT_0 then
             begin
               if GetOverlappedResult(hCom, ReadOL, nb,false)  then  Succ:=true
             end
            end; // if not succ

// Обработка ошибок
if not succ then begin _LastError:=ErrCommandError; result:=_lastError; exit; end;
// Всё успешно
 _LastError:=ScOK; Result:=0;
end;



Страницы: 1 вся ветка

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.05 c
14-1124491610
Andy BitOff
2005-08-20 02:46
2005.09.25
Google map, помните?


2-1123885149
Витёк
2005-08-13 02:19
2005.09.25
Обработка события входа и выхода курсора мыши!


2-1124202406
Гость22
2005-08-16 18:26
2005.09.25
Почему при запуске приложения, оно запускается свернутым?


2-1124204973
Андрей Молчанов
2005-08-16 19:09
2005.09.25
невидимые TTreeNode


9-1117069966
Домовенок
2005-05-26 05:12
2005.09.25
Бесплатные модели