Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Связь с телефоном 
:(
    Опции темы
mvdr
Дата 17.4.2005, 04:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


физик
***


Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: нет
Всего: 42
Можно ли с помощью Делфи синхронизировать нажатия клавиш "0"-"9" чтоб они нажимались на телефоне (т.е. нобирались?


--------------------
Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано
PM ICQ   Вверх
Alex
Дата 17.4.2005, 08:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 4
Всего: 162
На каком телефоне?


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Dr.No_xXx
Дата 17.4.2005, 09:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Alex
На обычном.Голосовом.
Femida
Мона подавать сигнал в трубку или прямо в сеть.Но нажимать....врядли smile
PM MAIL   Вверх
mvdr
Дата 19.4.2005, 07:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


физик
***


Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: нет
Всего: 42
телефон обычный, работает в тональном режиме.
Задача: с нажатием клавиш клавиатуры (0-9) и пробела (гудок) набрать номер. Знаю, что средствами Windows такое вроде возможно (есть проги какие то), а вот с Делфи нельзя?


--------------------
Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано
PM ICQ   Вверх
Guest
Дата 19.4.2005, 09:34 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Ну дык проги то делаются на языке программирования=>на delphi тож можно.Взять например модем.Он тоже набирает номер.Делай через него.
  Вверх
mvdr
Дата 19.4.2005, 10:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


физик
***


Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: нет
Всего: 42
а как? сделать не проблема - проблема - надо дать пинок, чтоб подтолкнуть.
P.S. про пинок я образно smile



--------------------
Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано
PM ICQ   Вверх
Dr.No_xXx
Дата 19.4.2005, 10:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Спроси у microsoft smile А если серьезно то

Код

var
hCommFile : THandle; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
 PhoneNumber : string;  
 
 CommPort : string;  
 
 NumberWritten : LongInt;  
 
  
begin 
 PhoneNumber := 'ATDT 1-555-555-1212' + #13 + #10;  
 
 CommPort := 'COM2';  
 
 {Open the comm port}  
 
 hCommFile := CreateFile(PChar(CommPort),  
 
  
 GENERIC_WRITE,  
 
 0,  
 
 nil,  
 
 OPEN_EXISTING,  
 
 FILE_ATTRIBUTE_NORMAL,  
 
 0);  
 
  
 if hCommFile=INVALID_HANDLE_VALUE then  
 
  
 begin  
 
  
 ShowMessage('Unable to open '+ CommPort);  
 
 exit;  
 
  
 end;  
 
  
 NumberWritten:=0;  
 
 if WriteFile(hCommFile,  
 
  
 PChar(PhoneNumber)^,  
 
 Length(PhoneNumber),  
 
 NumberWritten,  
 
 nil) = false then   
 
  
 begin  
 
  
      ShowMessage('Unable to write to ' + CommPort);  
 
     end;  
 
  
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
 {Close the port}  
 
 CloseHandle(hCommFile);  
 
  
end; 






Это сообщение отредактировал(а) Dr.No_xXx - 19.4.2005, 10:20
PM MAIL   Вверх
Петрович
Дата 19.4.2005, 10:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 1
Всего: 55
Цитата(Dr @ 19.4.2005, 11:17)
У кого с головой хорошо я добавлю вам эту информацию.

AT-команды модема
...
S-регистры модема
...

Отмечу лишь то, что у разных модемов, некоторые команды, а так же назначение некоторых S-регистров (старше S12) могут отличаться. Поэтому, крайне желательно сначала полистать описание AT-команд и S-регистров именно Вашего модема.
Но, для набора номера (команда ATD), это не важно. Она одинакова для всех Hayes-совместимых модемов smile.



--------------------
Все знать невозможно, но хочется
PM ICQ   Вверх
mvdr
Дата 19.4.2005, 11:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


физик
***


Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

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

NumberWritten:=0;
 if WriteFile(hCommFile,PChar(PhoneNumber)^,Length(PhoneNumber), NumberWritten, nil) = false then
ему не нравиться. выдает, что Types of actual and formal var parameters must be identical. что это?


--------------------
Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано
PM ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0798 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.