Delphi 6 - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Delphi 6 (http://forum.oszone.net/showthread.php?t=29886)

LedWorm

12-04-2003 08:07 206166

1) Как узнать подключён ли компьютер к интернет.
2) Если да, то как можно отправить файл по определённому мылу, без использования почтовиков.

Заранее благодарен

Megabyte

14-04-2003 15:12 206167

1) Где-то на форуме об этом спрашивалось кучу раз, можешь поискать на delphi.mastak.ru статью про это. Насколько я помню, можно только определить, достижим ли определённый хост.
2) Для Дельфи есть великолепный набор сетевых компонентов FPiette (http://www.rtfm.be/fpiette), там есть SMTP-клиент, им цепляешься к smtp-серверу получателя и отправляешь.

Megabizon

14-04-2003 18:17 206168

Есть функция API, сам ее не пробовал.

InetIsOffline

Функция InetIsOffline определяет, подключена ли система к интернету или нет.

BOOL InetIsOffline( DWORD dwFlags);

Параметры

dwFlags – входные флаги функции. Значение параметра должно быть равно нулю.

Возвращаемые значения

Возвращается TRUE, если локальная система не подключена в настоящий момент к интернету.
Возвращается FALSE, если локальная система подключена в настоящий момент к интернету,
или еще не было попыток соединиться с интернетом.

Guest

21-03-2004 21:49 206169

InetIsOffline -- это шутка? Нет такой функции! :(

Megabizon

21-03-2004 22:23 206170

Цитата:

InetIsOffline -- это шутка? Нет такой функции!

Стыдно должно быть, лень в MSDN заглянуть
http://msdn.microsoft.com/library/de...tisoffline.asp

JCooper

28-03-2004 18:10 206171

Без шуток! :)

Код:

импорт ф-ции

function InetIsOffline(Flag: Integer): Boolean;

stdcall; external 'URL.DLL';



где-то в коде...



if InetIsOffline(0) then

 &nbsp;ShowMessage('This computer is not connected to Internet!')

else

 &nbsp;ShowMessage('You are connected to Internet!');

Время: 11:37.