Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сброс модема

vitv © (2007-07-11 17:24:00)
Как можно сбросить модем?
(т.е. ресет модема) :)

Reindeer Moss Eater (2007-07-12 12:11:00) [1]
ShowMessage('Unable to open ' + CommPort);

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

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

Rip_1982 (2007-07-12 12:06:00) [2]
А ты имя порта правильно задаешь?

vitv (2007-07-12 10:37:00) [3]
Постоянно пишет - не могу открыть порт.
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;

vitv (2007-07-12 09:44:00) [4]
Спасибо за помощь!

Anatoly Podgoretsky (2007-07-11 19:19:00) [5]
> vitv (11.07.2007 17:24:00) [0]

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

vitv (2007-07-11 18:04:00) [6]
usb

DrPass (2007-07-11 17:55:00) [7]
И, кстати, о каком модеме идет речь?

Reindeer Moss Eater (2007-07-11 17:37:00) [8]
ATZ + CR

Rip_1982 (2007-07-11 17:31:00) [9]
Пошли ему AT команду. Zn по моему.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »