пишу для тех кто столкнется с подобной проблемой, что была у меня с компонентом TComPort
для того чтобы компонент не подвешивал программу при использовании виртуального ком порта через USB
надо изменить метод TCustomComPort.WaitForAsync
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
function TCustomComPort.WaitForAsync(var AsyncPtr: PAsync): Integer;
var
BytesTrans, Signaled: DWORD;
Success: Boolean;
begin
if AsyncPtr = nil then
//raise EComPort.CreateNoWinCode
CallException(CError_InvalidAsync);
//Signaled := WaitForSingleObject(AsyncPtr^.Overlapped.hEvent, INFINITE);
Signaled := WaitForSingleObject(AsyncPtr^.Overlapped.hEvent, 100);
Success := (Signaled = WAIT_OBJECT_0) and
(GetOverlappedResult(FHandle, AsyncPtr^.Overlapped, BytesTrans, False));
if not Success then
//raise EComPort.Create
CallException(ErrorCode(AsyncPtr), GetLastError);
if (AsyncPtr^.Kind = okRead) and (InputCount = 0) then
SendSignalToLink(leRx, False)
else
if AsyncPtr^.Data <> nil then
TxNotifyLink(AsyncPtr^.Data^, AsyncPtr^.Size);
Result := BytesTrans;
end;
вместо WaitForSingleObject(AsyncPtr^.Overlapped.hEvent, INFINITE); ставим WaitForSingleObject(AsyncPtr^.Overlapped.hEvent, 100); 100 миллисекунд ожидания, в противном случае если порт был открыт и из USB был вытащен шнур, прога зависнет на всегда в ожидании
Изменил
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
procedure TCustomComPort.AbortAllAsync;
begin
try
if not PurgeComm(FHandle, PURGE_TXABORT or PURGE_RXABORT) then
raise EComPort.Create (CError_PurgeFailed, GetLastError);
//CallException(CError_PurgeFailed, GetLastError);
except
end;
end;
может это и не совсем корректно - но он меня просто достал
изменил
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
procedure TCustomComPort.Close;
begin
// if already closed, do nothing
if FConnected and not(csDesigning in ComponentState) then
begin
CallBeforeClose;
// abort all pending operations
try
AbortAllAsync;
finally
// stop monitoring for events
if FThreadCreated then
begin
FEventThread.Free;
FThreadCreated := False;
if FSyncMethod = smWindowSync then
{$IFDEF DELPHI_6_OR_HIGHER}
{$WARN SYMBOL_DEPRECATED OFF}
{$ENDIF}
DeallocateHWnd(FWindow);
{$IFDEF DELPHI_6_OR_HIGHER}
{$WARN SYMBOL_DEPRECATED ON}
{$ENDIF}
end;
// close port
DestroyHandle;
FConnected := False;
// port is closed, do any additional finalization
CallAfterClose;
end;
end;
end;
для того чтобы порт корректно закрывался если кабель был вытащен из USB
теперь компонент работает более менее стабильно, если что еще найду по нему - отпишусь
