|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Программное создание PPPOE
Никт оне подскажет как данное осуществить .... ? пишу сервис для конекта к интернету ... и нужно теперь программное создание ПППОЕ подключения....
в инете кучу примеров перечитал с расДаилом... результатов 0 .. |
#2
|
|||
|
|||
Нашел решение, может кому пригодиться ...
Код:
uses RASUnit; 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 := 1024262928; RE.dwCountryID := 7; RE.dwCountryCode := 7; RE.szAreaCode := ''; RE.szLocalPhoneNumber := ''; RE.dwfNetProtocols := RASNP_Ip; RE.dwFramingProtocol := RASFP_Ppp; RE.szDeviceType := 'pppoe'; RE.szDeviceName := 'WAN Miniport (L2PTP)'; // RE.szDeviceType := RASDT_Isdn; i := RasSetEntryPropertiesA(nil, 'Dom ru service', @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'); Memo1.Lines.Add('Ошибка'); |
#3
|
|||
|
|||
а где TrasEntry можно скачать?
что то нигде найти не могу |
#4
|
|||
|
|||
pppoe
http://www.magsys.co.uk/download/software/rasobj50.zip free component
Это компонент, который работает под Windows XP. Кто-нибудь может дать решения для Vista или Windows 7 |