При поддержке Smart Mobile Personal Digital Assistant
Эмблема проекта © 2004-2020 Smart Mobile Personal Digital Assistant. All rights reserved.


Начало  Регистрация  Поиск  FAQ  Разные разности  Новости Форума  Администрация Клуба

Siemens - клуб

 
 SC-форум : Siemens x55 : коды посылаемые в дата кабеле

Навигация:
Хозяйке на заметку: Внимание! На форуме открыты новые разделы: Эльфы, Программы, Java-приложения, а так же началось обсуждение телефонов любых производителей и электронных устройств вообще (компьютеры, игровые приставки, аудио, видео, фототехника и т.д.) в разделах Телефоны других фирм, Компьютеры и программы и Цифровая фото/видео/аудио техника.

Автор Сообщение
Joseph
Телефонист
С нами с: 16.09.2004
Плодовитость: 65


Просмотр досье Отправить письмо Оставить личное сообщениеСейчас нет на форуме SL55
Предупреждения:
ЗамечаниеПредупреждение
Рейтинг

Подано 1 (0/1) голосов
icon коды посылаемые в дата кабеле


Привет свеем,

имеется ли у кого не будь коды телефонов сиеменс, которые посылается через дата кабель, задача следующая, составляю программу на ПК который должен через дата кабель набирать номер на мобильнике и посылать СМСки

Заранее всем спасибо

04.05.2007 в 16:19
by Dimka
Телефонист
В миру: Островский Дмитрий
Откуда: Украина, недалеко от Мариуполя
С нами с: 11.10.2006
Плодовитость: 214


Просмотр досье (есть фото). Отправить письмо Оставить личное сообщение Домашняя страницаСейчас нет на форуме NOKIA 5110>С45>М65->CX70+Elfs
Рейтинг

Подано 22 (21/1) голосов
icon коды посылаемые в дата кабеле


Возьми прогу SiMoCo и посмотри журнал работы, там все видно. Если надо, могу дать исходник на Дельфи. Там обращение к СОМ порту и т.д.


____________________________
Железячник. Ремонт всего. Только своими силами и максимально бесплатно!

04.05.2007 в 16:58
Joseph
Телефонист
С нами с: 16.09.2004
Плодовитость: 65


Просмотр досье Отправить письмо Оставить личное сообщениеСейчас нет на форуме SL55
Предупреждения:
ЗамечаниеПредупреждение
Рейтинг

Подано 1 (0/1) голосов
icon коды посылаемые в дата кабеле


цитата:
by Dimka пишет: Возьми прогу SiMoCo и посмотри журнал работы, там все видно. Если надо, могу дать исходник на Дельфи. Там обращение к СОМ порту и т.д.

если не трудно пришли его намило
заранее спасибо
05.05.2007 в 15:29
by Dimka
Телефонист
В миру: Островский Дмитрий
Откуда: Украина, недалеко от Мариуполя
С нами с: 11.10.2006
Плодовитость: 214


Просмотр досье (есть фото). Отправить письмо Оставить личное сообщение Домашняя страницаСейчас нет на форуме NOKIA 5110>С45>М65->CX70+Elfs
Рейтинг

Подано 22 (21/1) голосов
icon коды посылаемые в дата кабеле


А ты адрес свой дай (кинь ченить на [email protected] )


____________________________
Железячник. Ремонт всего. Только своими силами и максимально бесплатно!

07.05.2007 в 16:07
visba
Телефонист
В миру: Алексей
Откуда: Россия, Архангельск
С нами с: 10.01.2006
Плодовитость: 208


Просмотр досье Отправить письмо Оставить личное сообщение Домашняя страницаСейчас нет на форуме E-TEN Glofiish X500
Рейтинг

Подано 14 (11/3) голосов
icon коды посылаемые в дата кабеле


Мне тоже кинь исходник, плз
[email protected]


____________________________
visba aka ][
Мой блог Skobkin.Ru
Nokia 3110 => Motorola T2288 => Nokia 3510i => Siemens M55 => E-Ten Glofiish X-500 => Siemens M55

10.05.2007 в 10:41
Top166
Начинающий телефонист
В миру: Egor
Откуда: Russia, Cherepovets
С нами с: 11.09.2007
Плодовитость: 1


Просмотр досье Отправить письмо Оставить личное сообщениеСейчас нет на форуме
Рейтинг

Подано 0 (0/0) голосов
icon коды посылаемые в дата кабеле


ребята дайте пожалуйсто то же исходники....
киньте на мыло.. плиз...

11.09.2007 в 19:44
by Dimka
Телефонист
В миру: Островский Дмитрий
Откуда: Украина, недалеко от Мариуполя
С нами с: 11.10.2006
Плодовитость: 214


Просмотр досье (есть фото). Отправить письмо Оставить личное сообщение Домашняя страницаСейчас нет на форуме NOKIA 5110>С45>М65->CX70+Elfs
Рейтинг

Подано 22 (21/1) голосов
icon коды посылаемые в дата кабеле


Вот тута даю всем желающим исходник.


Вот исходник из фака по дельфи.


Взаимодействие с мобильными телефонами
Вы, наверное, не раз видели или даже пользовались программами, которые отображают любую информацию о вашем телефоне.
Сейчас вы узнаете, как самим сделать такую программу!

Для начала положим на форму Memo, CheckBox "Соединиться», кнопку «Послать команду», Edit.

А) Подключение

