Не могу понять - пишет ли моя программа в СОМ порт. Подключение проходит отлично - порт в итоге становится занятым моим приложением.
Пытаюсь записать в него:
| Код |
var
Ovr: TOverlapped;
S, Comand: String;
WriteByte: DWORD;
B: array [0..127] of Char;
i: DWORD;
begin
FillChar(B, 128, #0);
FillChar(Ovr, SizeOf(TOverLapped), 0);
Ovr.hEvent := CreateEvent(nil, true, false, nil);
Comand := 'UPAS11111111111111111111';
S := Char(253) + Comand + IntToStr(Length(Comand) + 1) + Char(254); // это по протоколу кассового аппарата, хотя не уверен что правильно записываю команды
StrPCopy(B, S);
///////////////////////////////////////////////////////////////////////
if not WriteFile(IdCom, B, Length(B), WriteByte, @Ovr) then
begin // <<----------------------------- сюда заходит постоянно
if (GetLastError() = ERROR_IO_PENDING) and
(WaitForSingleObject(Ovr.hEvent,INFINITE)= WAIT_OBJECT_0) then
begin
GetOverlappedResult(IdCom, Ovr, i, False);
end;
end;
CloseHandle(Ovr.hEvent);
end;
|
Пытаюсь прочитать что приходит из него
| Код |
procedure TReadThread.Execute;
var OverRead: TOverlapped;
S: string;
begin
OverRead.hEvent:=CreateEvent(nil, True, False, nil);
if OverRead.hEvent= Null then begin
ShowMessage('Error creating read event');
Exit;
end;
while not Terminated do begin
if not WaitCommEvent(IdCom, dwMask, @OverRead) then
begin
if GetLastError = ERROR_IO_PENDING then
WaitForSingleObject(OverRead.hEvent,INFINITE)
else ShowMessage('Error waiting port event');
end;
if not ClearCommError(IdCom, dwError, @ComStat) then
ShowMessage('Error clearing port');
dwRead:=ComStat.cbInQue;
if dwRead > 0 then
begin
if not ReadFile(IdCom, ReceiveBuff, sizeof(ReceiveBuff), dwRead, @OverRead) then
ShowMessage('Error reading port');
end;
S:=string(ReceiveBuff);
Form11.Memo1.Lines.Add(s);
sleep(100);
end;
end;
|
В мемо ничего не выводит...и сама МАРИЯ-701 никак не реагирует
Объявление класса для чтения из порта:
| Код |
TReadThread = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;
|
Создаю поток так:
| Код |
procedure TForm11.Button5Click(Sender: TObject);
var
ReadThread: TReadThread;
begin
ReadThread:=TReadThread.Create(true);
ReadThread.FreeOnTerminate:=true;
ReadThread.Priority:= tpNormal;
ReadThread.Resume;
end;
|
Помогите пожалуйста уже который день бьюсь, ничего не получается |
