Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: WinAPI и системное программирование > Работа с COM портом, посылю данные


Автор: Angel_19 21.8.2012, 14:36
Работаю с COM портом.
Посылаю данные, они принимаются портом, но нет как бы нажатия Enter, хотя вместе с коммандой посылаю - #13
Проверяю работу с помощью программы мониторинга COM порта.

Вот модуль:
Код

unit UnitGSM_ON;

interface
Uses Windows, SysUtils;

Function GSM_ONLINE(Com_Port : DWord): DWord;

implementation
Const
     C_AT   = 'AT';
     C_ATZ  = 'ATZ';
     C_ATE0 = 'ATE0';
     C_OnLine  = 'AT+ZOPRT=5';
     C_OffLine = 'AT+ZOPRT=4';
var
   F_COM : THandle;

function PortInit(Com_Port : DWord) : boolean;
{Открываем порт}
Var
   T_S : String;
begin
     T_S := '\\.\COM'+IntToStr(Com_Port);
     F_Com := Windows.CreateFile(PChar(T_S),
                                 GENERIC_WRITE,
                                 0,
                                 nil,
                                 OPEN_EXISTING,
                                 FILE_ATTRIBUTE_NORMAL,
                                 0);
     Result := F_Com <> INVALID_HANDLE_VALUE;
end;

function PortClose: boolean;
{закpываем поpт}
begin
     Result := Windows.CloseHandle(F_Com);
end;

Function WriteData(Data:String):Boolean;
{пишем данные в порт}
Var
   NumberWritten : DWord;
   C             : ANSIString;
Begin
      NumberWritten:=0;
      //C:=Data+#13+#10;
      //C:=Data;
      C:=Data+#13;
      //C:=Data+#10;
      Result := WriteFile(F_Com,
                          PChar(C)^,
                          Length(C),
                          NumberWritten,
                          nil);
End;

Function ReadData(Var Data:String):Boolean;
Var
   NumberRead : DWord;
   RBuffer        : Array[0..255] of ANSIChar;
begin
     NumberRead := 0;
     Data := '';
     FillChar(RBuffer, SizeOf(RBuffer), #0);
     Result := ReadFile( F_Com,
                         RBuffer,
                         SizeOf(RBuffer),
                         NumberRead,
                         nil);
     if NumberRead > 0 then
     begin
          Data := RBuffer;
     end;
end;

Function GSM_ONLINE(Com_Port : DWord): DWord;
Var
   DataBuffer : String;
begin
     if PortInit(Com_Port) then
     begin
          If WriteData(C_AT) then
             if ReadData(DataBuffer) then
             begin

             end;
          //WriteData(C_OnLine);
     End;
     PortClose;
end;

end.


Непойму, что не так делаю ...

Автор: AndreyIQ 21.8.2012, 16:12
Попробуйте #10+#13 или #13+#10

Автор: northener 21.8.2012, 16:19
Что означает 
Цитата

они принимаются портом, но нет как бы нажатия Enter
?

Автор: Angel_19 21.8.2012, 16:26
Это значит, что после того, как я записал данные в порт, в программе мониторинга они появляются, но нет ответа от модема. И если в порт записать еще данные они идут как бы в куче с моими.

Автор: kami 21.8.2012, 18:13
Цитата(Angel_19 @  21.8.2012,  16:26 Найти цитируемый пост)
но нет ответа от модема.

А что вы хотели?
Ком-порт, в отличие от процессора компьютера - крайне медленная штука. На основании этого смотрим код еще раз:
Код

If WriteData(C_AT) then // записали что-то в порт. Вернее, не записали, а отдали в буфер драйвера порта
                       // когда драйвер передаст содержимое буфера непосредственно в устройство - известно только ОС (и то - не 100%)
                       // кроме того, самому устройству (в данном случае - модему) нужно принять данные, обработать, подумать, что-то сделать
                       // и только потом отправлять ответ.
             if ReadData(DataBuffer) then // а вы пытаетесь моментально получить от модема ответ. Конечно же через 10 миллисекунд ничего не придет.


И в дополнение:
чтобы ReadFile работала, нужно чтобы 
Цитата

The hFile parameter must have been created with read access. 
. http://msdn.microsoft.com/en-us/library/windows/desktop/aa365467(v=vs.85).aspx

Автор: Angel_19 21.8.2012, 20:24
kami - спасибо! Учел замечания, заработало.

Автор: kami 21.8.2012, 22:21
Цитата(Angel_19 @  21.8.2012,  20:24 Найти цитируемый пост)
заработало.

Что-то мне подсказывает, что оно "заработало" путем вставки между Write и Read чего-то типа Sleep.
Если так, то это - костыль, причем - не особо прочный.  smile 

Автор: Angel_19 28.8.2012, 21:44
Sleep не использовал.
Использовал вставки - Application.ProcessMessages;
Т.к. без них все плохо.
Видимо когда идет запись/чтение в/из порт(а), нужно "отпустить" текущий поток.

Конечно, хорошо бы сделать, чтобы порт сам уведомлял о готовности (или опрашивать на предмет готовности), но не знаю как.

Если есть знающие подскажите.

Автор: kami 28.8.2012, 22:51
Цитата(Angel_19 @  28.8.2012,  21:44 Найти цитируемый пост)
Использовал вставки - Application.ProcessMessages;

Я же и говорю - 
Цитата(kami @  21.8.2012,  22:21 Найти цитируемый пост)
чего-то типа Sleep


Если не обязательно всё самому реализовывать на WinAPI, то берется любой компонент, работающий с COM-портом, имеющий нужные события. Я использовал BComPort, более того - он идет с примерами.

Если обязательно самому на WinAPI - берется любой компонент, работающий с COM-портом, имеющий нужные события  smile и смотрятся его исходники.

Автор: northener 29.8.2012, 00:46
Цитата(kami @  28.8.2012,  22:51 Найти цитируемый пост)
Если не обязательно всё самому реализовывать на WinAPI, то берется любой компонент, работающий с COM-портом

+1

Цитата(kami @  28.8.2012,  22:51 Найти цитируемый пост)
Если обязательно самому на WinAPI

то http://rouse.drkb.ru/books.php#agurov_com

Автор: Angel_19 25.9.2012, 14:39
Попробовал компонент - BComPort. Работает отлично.
Также ознакомился быстро с книжкой.

Но вот какой вопрос волнует. Я например посылаю в COM порт команды. И жду ответа. В тот момент, когда жду ответа, например на модем позвонили и модем сообщает о входящем звонке. И как тут понять, что информация о поступившем звонке это не ответ на одну из моих комманд? (Как вариант включить эхо.) Или сначало будет ответ на мою комманду, а уже потом сообщение о поступившем звонке?
Т.е. как грамотно организовать отправку комманд и обработку ответов?

Автор: northener 26.9.2012, 00:53
Цитата(Angel_19 @  25.9.2012,  14:39 Найти цитируемый пост)
Но вот какой вопрос волнует. Я например посылаю в COM порт команды. И жду ответа. В тот момент, когда жду ответа, например на модем позвонили и модем сообщает о входящем звонке. И как тут понять, что информация о поступившем звонке это не ответ на одну из моих комманд? 

Имхо, модем сообщает о поступившем звонке выставляя сигнал на ноге соответствуюей микросхемы (для разъёма СОМ-порта это нога RING).  И больше ничего. Так что если вы приняли на СОМ-порт какую-то информацию по входу Rx, то это точно ответ на вашу команду.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)