Как создать подключение к интернет.

[AnToHa-KiLL]

Вот в принципе через Ras создание "pppoe" соединения если поменять значение "RE.szDeviceType := 'pppoe';" на "RE.szDeviceType := 'vpn';" Будет "VPN"

procedure TForm1.Button1Click(Sender: TObject);
var
RE: TRasEntry;
DEV: array[1..100] of TRASDEVINFO;
i, j,cnt: integer;
begin
j := sizeof(DEV)*100;
DEV[1].dwSize := sizeof(TRASDEVINFO);
i := RasEnumDevicesA(@DEV[1], j, cnt);
Memo1.Lines.Add('j ='+IntToStr(j)+' i='+IntToStr(i)+' cnt='+IntToStr(cnt));
if i <> 0 then Memo1.Lines.Add('Ошибка!');
For i := 1 to cnt do Memo1.Lines.Add(DEV[i].szDeviceType+' = '+DEV[i].szDeviceName);

// RasCreatePhoneBookEntry(Form1.Handl e,);
Fillchar(RE, sizeof(TRasEntry), 0);
RE.dwSize := sizeof(TRasEntry);
RE.dwfOptions := 1024262928;
RE.dwCountryID := 7;
RE.dwCountryCode := 7;
RE.szAreaCode := '';
RE.szLocalPhoneNumber := 'NVTC';
RE.dwfNetProtocols := RASNP_Ip;
RE.dwFramingProtocol := RASFP_Ppp;
RE.szDeviceType := 'pppoe';
RE.szDeviceName := 'WAN Miniport (L2PTP)';
// RE.szDeviceType := RASDT_Isdn;
try
i := RasSetEntryPropertiesA(nil, 'Nvtc PPPOE', @RE, sizeof(TRasEntry), nil, 0);
if i = ERROR_BUFFER_INVALID then Memo1.Lines.Add('The address or buffer specified by lpRasEntry is invalid');
if i = ERROR_CANNOT_OPEN_PHONEBOOK then Memo1.Lines.Add('The phone book is corrupted or missing components');
except
Memo1.Lines.Add('Ошибка');
end;
end;
end.

P.S в строку RE.szLocalPhoneNumber := 'NVTC'; надо вписывать адрес VPN сервера, пример: RE.szLocalPhoneNumber := 'vpn.produm.net'

[mikityak29]

модемное подключение к интернет, если нет, то его надо создать (как в мастере виндовом, только так чтобы пользователь этого не видел и никак в этом не участвовал)

при подключении ево можно услышать..

[Arnezami@ukr.net]

Итак, всё что описано выше - ИМХО не подходит! На делфи есть библиотека, которая работает с VPN и вообще с Ras но либо мой товарищь плохо написал приложение, что постоянно одни с ней проблемы, либо такая библиотека, так как программист он хорошиЙ. Вообщем я полностью разобрался с Ras, как создавать, управлять, задавать различные параметры, получать массивы с активными соединениями и т.д!

Вот ссылка, которая будет полезна тем, кому нужно программно работать с Ras - www.dotras.codeplex.com

Библиотека, которая позволяет работать без проблем с Ras библотекой. У меня есть уже готовый класс, работающий с dotRas.dll, отлаженый и полностью рабочий, так что кому нужно - стучите в аську всем вышлю и помогу разобраться! 321-744-333