Народ подскажите пожалуйста как настроить подключение телефона siemens к компу через COM порт и работать (посылать АТ команды) из Delphi.

Использую Delphi 7, компонент для работы с COM портом (TComm или TBComPort (19200, Parity=None, StopBits=1)), кабель подключен с COM1.

Контролирую работу программой — Serial Monitor.
Посылаю АТ команду (любую) из Delphi и никакой реакции.
Посылаю эти же команды из HyperTerminal — телефон реагирует как и должен (есть ответные сообщения).

Большая просьба если кто знаком с подобным киньте кусок исходников — там где настраивается соединение и что-нибудь отсылается на телефончик.

Заранее огромное спасибо за помощь.

Здравствуйте, seleznyov, Вы писали:

S>Большая просьба если кто знаком с подобным киньте кусок исходников — там где настраивается соединение и что-нибудь отсылается на телефончик.

S>Заранее огромное спасибо за помощь.

Код есть только на С++, но все же дам совет. В программе устанавливайте DTR и RTS во включенное состояние и Handshaking желательно в режим RTS/CTS. Должно помочь.

"Decoy" <65081@users.rsdn.ru> wrote in message news:2439634@news.rsdn.ru...
> Код есть только на С++, но все же дам совет. В программе устанавливайте DTR и RTS во включенное состояние и Handshaking желательно в режим RTS/CTS. Должно помочь.

Вдобавок не стоит забывать посылать CR + LF после команды (символы 13 и 10).

Пример моей команды (то что отсылаю):
2B 2B 2B 41 54 45 30 0D или в виде текста: +++ATE0 (эту команду выполняет одна из программ, которая работает с телефоном и после выполнении с телефона приходит ответ: 0D 0A 4F 4B 0D 0A (..OK..))

DTR и RTS пробовал включать/выключать оба и по отдельности, не помогло,
Handshaking — ничего похожего не нашел

Для работы с Com портом использую компонент TComm и пробовал использовать TBComPort результаты одинаковые
в компонентах устанавливал TComm (в скобках TBComPort):
BoudRate(BoudRate) = 19200 и 9600
Databits(BiteSize)=8
FlowControl=None
Parity(Parity)=None
StopBits(StopBits)=10(1)
DTR и RTS — перебрал все варианты включено/выключено

Вот мой не рабочий пример:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
Comm1.DeviceName:='Com1';
Comm1.Databits:=TDatabits(da8);
Comm1.BaudRate:=TBaudrate(br19200);
Comm1.FlowControl:=TFlowControl(fcNone);
Comm1.Parity:=TParity(paNone);
Comm1.Stopbits:=TStopbits(sb10);
Comm1.Open;
Comm1.SetDTRState(true);
s:='ATE0'+#13;
Comm1.Write(s[1],length(s));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Comm1.Close;
end;

"seleznyov" <62466@users.rsdn.ru> wrote in message news:2440281@news.rsdn.ru...
> s:='ATE0'+#13;

s:='ATE0'+#13#10;
пробовал?

Здравствуйте, wellwell, Вы писали:

W>"seleznyov" <62466@users.rsdn.ru> wrote in message news:2440281@news.rsdn.ru...
>> s:='ATE0'+#13;

W>s:='ATE0'+#13#10;
W>пробовал?
Телефон ничего не присылает, так как его об этом не просят. Где код чтения. Вы пишете — телефон скапливает у себя в буфере ответ. Как только вы попросите его (процедура в виде readData или как она у этого компонента называется) он вам сразу и ответит

Спасибо, всем за помощь, все работает, надо было просто прочитать что лежит в телефоне после команды

Здравствуйте, seleznyov, Вы писали:

S>Спасибо, всем за помощь, все работает, надо было просто прочитать что лежит в телефоне после команды
Тут спасиба обычно в виде оценки.