Си++ AT-команды
отсылай данные в порт. читай данные из порта.
угу, спасибо, торможу... =)
Если хочешь, могу поискать книгу по программированию коммовских модемов. Там все популярно описано
Стукнись 127670299
Стукнись 127670299
ага, стукнусь - спасибо заранее
я шлю данные в порт и читаю их оттуда, а вот с АТ-командами это делать не получается.
то есть, модем не реагирует на них... =(
а делаю я все так:
открываю порт.
пишу в него АТ-команду массивом байтов
закрываю порт.
ни у кого какой-нить идеи нет?
это вообще правильно, отправлять АТ-команду в стринговом виде в компорт?
то есть, модем не реагирует на них... =(
а делаю я все так:
открываю порт.
пишу в него АТ-команду массивом байтов
закрываю порт.
ни у кого какой-нить идеи нет?
это вообще правильно, отправлять АТ-команду в стринговом виде в компорт?
А зачем его закрывать-то? А ожидать реакции модема кто будет?
если не закрывать, то тоже самое....
более общий вопрос звучит так:
имеется возможность посылать данные в порт и принимать их оттуда. Как правильно направлять туда АТ-команды? в каком виде? так, чтобы они попали в модем.
имеется возможность посылать данные в порт и принимать их оттуда. Как правильно направлять туда АТ-команды? в каком виде? так, чтобы они попали в модем.
Писать туда WriteFile'ом.
по-моему, сначала надо модем в командный режим перевести, чо-то там +++, или как-то так...
> по-моему, сначала надо модем в командный режим перевести, чо-то там +++, или как-то так...
Он по умолчанию он и находится в командном режиме.
Правильный ответ: нужно ждать когда модем ответит. Т.к. автор не указывает, в какой среде он программирует, то более подробно ответить невозможно.
Он по умолчанию он и находится в командном режиме.
Правильный ответ: нужно ждать когда модем ответит. Т.к. автор не указывает, в какой среде он программирует, то более подробно ответить невозможно.
ОС какая?
приведи кусок кода, которым ты пытаешься выполнить AT-команду.
приведи кусок кода, которым ты пытаешься выполнить AT-команду.
Направлять команды в модем надо в текстовом виде. Как правильно отмечалось, модем должен быть в командном режиме (есть еще режим передачи данных). По умолчанию модем в командном режиме. Хорошо бы еще инициализировать модем -- правильно выставить скорость, проверку четности и прочее. Для этого надо писать соответствующие биты в порты устройства (не путать с COM-портом). Во всяком случае так в ДОСе.
Возможно (я очень неуверен есть маза выставлять задержки, чтоб дать модему время подумать.
Возможно (я очень неуверен есть маза выставлять задержки, чтоб дать модему время подумать.
сейчас вообще-то перешел на дельфи, потому как нашел готовый класс (ну, чтобы не париться... а-то время с проектом поджимает) по асинхронной работе с ком-портом (вот этот класс):
unit ComPort;
////////////////////////////////////////////////////////////////////////////////
// //
// Class: TComPort //
// //
// Description: Asynchronous (overlapped) COM port //
// Version: 1.0 //
// Date: 10-Jun-2003 //
// Author: Igor Pavlov, pnm.ru //
// //
// Copyright: (c) 2003, Igor Pavlov //
// //
////////////////////////////////////////////////////////////////////////////////
//*******************************************************************************
// *
// Edited and putched *
// *
// Date: 01/07/2003 *
// Author: Mukovoz IL'ya Sergeevich, bel.ru *
// *
//*******************************************************************************
interface
uses
SysUtils, Windows, Variants, Classes, Dialogs;
type
EComPortError = class(Exception);
TBaudRate = (br110 = CBR_110,
br300 = CBR_300,
br600 = CBR_600,
br1200 = CBR_1200,
br2400 = CBR_2400,
br4800 = CBR_4800,
br9600 = CBR_9600,
br14400 = CBR_14400,
br19200 = CBR_19200,
br38400 = CBR_38400,
br56000 = CBR_56000,
br57600 = CBR_57600,
br115200 = CBR_115200,
br128000 = CBR_128000,
br256000 = CBR_256000);
TComPort = class;
{Reading thread}
TReadThread = class(TThread)
private
FBuf: array[0..$FF] of Byte;
FComPort: TComPort;
FOverRead: TOverlapped;
FRead: DWORD;
procedure DoRead;
protected
procedure Execute; override;
public
constructor Create(ComPort: TComPort);
destructor Destroy; override;
end;
{Reading event}
TReadEvent = procedure(Sender: TObject; ReadBytes: array of Byte) of object;
{Com port class}
TComPort = class
private
FOverWrite: TOverlapped;
FPort: THandle;
FPortName: String;
FReadEvent: TReadEvent;
FReadThread: TReadThread;
public
constructor Create(PortNumber: Cardinal; BaudRate: TBaudRate);
destructor Destroy; override;
procedure Write(WriteBytes: array of Byte);
published
property OnRead: TReadEvent read FReadEvent write FReadEvent;
property PortName: String read FPortName;
end;
implementation
constructor TReadThread.Create(ComPort: TComPort);
begin
FComPort := ComPort;
ZeroMemory(@FOverRead, SizeOf(FOverRead;
{Event}
FOverRead.hEvent := CreateEvent(nil, True, False, nil);
if FOverRead.hEvent = Null then
raise EComPortError.Create('Error creating read event');
inherited Create(False);
end;
destructor TReadThread.Destroy;
begin
CloseHandle(FOverRead.hEvent);
inherited Destroy;
end;
procedure TReadThread.Execute;
var
ComStat: TComStat;
dwMask, dwError: DWORD;
begin
FreeOnTerminate := True;
while not Terminated do
begin
if not WaitCommEvent(FComPort.FPort, dwMask, @FOverRead) then
begin
if GetLastError = ERROR_IO_PENDING then
WaitForSingleObject(FOverRead.hEvent, INFINITE)
else
raise EComPortError.Create('Error waiting port ' + FComPort.PortName
+ ' event');
end;
if not Terminated then
if not ClearCommError(FComPort.FPort, dwError, @ComStat) then
raise EComPortError.Create('Error clearing port ' + FComPort.PortName);
FRead := ComStat.cbInQue;
if FRead > 0 then
begin
if not ReadFile(FComPort.FPort, FBuf, FRead, FRead, @FOverRead) then
raise EComPortError.Create('Error reading port ' + FComPort.PortName);
Synchronize(DoRead);
end;
end; {while}
end;
procedure TReadThread.DoRead;
var
arrBytes: array of Byte;
i: Integer;
begin
if Assigned(FComPort.FReadEvent) then
begin
SetLength(arrBytes, FRead);
for i := Low(FBuf) to FRead - 1 do
arrBytes[i] := FBuf[i];
FComPort.FReadEvent(Self, arrBytes);
arrBytes := nil;
end;
end;
constructor TComPort.Create(PortNumber: Cardinal; BaudRate: TBaudRate);
var
Dcb: TDcb;
begin
inherited Create;
ZeroMemory(@FOverWrite, SizeOf(FOverWrite;
FPortName := 'COM' + IntToStr(PortNumber);
{Open port}
FPort := CreateFile(PChar(PortName
GENERIC_READ or GENERIC_WRITE, 0, nil,
OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
if FPort = INVALID_HANDLE_VALUE then
raise EComPortError.Create('Error opening port ' + PortName);
try
{Set port state}
if not GetCommState(FPort, Dcb) then
raise EComPortError.Create('Error setting port ' + PortName + ' state');
Dcb.BaudRate := DWORD(BaudRate);
Dcb.Parity := NOPARITY;
Dcb.ByteSize := 8;
Dcb.StopBits := ONESTOPBIT;
if not SetCommState(FPort, Dcb) then
raise EComPortError.Create('Error setting port ' + PortName + ' state');
{Purge port}
if not PurgeComm(FPort, PURGE_TXCLEAR or PURGE_RXCLEAR) then
raise EComPortError.Create('Error purging port ' + PortName);
{Set mask}
if not SetCommMask(FPort, EV_RXCHAR) then
raise EComPortError.Create('Error setting port ' + PortName + ' mask');
FOverWrite.hEvent := CreateEvent(nil, True, False, nil);
if FOverWrite.hEvent = Null then
raise EComPortError.Create('Error creating write event');
{Reading thread}
FReadThread := TReadThread.Create(Self);
except
CloseHandle(FOverWrite.hEvent);
CloseHandle(FPort);
raise;
end;
end;
destructor TComPort.Destroy;
begin
if Assigned(FReadThread) then
FReadThread.Terminate;
CloseHandle(FOverWrite.hEvent);
CloseHandle(FPort);
inherited Destroy;
end;
procedure TComPort.Write(WriteBytes: array of Byte);
var
dwWrite: DWORD;
begin
if (not WriteFile(FPort, WriteBytes, SizeOf(WriteBytes dwWrite, @FOverWrite
and (GetLastError <> ERROR_IO_PENDING) then
raise EComPortError.Create('Error writing port ' + PortName);
end;
end.
Пример использования:
type
...
procedure OnRead(Sender: TObject; ReadBytes: array of Byte);
...
private
{ Private declarations }
Port: TComPort;
procedure TfrmMain.btnOpenClick(Sender: TObject);
begin
Port := TComPort.Create(udnPort.Position, br9600);
Port.OnRead := OnRead;
end;
procedure TfrmMain.btnCloseClick(Sender: TObject);
begin
Port.Free;
end;
procedure TfrmMain.OnRead(Sender: TObject; ReadBytes: array of Byte);
var
i: Integer;
TmpStr : string;
begin
TmpStr := '';
for i := Low(ReadBytes) to High(ReadBytes) do
begin
if i > Low(ReadBytes) then
TmpStr := TmpStr + IntToHex(ReadBytes[i], 2);
end;
ShowMessage(TmpStr);
end;
procedure TfrmMain.btnWriteClick(Sender: TObject);
var
strWrite: string;
arrBytes: array of Byte;
i: Integer;
begin
strWrite := edtWrite.Text;
SetLength(arrBytes, Length(strWrite;
for i := Low(arrBytes) to High(arrBytes) do
arrBytes[i] := Ord(strWrite[i + 1]);
Port.Write(arrBytes);
arrBytes := ni
unit ComPort;
////////////////////////////////////////////////////////////////////////////////
// //
// Class: TComPort //
// //
// Description: Asynchronous (overlapped) COM port //
// Version: 1.0 //
// Date: 10-Jun-2003 //
// Author: Igor Pavlov, pnm.ru //
// //
// Copyright: (c) 2003, Igor Pavlov //
// //
////////////////////////////////////////////////////////////////////////////////
//*******************************************************************************
// *
// Edited and putched *
// *
// Date: 01/07/2003 *
// Author: Mukovoz IL'ya Sergeevich, bel.ru *
// *
//*******************************************************************************
interface
uses
SysUtils, Windows, Variants, Classes, Dialogs;
type
EComPortError = class(Exception);
TBaudRate = (br110 = CBR_110,
br300 = CBR_300,
br600 = CBR_600,
br1200 = CBR_1200,
br2400 = CBR_2400,
br4800 = CBR_4800,
br9600 = CBR_9600,
br14400 = CBR_14400,
br19200 = CBR_19200,
br38400 = CBR_38400,
br56000 = CBR_56000,
br57600 = CBR_57600,
br115200 = CBR_115200,
br128000 = CBR_128000,
br256000 = CBR_256000);
TComPort = class;
{Reading thread}
TReadThread = class(TThread)
private
FBuf: array[0..$FF] of Byte;
FComPort: TComPort;
FOverRead: TOverlapped;
FRead: DWORD;
procedure DoRead;
protected
procedure Execute; override;
public
constructor Create(ComPort: TComPort);
destructor Destroy; override;
end;
{Reading event}
TReadEvent = procedure(Sender: TObject; ReadBytes: array of Byte) of object;
{Com port class}
TComPort = class
private
FOverWrite: TOverlapped;
FPort: THandle;
FPortName: String;
FReadEvent: TReadEvent;
FReadThread: TReadThread;
public
constructor Create(PortNumber: Cardinal; BaudRate: TBaudRate);
destructor Destroy; override;
procedure Write(WriteBytes: array of Byte);
published
property OnRead: TReadEvent read FReadEvent write FReadEvent;
property PortName: String read FPortName;
end;
implementation
constructor TReadThread.Create(ComPort: TComPort);
begin
FComPort := ComPort;
ZeroMemory(@FOverRead, SizeOf(FOverRead;
{Event}
FOverRead.hEvent := CreateEvent(nil, True, False, nil);
if FOverRead.hEvent = Null then
raise EComPortError.Create('Error creating read event');
inherited Create(False);
end;
destructor TReadThread.Destroy;
begin
CloseHandle(FOverRead.hEvent);
inherited Destroy;
end;
procedure TReadThread.Execute;
var
ComStat: TComStat;
dwMask, dwError: DWORD;
begin
FreeOnTerminate := True;
while not Terminated do
begin
if not WaitCommEvent(FComPort.FPort, dwMask, @FOverRead) then
begin
if GetLastError = ERROR_IO_PENDING then
WaitForSingleObject(FOverRead.hEvent, INFINITE)
else
raise EComPortError.Create('Error waiting port ' + FComPort.PortName
+ ' event');
end;
if not Terminated then
if not ClearCommError(FComPort.FPort, dwError, @ComStat) then
raise EComPortError.Create('Error clearing port ' + FComPort.PortName);
FRead := ComStat.cbInQue;
if FRead > 0 then
begin
if not ReadFile(FComPort.FPort, FBuf, FRead, FRead, @FOverRead) then
raise EComPortError.Create('Error reading port ' + FComPort.PortName);
Synchronize(DoRead);
end;
end; {while}
end;
procedure TReadThread.DoRead;
var
arrBytes: array of Byte;
i: Integer;
begin
if Assigned(FComPort.FReadEvent) then
begin
SetLength(arrBytes, FRead);
for i := Low(FBuf) to FRead - 1 do
arrBytes[i] := FBuf[i];
FComPort.FReadEvent(Self, arrBytes);
arrBytes := nil;
end;
end;
constructor TComPort.Create(PortNumber: Cardinal; BaudRate: TBaudRate);
var
Dcb: TDcb;
begin
inherited Create;
ZeroMemory(@FOverWrite, SizeOf(FOverWrite;
FPortName := 'COM' + IntToStr(PortNumber);
{Open port}
FPort := CreateFile(PChar(PortName
GENERIC_READ or GENERIC_WRITE, 0, nil,
OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
if FPort = INVALID_HANDLE_VALUE then
raise EComPortError.Create('Error opening port ' + PortName);
try
{Set port state}
if not GetCommState(FPort, Dcb) then
raise EComPortError.Create('Error setting port ' + PortName + ' state');
Dcb.BaudRate := DWORD(BaudRate);
Dcb.Parity := NOPARITY;
Dcb.ByteSize := 8;
Dcb.StopBits := ONESTOPBIT;
if not SetCommState(FPort, Dcb) then
raise EComPortError.Create('Error setting port ' + PortName + ' state');
{Purge port}
if not PurgeComm(FPort, PURGE_TXCLEAR or PURGE_RXCLEAR) then
raise EComPortError.Create('Error purging port ' + PortName);
{Set mask}
if not SetCommMask(FPort, EV_RXCHAR) then
raise EComPortError.Create('Error setting port ' + PortName + ' mask');
FOverWrite.hEvent := CreateEvent(nil, True, False, nil);
if FOverWrite.hEvent = Null then
raise EComPortError.Create('Error creating write event');
{Reading thread}
FReadThread := TReadThread.Create(Self);
except
CloseHandle(FOverWrite.hEvent);
CloseHandle(FPort);
raise;
end;
end;
destructor TComPort.Destroy;
begin
if Assigned(FReadThread) then
FReadThread.Terminate;
CloseHandle(FOverWrite.hEvent);
CloseHandle(FPort);
inherited Destroy;
end;
procedure TComPort.Write(WriteBytes: array of Byte);
var
dwWrite: DWORD;
begin
if (not WriteFile(FPort, WriteBytes, SizeOf(WriteBytes dwWrite, @FOverWrite
and (GetLastError <> ERROR_IO_PENDING) then
raise EComPortError.Create('Error writing port ' + PortName);
end;
end.
Пример использования:
type
...
procedure OnRead(Sender: TObject; ReadBytes: array of Byte);
...
private
{ Private declarations }
Port: TComPort;
procedure TfrmMain.btnOpenClick(Sender: TObject);
begin
Port := TComPort.Create(udnPort.Position, br9600);
Port.OnRead := OnRead;
end;
procedure TfrmMain.btnCloseClick(Sender: TObject);
begin
Port.Free;
end;
procedure TfrmMain.OnRead(Sender: TObject; ReadBytes: array of Byte);
var
i: Integer;
TmpStr : string;
begin
TmpStr := '';
for i := Low(ReadBytes) to High(ReadBytes) do
begin
if i > Low(ReadBytes) then
TmpStr := TmpStr + IntToHex(ReadBytes[i], 2);
end;
ShowMessage(TmpStr);
end;
procedure TfrmMain.btnWriteClick(Sender: TObject);
var
strWrite: string;
arrBytes: array of Byte;
i: Integer;
begin
strWrite := edtWrite.Text;
SetLength(arrBytes, Length(strWrite;
for i := Low(arrBytes) to High(arrBytes) do
arrBytes[i] := Ord(strWrite[i + 1]);
Port.Write(arrBytes);
arrBytes := ni
а какая разница? модем получил информацию - пусть и звонит по телефону. какие задержки? - я ведь ничего с него пока не получаю, никаких данных мне покамест не надо... я ему направляю просто команду на выполнение и все.
Хошь я тебе для полноты картины еще свой давнишний код дам -- на паскале. Там, правда, баги имеются, но куда же без них?
давай! c радостью приму! =)
> // Edited and putched *
ЛОЛ! только сейчас заметил!
http://dima.sbin.ru/prg/mcterm.htm
Заботано асинхронное чтение из порта в буфер.
Сама прога читает из буфера и выводит на экран.
Думаю, синхронизация нормально не заботана.
Заботано асинхронное чтение из порта в буфер.
Сама прога читает из буфера и выводит на экран.
Думаю, синхронизация нормально не заботана.
эх... был бы там исходный код... =)
пардон! сорри... код и правда есть.... =)
порадовало:
1) Программа полностью переписана и лишилась большого числа багов в реализации
VT100 и вообще.
2) Программа полностью переписана, поэтому содержит огромное число новых багов.
1) Программа полностью переписана и лишилась большого числа багов в реализации
VT100 и вообще.
2) Программа полностью переписана, поэтому содержит огромное число новых багов.
Оставить комментарий
markyzz
пардон за ламерство.никто не подскажет, как на модем (компортовый) отправить программно АТ-шную команду?
и как получить на эту команду ответ.