Программа зависает занимая com-порт

[voronbird]

Люди добрые, помогите умным советом. А то дельфист из меня...
Иногда, программа виснет на вот этом куске кода. Процесс при этом отказывается убиваться в Диспетчере задач. Подозреваю, что уходит в бесконечный цикл при попытке CloseHandle. Если цикл убрать (оставив CloseHandle), то com-порт остается занятым не пуская к себе другие приложения. Что тут можно сделать?

        CommHandle:= CreateFile(PChar('com'+IntToStr(Preferences.CheckPrinterPortNumber)), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL,0);
        if CommHandle = INVALID_HANDLE_VALUE then begin
          Sleep(200);
        end else begin
          try
            WriteFile(CommHandle,
                      chr($1B)+chr($25),
                      2,
                      Written,
                      nil);
          finally
            repeat until CloseHandle(CommHandle);
          end;

[Cuprum5]

Сообщение от voronbird

Pre ferences

- ну вот тут пробел, наверное, надо убрать или опять опечатка?
А почему CloseHandle - файл ведь нужно закрыть.
А, ну да, и правда CloseHandle(), только не в цикле, а однократно нужно вызывать. Попробуете без цикла и отпишитесь потом помогло или нет. Хорошо?

[Pavia]

Cuprum5
CloseFile - не существует вместо неё следует использовать CloseHandle.
voronbird

Сообщение от voronbird

repeat until

Лишнее. Запрещёно дважды освобождать хэндел.

Сообщение от voronbird

Если цикл убрать (оставив CloseHandle), то com-порт остается занятым не пуская к себе другие приложения. Что тут можно сделать?

Грохнуть все открытые файлы для вашего потока Thead.

CancelSynchronousIo(Self.Handle); // Принудительное завершение ожидания в/в

Но, я вам этого не говорил.

[evg_m]

ну наверное надо узнать(понять) почему это ОС не желает закрывать порт.

Если цикл убрать (оставив CloseHandle), то com-порт остается занятым

If the function fails, the return value is zero. To get extended error information, call GetLastError.

а не тупо повторять "магическое" слово "закройся" в надежде что волшебник вернется и ВСЕ сделает за вас.

[Cuprum5]

Сообщение от voronbird

chr($1B)+chr($25),

- вот это еще, наверное, неправильно написано. Нужно завести массив из 2-ух элементов и сюда 2-ым параметром передать указатель на него.

[voronbird]

Сообщение от Cuprum5

- вот это еще, наверное, неправильно написано. Нужно завести массив из 2-ух элементов и сюда 2-ым параметром передать указатель на него.

Не, эта часть точно правильная. Она прекрасно отрабатывает в 99 случаях из 100. А потом чего-то с com-портом случается. Спасибо за подсказки. Ушел проверять.

[kropotkina-alice]

Просто дайте возможность винде обработать ваш запрос на "грохнуть"
Да-да, тривиальным добавлением не менее тривиального

Application.ProcessMessages;

в цикле REPEAT...

Неизвестному, пишущему господину Крапоткину - вы бы хоть представились