Форум: "Система";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
ВнизФай по модему Найти похожие ветки
← →
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; - нету.
← →
Mashinist (2002-08-20 22:11) [6]Чего нету ?
Добавь Registry в uses.
← →
ППавел (2002-08-21 03:56) [7]Так и надо было сказать
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c