Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.28;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.012 c
3-92407
sdn31@mail.ru
2002-10-05 15:32
2002.10.28
Как защитится от универсальных паролей, типа: jIGGAe и др


3-92347
Sergant
2002-10-06 05:00
2002.10.28
Не могу создать/добавить индекс в Firebird!!!


7-92761
mmb
2002-08-16 12:16
2002.10.28
Точный таймер (1-2 мсек)


14-92671
Lola
2002-10-06 12:26
2002.10.28
Письмо-счастье


3-92411
velk
2002-10-07 08:47
2002.10.28
Помогите пожалуйста с восстановлением базы данных под Informix..