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

Вниз

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

 
Федор   (2004-11-09 21:19) [0]

Настраиваю порт:

 hCom := CreateFile("COM2",
   GENERIC_READ OR GENERIC_WRITE,
   0,    // comm devices must be opened w/exclusive-access
   nil, // no security attrs
   OPEN_EXISTING, // comm devices must use OPEN_EXISTING
   0,   // not overlapped I/O
   0    // hTemplate must be NULL for comm devices
   );
 if hCom = INVALID_HANDLE_VALUE then
   raise Exception.Create("COM2 íå ïîäêëþ÷àåòñÿ.");

 GetCommState(hCom, DCB);

 DCB.BaudRate := 9600;
 DCB.ByteSize := 8;
//  DCB.Parity := EVENPARITY;
 DCB.Parity := NOPARITY;
 DCB.StopBits := ONESTOPBIT;
 SetCommState(hCom, DCB);

 Timeouts.ReadIntervalTimeout := 50;
 Timeouts.ReadTotalTimeoutMultiplier := 1;
 Timeouts.ReadTotalTimeoutConstant := 5000;
 Timeouts.WriteTotalTimeoutMultiplier := 0;
 Timeouts.WriteTotalTimeoutConstant := 0;
 SetCommTimeouts(hCom, Timeouts);


Потом пишу:

Res := WriteFile(hCom, s, Length(s) + 1, Written, nil);

Дома все работает. А на работе - нет, а там-то как раз и нужно. hCom определен, но получается Res = False и Written = 0.

Куда смотреть, господа?


 
jack128 ©   (2004-11-09 21:34) [1]

GetLastError/RaiseLastWin32Error что говорит??


 
Федор   (2004-11-09 21:36) [2]

Ну, GetLastError говорит: 36 (или 39? - на работе дело было). И что с ним дальше делать?


 
Федор   (2004-11-09 21:39) [3]

>jack128

За RaiseLastWin32Error спасибо. Завтра посмотрю.


 
jack128 ©   (2004-11-10 01:28) [4]

Федор   (09.11.04 21:39) [3]

Названия всех констант, которые возвращает GetLastError начинаются в прифекса ERROR_ .

В Windows.pas эти константы описаны в порядке возрастания их значений - поэтому узнать эти названия не так уж и сложно. А по названию и представить, что за ошибка произошла можно..



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

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

Наверх




Память: 0.47 MB
Время: 0.038 c
14-1102058586
КаПиБаРа
2004-12-03 10:23
2004.12.26
Есть ссылки на расписание поездов из Самары в сторону Челябинска?


14-1101980129
pavel_pavel
2004-12-02 12:35
2004.12.26
Что-то с сайтом или с компом?


6-1097594243
PiOnEr
2004-10-12 19:17
2004.12.26
Mozilla & Delphi


14-1102197978
olookin
2004-12-05 01:06
2004.12.26
Авангард - Ак Барс


1-1102691235
Ольга
2004-12-10 18:07
2004.12.26
Почему плодятся процессы EXCEL.EXE (D6, Excel 2000)