Создание VPN соединения

[psycho-coder]

Сабж + один нюанс.
Нужно чтобы в результате появилось виндовское соединение в папке "Сетевые подключения" и потом пользователь будет использовать именно его.
RAS, на сколько я понял, мне не подходит.
P.S. Похожие темы смотрел

[raxp]

ras тоже подходит...
а вообще поиск рулит http://www.programmersforum.ru/showt...&highlight=vpn

[psycho-coder]

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

ras тоже подходит...

Почитав немного про RAS, я понял, что VPN соединением будет управлять программа написанная на RasAPI или я опять не так понял?

а вообще поиск рулит http://www.programmersforum.ru/showt...&highlight=vpn

Посмотрим

[raxp]

...вот вам код через ras:

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,'111');
 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 := '1241241';
 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 end
end;

[psycho-coder]

Спасибо, буду разбираться.
Значит я опять все не так понял((

[raxp]

Значит я опять все не так понял((

...где сказано, что не так? все путем

[psycho-coder]

Я имел ввиду, что, я думал, что с помощью RAS нельзя создать соединение, так как я хотел.

[tigrenokmosya]

Искал долго решение, в Интернете масса обсуждений на различных формах.
В итоге не нашел одного целого и собрал сам тузлу для автоматического создани vpn-соединение с помощью Delphi
Начал делать сайт проекта http://tigrenokmosya.narod.ru/
Сайт еще немного доделать надо, но файлы исходников и пример работы программы там есть. Чем смог, тем помог.

[raxp]

да ну, шо вы говорите

[shs777]

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

Искал долго решение, в Интернете масса обсуждений на различных формах.
В итоге не нашел одного целого и собрал сам тузлу для автоматического создани vpn-соединение с помощью Delphi
Начал делать сайт проекта http://tigrenokmosya.narod.ru/
Сайт еще немного доделать надо, но файлы исходников и пример работы программы там есть. Чем смог, тем помог.

Однако же ни одного исходника на сайте нет.