VPF::Создать даял-ап соединение - Форум программистов

Sunvas

Дата 22.6.2006, 22:55 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89

У меня винда глючит: при попытке создания новго удаленного подключения говорит, что какой-то программы ему не хватает. Но я заметил, что те соединения, которые уже существуют можна скопировать. Все соединения вдруг удалились (мной).. Вот и постал вопрос как добавить новое соединение в "Сеть и удаленный доступ"?

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Poseidon

Дата 23.6.2006, 00:14 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133

А зачем соеденения создавать программно? Просто соеденяйся программно. В FAQ есть пример соеденения с интернетом.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Sunvas

Дата 23.6.2006, 01:44 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89

Цитата(Poseidon @ 23.6.2006, 00:14

)

А зачем соеденения создавать программно?

Мне нужно именно добавить! Если б нужно было программно дозвониться я бы такой вопрос задал.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Sunr1se

Дата 23.6.2006, 12:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 193
Регистрация: 1.5.2006

Репутация: нет
Всего: 13

http://forum.ru-board.com/topic.cgi?forum=33&topic=4572
Здесь этот же вопрос обсуждался smile

--------------------

IRC-канал Винграда

Sunvas

Дата 23.6.2006, 18:16 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89

Цитата(Sunr1se @ 23.6.2006, 12:14

)

Здесь этот же вопрос обсуждался

Токо ссылка там битая. И кода толко нет.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

bems

Дата 24.6.2006, 04:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

RasCreatePhonebookEntry - в диалоге
RasSetEntryProperties - молча

--------------------

Обижено школьников: 8

bems

Дата 24.6.2006, 05:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

Написал вот примерчик, только осторожней там защиты от дурака и проверки на ошибки нету

Код


program RasDemo;
{$APPTYPE CONSOLE}
uses windows;
const RASEDFLAG_NoRename=$00000008;
      RAS_MaxAreaCode=10;
      RAS_MaxDeviceType =16;
      RAS_MaxPadType=32;
      RAS_MaxPhoneNumber=128;
      RAS_MaxDeviceName=128;
      RAS_MaxX25Address=200;
      RAS_MaxFacilities=200;
      RAS_MaxUserData=200;
      RAS_MaxEntryName=256;
type
 TRasIpAddr=record
            a,b,c,d:byte
            end;

 RASDEVINFO=record
            dwSize: DWORD;
            szDeviceType: array [0..RAS_MaxDeviceType] of AnsiChar;
            szDeviceName: array [0..RAS_MaxDeviceName] of AnsiChar;
            end;
 pRasDevInfo=^RASDEVINFO;

 RASENTRY=record
          dwSize: DWORD;
          dwfOptions: DWORD;
          dwCountryID: DWORD;
          dwCountryCode: DWORD;
          szAreaCode: array [0..RAS_MaxAreaCode] of AnsiChar;
          szLocalPhoneNumber: array [0..RAS_MaxPhoneNumber] of AnsiChar;
          dwAlternateOffset: DWORD;
          ipaddr: TRasIpAddr;
          ipaddrDns: TRasIpAddr;
          ipaddrDnsAlt: TRasIpAddr;
          ipaddrWins: TRasIpAddr;
          ipaddrWinsAlt: TRasIpAddr;
          dwFrameSize: DWORD;
          dwfNetProtocols: DWORD;
          dwFramingProtocol: DWORD;
          szScript: array [0..Pred(MAX_PATH)] of AnsiChar;
          szAutodialDll: array [0..Pred(MAX_PATH)] of AnsiChar;
          szAutodialFunc: array [0..Pred(MAX_PATH)] of AnsiChar;
          szDeviceType: array [0..RAS_MaxDeviceType] of AnsiChar;
          szDeviceName: array [0..RAS_MaxDeviceName] of AnsiChar;
          szX25PadType: array [0..RAS_MaxPadType] of AnsiChar;
          szX25Address: array [0..RAS_MaxX25Address] of AnsiChar;
          szX25Facilities: array [0..RAS_MaxFacilities] of AnsiChar;
          szX25UserData: array [0..RAS_MaxUserData] of AnsiChar;
          dwChannels: DWORD;
          dwReserved1: DWORD;
          dwReserved2: DWORD;
          end;
 pRasEntry=^RASENTRY;

 TRASENTRYDLG=packed record
              dwSize: DWORD;
              hwndOwner: HWND;
              dwFlags: DWORD;
              xDlg: LongInt;
              yDlg: LongInt;
              szEntry: array [0..RAS_MaxEntryName] of AnsiChar;
              dwError: DWORD;
              reserved: DWORD;
              reserved2: DWORD;
              szPadding: array [0..2] of AnsiChar;
              end;
 PRasEntryDlg=^TRASENTRYDLG;

function RasEnumDevices(lpRasDevInfo:PRasDevInfo;var lpcb,lpcDevices:DWORD):DWORD;stdcall;
          external 'RasApi32.dll' name 'RasEnumDevicesA';

function RasSetEntryProperties(lpszPhonebook:PChar;lpszEntry:PChar;lpRasEntry:PRasEntry;
                               pdwEntryInfoSize:DWORD;lpbDeviceInfo:pByte;pdwDeviceInfoSize:DWORD):DWORD;stdcall;
                                external 'RasApi32.dll' name 'RasSetEntryPropertiesA';

function RasEntryDlg(lpszPhonebook:PChar;lpszEntry:PChar;lpInfo:PRasEntryDlg):BOOL;stdcall;
          external 'RasDlg.dll' name 'RasEntryDlgA';

var re:RASENTRY;BufSize,count,i:DWORD;ed:TRASENTRYDLG;
    devices:array of RASDEVINFO;name:string;
begin
SetLength(devices,1);
devices[0].dwSize:=SizeOf(RASDEVINFO);
BufSize:=SizeOf(RASDEVINFO);count:=0;
RasEnumDevices(nil,BufSize,count);
if count=0 then begin
                writeln('No RAS-capable devices found');
                readln
                end
           else begin
                SetLength(devices,count);
                RasEnumDevices(@devices[0],BufSize,count);
                for i:=0 to high(devices) do
                 writeln(i+1,'. ',devices[i].szDeviceType,' ',devices[i].szDeviceName);
                write('Select device (by number:) >');readln(i);
                re.dwSize:=SizeOf(re);
                CopyMemory(@re.szDeviceType,@devices[i-1].szDeviceType,SizeOf(devices[i-1].szDeviceType));
                CopyMemory(@re.szDeviceName,@devices[i-1].szDeviceName,SizeOf(devices[i-1].szDeviceName));
                write('Enter phone number >');readln(re.szLocalPhoneNumber);
                write('Enter connection (for programmer - "phonebook entry") name >');readln(name);
                RasSetEntryProperties(nil,PChar(name),@re,SizeOf(re),nil,0);
                ed.dwSize:=SizeOf(ed);
                ed.dwFlags:=RASEDFLAG_NoRename;
                ed.reserved:=0;
                ed.reserved2:=0;
                RasEntryDlg(nil,PChar(name),@ed);
                end;
end.

--------------------

Обижено школьников: 8

Sunr1se

Дата 24.6.2006, 09:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 193
Регистрация: 1.5.2006

Репутация: нет
Всего: 13

Sunvas, вот здесь еще можно почитать:
http://msdn.microsoft.com/library/default....yproperties.asp

--------------------

IRC-канал Винграда

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »