Текущий архив: 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.45 MB
Время: 0.037 c
