Форум: "Начинающим";
Текущий архив: 2007.08.12;
Скачать: [xml.tar.bz2];
Вниз
Сброс модема Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.08.12;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.043 c
