|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.08.2008, 15:44 | #1 |
Форумчанин
Регистрация: 04.08.2008
Сообщений: 154
|
Помогите подключение к интернету
А вот моя программа на делфи 7
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) GroupBox1: TGroupBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; GroupBox2: TGroupBox; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} end. вот как теперь можно соединить этот код: function GetConnect(var strKind: string): Boolean; var flags: DWORD; begin strKind := ''; Result := InternetGetConnectedState(@flags, 0); if Result then begin if (flags and 1) = 1 then strKind := 'Modem'; if (flags and 2) = 2 then strKind := 'LAN'; if (flags and 4) = 4 then strKind := 'Proxy'; if (flags and 8) = 8 then strKind := 'Modem Busy'; end; end; procedure TForm1.XiButton2Click(Sender: TObject); var strkind:string; begin if GetConnect(strKind) then ShowMessage('есть') else ShowMessage('нету'); end; или этот function IsConnectedToInternet: Boolean; var dwConnectionTypes: DWORD; begin dwConnectionTypes:= INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; Result:= InternetGetConnectedState(@dwConnec tionTypes, 0); end; procedure TForm1.XiButton1Click(Sender: TObject); begin if IsConnectedToInternet then showmessage ('Y') else showmessage ('N'); end; эти коды взяты вот отсюда http://www.programmersforum.ru/showthread.php?t=15054 _____________ |
04.08.2008, 16:02 | #2 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Я не совсем понимаю вопрос. Вам нужно проверить есть ли соединение с интернетом или соединиться с ним?
Всегда рад помочь!
|
04.08.2008, 16:16 | #3 |
Форумчанин
Регистрация: 04.08.2008
Сообщений: 154
|
И то и другое
и проверить соединение и подключиться к нему! |
04.08.2008, 16:25 | #4 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Вот, я тут написал небольшой кодик для проверки соединения:
Код:
А через какой модем вы соединяетесь с интернетом?
Всегда рад помочь!
|
04.08.2008, 17:11 | #5 |
Форумчанин
Регистрация: 04.08.2008
Сообщений: 154
|
ADSL модем
|
04.08.2008, 17:29 | #6 |
Форумчанин
Регистрация: 04.08.2008
Сообщений: 154
|
Terran
нет не получилось не мог бы скинуть пример,исходник этой программы! |
05.08.2008, 11:16 | #7 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Вот, набросал исходник, там есть проверка на подключение к интернету и пример как соединиться и разорвать соединение с интернетом: Проверка подключения.rar
Всегда рад помочь!
|
05.08.2008, 14:24 | #8 |
Форумчанин
Регистрация: 04.08.2008
Сообщений: 154
|
Спасибо большое!
|
06.04.2009, 18:11 | #9 | |
Delphi,Python,PHP
Форумчанин
Регистрация: 04.04.2009
Сообщений: 138
|
Цитата:
|
|
24.11.2010, 16:20 | #10 |
Форумчанин
Регистрация: 20.06.2009
Сообщений: 195
|
у меня чето не получаеться, через вашу прогу законнектиться, ввожу данные вроде верно(
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проверка подключения к интернету | badfilin | Общие вопросы C/C++ | 9 | 28.03.2008 02:27 |
Подключение к интернету | ilya_cska | Общие вопросы .NET | 0 | 10.03.2008 12:27 |
Определить подключен ли комп к интернету | Иллидан | Общие вопросы Delphi | 2 | 21.02.2008 13:26 |
Передача файлов по интернету. Клиент-сервер. | Kukkk | Работа с сетью в Delphi | 4 | 03.12.2007 06:08 |