Работа с Com-портом, помогите пожалуйста !!! [D5, Win95/98]
Twilight © (2002-01-03 09:27:00)
TComPort
Ждем сигнал в COM порт, если его нет, значит неверно выбран
номер порта, или устройство не подключено, или еще какой сбой. Как
в этом случае отменить чтение, вернуть функцию, чтобы программа не
висла.
function TComPort.WaitForAsync(var AsyncPtr: PAsync): DWORD;
var
BytesTrans, Signaled: DWORD;
Success: Boolean;
begin
if AsyncPtr = nil then
raise EComPort.CreateNoWinCode(CError_InvalidAsync);
with AsyncPtr^ do begin
Signaled := WaitForSingleObject(Overlapped.hEvent, INFINITE);
Success := (Signaled = WAIT_OBJECT_0) and
(GetOverlappedResult(FHandle, Overlapped, BytesTrans,
False));
end;
if not Success then
raise EComPort.Create(ErrorCode(AsyncPtr), GetLastError);
Result := BytesTrans;
end;
В данном случае она зацикливается на строке
Signaled := WaitForSingleObject(Overlapped.hEvent, INFINITE);
Ставил вместо INFINITE определенное число миллисекунд -224 и:
if not Success then begin
halt;
end;
В этом случае при сбоях она завершала выполнение программы и
не висла, но получается так что каждый раз интервал в миллисекундах
разный и для чтения и для записи. Поставлю время меньше, он при
чтении завершает, поставлю больше при записи виснит.
И в общем все время указывает на эту строку:
Signaled := WaitForSingleObject(Overlapped.hEvent, INFINITE);
Подскажите пожалуйста, что делать.Ситуация то какая: у меня в
микросхему если я хочу читать из нее посылается байт $55, на что
микросхема выдает сначала байт $33 , а потом еще 223 байта с
данными.
Когда надо ввести в микросхему, тут сложнее - у микросхемы не
хватает ОЗУ чтобы сразу все принять, поэтому приходится разбивать
массив байтов на пачки в определенном порядке и количестве и
используются разные инициализирующие байты - $60 и $40, причем для
каждой пачки повторяется процедура - засылается первый байт, потом
информация и микросхема выдает байт $33.
Вот я никак не разберусь че же делать то.
dmitriyk (2002-01-11 04:30:00) [1]
У тебя похоже неправильно сделан алгоритм обмена. Потому, что
работают два абсолютно не зависимых устройст, КОМП и микросхема (я
так понимаю речь идет об однокристалке ?). Для надежной работы эти
два устройства
надо синхронизировать. Иначе не как.
Для начала, Скажи мне, когда у тебя в основном происходят
сбои: при передачи данных из компа в микросхему, или обратно.
Обычно всегда в какую то одну сторону.
Наверх 
ЧАТ |
Орешник |
|
