Модем

← →
ППавел (2002-08-07 04:55) [0]

Народ подскажите пожалуста как можно управлять модемом.
Тоесть заставить набирать нопределенный номер со всеми фишками
(пароль и имя пользователя)

← →
Juve © (2002-08-08 01:02) [1]

Есть у меня пара примерчиков, где то скаченных (на будущее).
Я сам толком не разбирался, но если что - могу выслать.
Может поможет...

← →
ППавел (2002-08-08 07:02) [2]

высылай

← →
Filat © (2002-08-08 11:12) [3]

А мне можешь выслать?
на sfilat@cr.avalbank.com
спасибо!

← →
Pingo © (2002-08-08 11:49) [4]

С завидной периодичностью возникает данный вопрос.
Если Вы не пишите чего-то универсального, а реализуете какое-то определенное решение может лучше использовать AT команды.
Благо с каждым модемом идет немалое PDFное руководство с прекрасным описанием. Если лень писать что-то для порта - есть прекрасный компонент. В итоге вы можете добится немалого с небольшими трудовыми затратами.
По-моему, это правильней!

← →
ППавел (2002-08-13 04:55) [5]

А ну дак как там с исходниками

← →
- Lazure - (2002-09-08 22:26) [6]

Где компонент? А прислать может кто?

← →
UnixManiac (2002-09-09 01:12) [7]

А мне выщли...
unixmaniac@chat.ru

← →
michael_b (2002-09-09 12:58) [8]

и мне bondarevsky2001@mail.ru

← →
Arkan (2002-09-10 03:42) [9]

и мне пожалуста Raptugava@hotmail.com

← →
alexta (2002-09-11 16:24) [10]

Всем выслали? ;)
А слабо взять любой компонент для работы с СОМ-портом (как самый простой вариант) и потрудиться заглянуть в мануал к модему?

← →
Евген © (2002-09-12 18:13) [11]

> Juve ©

И мне плз вышли :)

И мне тоже мона

← →
DjZapodlak (2002-09-17 05:36) [13]

Ну ели не надоело то и мне пожалуста!!!

← →
N_M_A (2002-09-17 12:12) [14]

И мне, если еще разок не затруднит пожалуйста !!!

ндя... у меня немного другая трабла: номер набрать то мона, но влт например нужно мне перевести момёд из импульсного режима в тоновый ВО ВРЕМЯ набора номера...
Например есть номер телефона(для мобилы), и для того что бы позвонить не него нужно набрать сначало один номер и после того как тетка скажет, что "нужно перевести телефон в тональный набор и набрать номер" перевести его и далее набирать номер...

← →
Serg Gurin (2002-09-19 01:21) [16]

Просто звонок - дальше можно корявить по своему разумению

function Ring(PhoneNumber, Client: String; PhoneCom: Integer): String; var Comment: Boolean; i : integer; hCommFile : THandle; CommPort, dialPhoneNumber : string; NumberWritten : Cardinal; begin Result := ""; i:=1; Comment := False; while i <= Length(PhoneNumber) do begin if not Comment then Comment := PhoneNumber[i] = "|"; if not (PhoneNumber[i] in ["p", "P", "w", "W", ",", "0".."9"]) or Comment then Delete(PhoneNumber, i, 1) else inc(i); end; if (Pos("p", PhoneNumber) > 1) or (Pos("P", PhoneNumber) > 1) then begin Result := "Неверно задан номер "+PhoneNumber; Exit; end; CommPort := "COM"+IntToStr(PhoneCom); hCommFile := CreateFile(PChar(CommPort), GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); if hCommFile=INVALID_HANDLE_VALUE then begin Result := "Нет возможности открыть "+ CommPort+"."; exit; end; {Dial the phone} dialPhoneNumber := "ATDT "+PhoneNumber+#13+#10; NumberWritten:=0; if WriteFile(hCommFile, PChar(dialPhoneNumber)^, Length(dialPhoneNumber), NumberWritten, nil) = false then begin Result := "Нет возможности набрать номер "+ PhoneNumber+"."; CloseHandle(hCommFile); Exit; end else begin MessageBox(Application.Handle, "Как будет набран номер, поднимите трубку и нажмите OK."^M+ "Или, если хотите прервать набор, то нажмите OK не поднимая трубки.", PChar(Client+" : "+PhoneNumber), MB_OK+MB_ICONEXCLAMATION); WriteFile(hCommFile, "ATH"^M^J, 5, NumberWritten, nil); end; {Close the port} CloseHandle(hCommFile); end;
Написал не я, но работает отлично

Модем Найти похожие ветки