Сброс модема

← →
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]

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

Постоянно пишет - не могу открыть порт.
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;

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

ShowMessage("Unable to open " + CommPort);

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

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

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