Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

RasEnumEntriesA [D2005, XP]


Alians ©   (2006-11-19 18:50:00) 

Мастера! Подскажите что не так пытаюсь подключить RasEnumEntriesA
из rasapi32.dll но ругается говорит:

ERROR_INVALID_SIZE                   (RASBASE+32)
* An incorrect structure size was detected.%0

что я не так сделал?

Type
RASENTRYNAME=record
   dwSize: integer;
   szEntryName:array[1..256] of char;
end;

RasEum:function(reserved:integer;lpszPhonebook :integer;
 var lprasentryname:RASENTRYNAME;var LPSB:integer;out LPSentire:integer
 ):integer;stdcall;

var
renss:RASENTRYNAME;
lpsbD:integer;
LPSentireD:integer;
OutRasEum:integer;
begin

handldlli:=loadlibrary('rasapi32.dll');
@RasEum:=getprocaddress(handldlli,'RasEnumEntriesA');
OutRasEum:=raseum(0,0,renss,lpsbd,lpsentired);
showmessage(inttostr(OutRasEum));


Alians   (2006-11-19 20:17:00) [1]

И точно про него забыл! Заработало.


MikePetrichenko   (2006-11-19 19:58:00) [2]

А кто будет заполнять поле dsSize структуры перед вызовом функции.
Срочно читать MSDN


unknown   (2006-11-19 19:27:00) [3]

Посмотри как в JVCL сделано - модули Ras32, JvRas32
http://homepages.borland.com/jedi/jvcl/


Наверх

Титульная страница Поиск, карта сайта Написать письмо