Помогите подключение к интернету

[eldar]

А вот моя программа на делфи 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
_____________

[Terran]

Я не совсем понимаю вопрос. Вам нужно проверить есть ли соединение с интернетом или соединиться с ним?

[eldar]

И то и другое
и проверить соединение и подключиться к нему!

[Terran]

Вот, я тут написал небольшой кодик для проверки соединения:

Uses
 RASUnit,...
-------------------------
Function Connecting: Integer;
Var
Conns: Array[1..10] Of TRasConn;
Size: Integer;
Num: Integer;
Begin
Size:=Sizeof(TRasConn)*10;
Fillchar(Conns, Size, 0);
Conns[1].DwSize:=Sizeof(TRasConn);
RASEnumConnectionsA(@conns[1], Size, Num);
Connecting:=Num;
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
If Connecting<>0 Then
Begin
ShowMessage('Интернет подключён');
End
Else
Begin
ShowMessage('Интернет не подключён');
End;
End;

Модуль RASUnit прилогается: RASUnit.rar

А через какой модем вы соединяетесь с интернетом?

[eldar]

ADSL модем

[eldar]

Terran
нет не получилось не мог бы скинуть пример,исходник этой программы!

[Terran]

Вот, набросал исходник, там есть проверка на подключение к интернету и пример как соединиться и разорвать соединение с интернетом: Проверка подключения.rar

[eldar]

Спасибо большое!

[AquaKlaster]

Сообщение от Terran

Вот, набросал исходник, там есть проверка на подключение к интернету и пример как соединиться и разорвать соединение с интернетом: Вложение 5157

Спасиб очень помогло!

[Айдар]

у меня чето не получаеться, через вашу прогу законнектиться, ввожу данные вроде верно(