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

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

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

Фай по модему [D6, Win95/98, WinME, WinXP]

Mashinist © (2002-08-16 10:34:00)
Уважаемые мастера !
Не подкините ли примерчик, как отослать текстовый файл с модема на модем. И как определить, какой модем стоит по умолчанию, или если модем один - то на каком порту ?
Спасибо.

ППавел (2002-08-21 03:56:00) [1]
Так и надо было сказать

Mashinist (2002-08-20 22:11:00) [2]
Чего нету ?
Добавь Registry в uses.

ППавел (2002-08-20 10:48:00) [3]
R: TRegistry; - нету.

Mashinist (2002-08-20 07:38:00) [4]
Сам себе ::::
Следующая процедура получает список установленных модемов в MS Windows:

function EnumModems: TStrings;
var
R: TRegistry;
s: ShortString;
N: TStringList;
i, j: integer;
begin
Result:= TStringList.Create;
R:= TRegistry.Create;
try
with R do
begin
RootKey:= HKEY_LOCAL_MACHINE;
if OpenKey("\System\CurrentControlSet\Services\Class\Modem", False) then
if HasSubKeys then
begin
N:= TStringList.Create;
try
GetKeyNames(N);
for i := 0 to N.Count-1 do
begin
CloseKey;
OpenKey(N[i], False);
s:= ReadString("AttachedTo");
for j := 1 to 4 do
if Pos(Chr(j+Ord("0")), s) > 0 then
Break;
Result.AddObject(ReadString("DriverDesc"), TObject(j));
CloseKey;
end;
finally
N.Free;
end;
end;
end;
finally
R.Free;
end;
end;

Mashinist (2002-08-18 21:58:00) [5]
Имею желание использовать стандартный API.
Операционка - Win98.
А если внутренние команды модема ?

Роман Василенко (2002-08-17 11:48:00) [6]
(Ну вот, опять меня сейчас будут бить...)

А какой операционкой пользуешься?
А имеешь ли желание использовать стандартные API?

ППавел (2002-08-16 22:14:00) [7]
Можешь использовать TClientSocket и TServerSocket;

где в Host прописываешь IP компьютера на котором стоит серверная программа.
Для тебе надо копировать текстовые файлы;

Наверх

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