Создание Vpn,PPPoE соединений на Delphi?

[ZirroCool]

У меня вот какой вопрос, как програмным способом создать VPN и PPPoE соединение! Желательно поподробнее если можно! Так же буду рад любому сабжу по этой теме!

[neprovad]

создать, т.е. открыть существующее или создать новое подключение нужного типа?

[GlOFF]

Думаю здесь вопрос с нуля написать клиента Vpn... :)

[ProTeuS]

имхо он иммет ввиду создать новое подклю4ение = установки и ярлык подклю4ения соотвествующего типа в папке "сетевые поджклю4ения"

[ZirroCool]

имхо он иммет ввиду создать новое подклю4ение = установки и ярлык подклю4ения соотвествующего типа в папке "сетевые поджклю4ения"
В точку!

[neprovad]

почитай также вот это
http://msdn2.microsoft.com/en-us/library/ms899530.aspx

[MNX]

Приветствую, уважаемые =)
Извините за задержку в ответе, но!
Компонент:
http://slil.ru/25692156
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.Handle,);
Fillchar(RE, sizeof(TRasEntry), 0);
RE.dwSize := sizeof(TRasEntry);
RE.dwfOptions := 66832;
// RASEO_RemoteDefaultGateway + RASEO_Custom + RASEO_RequireCHAP + RASEO_ShowDialingProgress;
RE.dwCountryID := 7;
RE.dwCountryCode := 7;
RE.szAreaCode := '';
RE.szLocalPhoneNumber := 'адрес для подключения';
RE.dwfNetProtocols := RASNP_Ip;
RE.dwFramingProtocol := RASFP_Ppp;
RE.szDeviceType := 'vpn';
RE.szDeviceName := 'WAN Miniport (L2PTP)';
// RE.szDeviceType := RASDT_Isdn;
try
i := RasSetEntryPropertiesA(nil, 'Название соединения', @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;
Если нужно, потом кину для PPPoE ;) Новичкам плюсеги в репу =)

[Imperfect]

Для PPPoE выложите пожалста..

[sabotag]

тоже интересует реализация на ПППоЕ....!!!!!

[Dr.mOBSCENE]

Приветствую, уважаемые =)
Извините за задержку в ответе, но!
Компонент:
http://slil.ru/25692156

Если нужно, потом кину для PPPoE ;) Новичкам плюсеги в репу =)
Если у кого осталось это счастье, перезалейте пожалуйста!

[Antoha-RaND]

Вот в принципе через Ras создание "pppoe" , тоже самое!

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.