VPF::Работа с COM портом, посылю данные

Angel_19

Дата 21.8.2012, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 5.4.2005

Репутация: нет
Всего: нет

Работаю с 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 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: нет
Всего: 8

Попробуйте #10+#13 или #13+#10

northener

Дата 21.8.2012, 16:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: нет
Всего: 20

Что означает

Цитата

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

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Angel_19

Дата 21.8.2012, 16:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 5.4.2005

Репутация: нет
Всего: нет

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

kami

Дата 21.8.2012, 18:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72

Цитата(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.

. Источник

Это сообщение отредактировал(а) kami - 21.8.2012, 18:26

Angel_19

Дата 21.8.2012, 20:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 5.4.2005

Репутация: нет
Всего: нет

kami - спасибо! Учел замечания, заработало.

kami

Дата 21.8.2012, 22:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72

Цитата(Angel_19 @ 21.8.2012, 20:24

)

заработало.

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

Это сообщение отредактировал(а) kami - 21.8.2012, 22:21

Angel_19

Дата 28.8.2012, 21:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 5.4.2005

Репутация: нет
Всего: нет

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

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

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

kami

Дата 28.8.2012, 22:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72

Цитата(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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: нет
Всего: 20

Цитата(kami @ 28.8.2012, 22:51

)

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

Цитата(kami @ 28.8.2012, 22:51

)

Если обязательно самому на WinAPI

то вот советую почитать очень хорошую книжку по работе с СОМ-портом

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Angel_19

Дата 25.9.2012, 14:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 5.4.2005

Репутация: нет
Всего: нет

Попробовал компонент - BComPort. Работает отлично.
Также ознакомился быстро с книжкой.

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

Это сообщение отредактировал(а) Angel_19 - 25.9.2012, 15:28

northener

Дата 26.9.2012, 00:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: нет
Всего: 20

Цитата(Angel_19 @ 25.9.2012, 14:39

)

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

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

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »