Скачать: CL | DM;

Сброс модема   Найти похожие ветки 

← →
vitv ©   (2007-07-11 17:24) [0]

Как можно сбросить модем?
(т.е. ресет модема) :)

---

← →
Rip_1982 ©   (2007-07-11 17:31) [1]

Пошли ему AT команду. Zn по моему.

---

← →
Reindeer Moss Eater ©   (2007-07-11 17:37) [2]

ATZ + CR

---

← →
DrPass ©   (2007-07-11 17:55) [3]

И, кстати, о каком модеме идет речь?

---

← →
vitv ©   (2007-07-11 18:04) [4]

usb

---

← →
Anatoly Podgoretsky ©   (2007-07-11 19:19) [5]

> vitv  (11.07.2007 17:24:00)  [0]

Зависит от модема, но обычно ATZ
Команду сброса можно найти в реестре

---

← →
vitv ©   (2007-07-12 09:44) [6]

Спасибо за помощь!

---

← →
vitv ©   (2007-07-12 10:37) [7]

Постоянно пишет - не могу открыть порт.
procedure upmodem;
var
 PhoneCommand: string;
 CommPort: string;
 NumberWritten: cardinal;
 hCommFile: THandle;

begin
 PhoneCommand := "atz" + #13 + #10;
 CommPort := Form1.Edit1.text;



 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(PhoneCommand)^,
   Length(PhoneCommand),
   NumberWritten,
   nil) = false then
 begin
   ShowMessage("Unable to write to " + CommPort);
 end;
end;

---

← →
Rip_1982 ©   (2007-07-12 12:06) [8]

А ты имя порта правильно задаешь?

---

← →
Reindeer Moss Eater ©   (2007-07-12 12:11) [9]

ShowMessage("Unable to open " + CommPort);

Очень информативное и полезное сообщение.

А гетластеррор не используешь специально, чтобы никто не узнал настоящую причину отказа?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c