Фай по модему

← →
Mashinist © (2002-08-16 10:34) [0]

Уважаемые мастера !
Не подкините ли примерчик, как отослать текстовый файл с модема на модем. И как определить, какой модем стоит по умолчанию, или если модем один - то на каком порту ?
Спасибо.

← →
ППавел (2002-08-16 22:14) [1]

Можешь использовать TClientSocket и TServerSocket;

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

← →
Роман Василенко © (2002-08-17 11:48) [2]

(Ну вот, опять меня сейчас будут бить...)

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

← →
Mashinist © (2002-08-18 21:58) [3]

Имею желание использовать стандартный API.
Операционка - Win98.
А если внутренние команды модема ?

← →
Mashinist © (2002-08-20 07:38) [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;

← →
ППавел (2002-08-20 10:48) [5]

R: TRegistry; - нету.

Чего нету ?
Добавь Registry в uses.

← →
ППавел (2002-08-21 03:56) [7]

Так и надо было сказать

Фай по модему Найти похожие ветки