[Delphi] ComPort 오류 수정

 

// 델파이 xe 등에서 한글 깨질때 string -> AnsiString 변경
function WriteStr(Str: AnsiString): Integer;
function WriteStrAsync(var Str: AnsiString; var AsyncPtr: PAsync): Integer;

// INFINITE는 작업 종료까지 무한대 기다리기 때문에 수정
function TCustomComPort.WaitForAsync(var AsyncPtr: PAsync): Integer;  
  // Signaled := WaitForSingleObject(AsyncPtr^.Overlapped.hEvent, INFINITE);
  Signaled := WaitForSingleObject(AsyncPtr^.Overlapped.hEvent, 2000);