Итак, в «Public declarations» объявляем 2 функции и 2 процедуры, потом объявляем 4 глобальные переменные:


public
{ Public declarations }

function OpenCOMPort: Boolean;
function SetupCOMPort: Boolean; //для настройки порта
procedure Connect;
procedure Disconnect;

var
Form1: TForm1;
ComFile: THandle; //Хэндл создаваемого нами файла
ComString: string; //(COM1, COM2 или COM3)
ComSpeed: Integer; //Скорость взаимодействия с COM-портом
Status: Boolean; //подключен или не подключен (чтобы в дальнейшем проверять статус)

Жмём Ctrl+C и записываем дальше:

procedure TForm1.Connect;
begin
ComString := 'COM2';
ComSpeed := 19200;
if OpenCOMPort = true then //Открываем порт…
if SetupCOMPort = true then //…и конфигурируем его
Memo1.Lines.Add('Подключились...');
Sleep(1500); //засыпаем на полторы секунды чтобы дать время на соединение
end;

procedure TForm1.Disconnect;
begin
CloseHandle(ComFile);
Memo1.Lines.Add('Отключились.');
end;

function TForm.OpenCOMPort: Boolean;
var DeviceName: array[0..80] of Char;
Device: string;
begin
Device := ComString;
StrPCopy(DeviceName, Device);
ComFile := CreateFile(DeviceName,
GENERIC_READ or GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
if ComFile = INVALID_HANDLE_VALUE then
begin
Result := False;
Status := Result;
end
else
begin
Result := True;
Status := Result;
end;

end;

function TForm1.SetupCOMPort: Boolean;
const RxBufferSize = 256;
TxBufferSize = 256;
var DCB: TDCB;
Config: string;
CommTimeouts: TCommTimeouts;
begin
Result := True;
if not SetupComm(ComFile, RxBufferSize, TxBufferSize) then
Result := False;
if not GetCommState(ComFile, DCB) then
Result := False;

Config := 'baud=' + IntToStr(ComSpeed) + ' parity=n data=8 stop=1'; //Устанавливаем скорость
if not BuildCommDCB(@Config[1], DCB) then
Result := False;
if not SetCommState(ComFile, DCB) then
Result := False;

with CommTimeouts do
begin
ReadIntervalTimeout := 0;
ReadTotalTimeoutMultiplier := 0;
ReadTotalTimeoutConstant := 1000;
WriteTotalTimeoutMultiplier := 0;
WriteTotalTimeoutConstant := 1000;
end;
if not SetCommTimeouts(ComFile, CommTimeouts) then
Result := False;
end;

Теперь два раза щёлкаем по CheckBox и записываем код:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
Connect
else
Disconnect;
end;

В событии формы OnDestroy записываем:

procedure TForm1.FormDestroy(Sender: TObject);
begin
if Status = true then //При выходе из программы отключаемся
Disconnect;
end;

Б) Шлём команды и принимаем ответы

Щёлкаем два раза по кнопке «Послать команду» и записываем код:

procedure TForm1.Button1Click(Sender: TObject);
var BytesWritten: DWORD;
s: string;
d: array[1..1500] of Char;
BytesRead: DWORD;
i: Integer;
Result: string;
begin
s := Edit1.Text; //Берём команды из Edit1…
s := s + #13 + #10;
WriteFile(ComFile, s[1], Length(s), BytesWritten, nil); //…и посылаем их телефону
Result := '';
if not ReadFile(ComFile, d, SizeOf(d), BytesRead, nil) then
begin
MessageDlg('Ошибка чтения!', mtError, [mbOK], 0);
exit;
end;

s := '';
for i := 1 to BytesRead do //Считываем ответ от телефона
s := s + d[I];
Result := s;
Memo1.Lines.Add(Result); //Выводим ответ от телефона в Memo
end;

Вот и всё! Теперь подключите телефон, запускайте программу, ставьте галку в CheckBox'е, и, после того, как вам написали в
Memo, что вы подключились вводите в Edit любую AT-команду и жмите «Послать команду». Удачи!

В) Некоторые полезные команды AT

Этими командами вы можете воспользоваться, для посылки телефону (из поля Edit):

AT+CGMI – производитель
AT+CGMM – модель телефона
AT+CPAS – состояние
AT+COPS? – оператор
AT+CGSN – номер IMEI
AT+CGMR – версия прошивки
AT+CBC – степень зарядки телефона
AT+CREG? – статус сети
AT^SCID – номер SIM-карты
AT+CIMI - номер IMSI
AT^SPIC – попыток до блокировки SIM-карты

Более подробно о командах вы сможете узнать из pdf-инструкции s35i_c35i_m35i_atc_commandset_v01.pdf (можно утащить по
адресу: http://www.like.e-technik.uni-erlangen.de/...andset_v01.pdf)

Примечания: Автор: Лазуткин Алексей ([email protected]), помощь в написании: av3nger ([email protected])

Добавлено позже

А вот тута еще немного на эту тему:
http://bydimka.narod.ru/phone/atcomm.htm


____________________________
Железячник. Ремонт всего. Только своими силами и максимально бесплатно!

14.09.2007 в 16:23
 SC-форум : Siemens x55 : коды посылаемые в дата кабеле

Навигация:



Администрация Клуба. Разработка: BigVovch