Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 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.56 MB
Время: 0.032 c
14-92666
Desdechado
2002-10-07 13:18
2002.10.28
Ассоциации


1-92547
Jel
2002-10-15 17:24
2002.10.28
Окошко, не желающее становиться активным


3-92370
Avsam
2002-10-04 18:48
2002.10.28
TBitmap в/из Blob


4-92817
Yegor Derevenets
2002-09-07 17:46
2002.10.28
Размер оперативной памяти, выделенной процессу


14-92732
Кот Бегемот
2002-10-08 15:31
2002.10.28
Присвоить Рыжику _





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский