Projektbericht 796.8 KByte - Technikpreis

39 D Quellcode
function TSerialThread.OpenCOM(Port: byte): boolean; stdcall;
begin
PortHandle :=
CreateFile(PChar(’\\.\COM’+IntToStr(Port)),GENERIC_READ or GENERIC_WRITE,0,
nil,OPEN_EXISTING,FILE_FLAG_OVERLAPPED,LongInt(0));
if PortHandle > 0 then
begin
Result := true;
InitOverlapped(WriteOverlapped);
InitOverlapped(ReadOverlapped);
InitOverlapped(StatusOs);
end else Result := false;
end;
function TSerialThread.CloseCOM : boolean; stdcall;
begin
PurgeComm(PortHandle, PURGE_RXABORT or PURGE_RXCLEAR or PURGE_TXABORT or PURGE_TXCLEAR);
SetCommMask(PortHandle,0); //unterbricht WaitCommEvent im Polling thread
result:= CloseHandle(PortHandle);
PortHandle := 0;
end;
function TSerialThread.ComAvailable(ComNr: byte): boolean; stdcall;
var
TestHandle : integer;
begin
TestHandle :=
CreateFile(PChar(’\\.\COM’+IntToStr(ComNr)),GENERIC_READ or GENERIC_WRITE,0,
nil,OPEN_EXISTING,FILE_FLAG_OVERLAPPED,LongInt(0));
if (TestHandle