got "PDWord" expected "LongInt"

[modjo]

При копиляции выскакивает ошибка:

main.pas(186,30) Error: Incompatible types: got "PDWord" expected "LongInt"

Сам код:

Код: Выделить всё

function GetUsersSession : String;
var
  level, prefmaxlen                        : DWORD;
  bufptr                                   : LPBYTE;
  totalentries, entriesread, resume_handle : PDWORD;
  servername, UncClientName, username      : LPWSTR;
  Err                                      : NET_API_STATUS;
  i                                        : Integer;
begin
  servername := nil;
  UncClientName := nil;
  username := nil;
  level := 502;
  bufptr := nil;
  prefmaxlen:= DWORD(-1);
  resume_handle := nil;
  i := 0;
  GetUsersSession := 'Неизвестно';
  Err := NetSessionEnum(servername, UncClientName, username, level, bufptr, prefmaxlen, entriesread, totalentries, resume_handle);
  if Err = NERR_Success then
    for i := 0 to entriesread-1 do              // <- ERROR
      GetUsersSession := IntToStr(i);
  if bufptr <> nil then
    NetApiBufferFree(bufptr);
end;

Подскажите как entriesread конвертнуть в integer (longint)?

[Mr.Smart]

работа с указателями

Код: Выделить всё

entriesread^

[modjo]

access violation теперь.

[Дож]

New(entriesread) не нужно делать? Или надеешься на то, что NetSessionEnum сам это сделает?

[modjo]

Не понял. Где я должен был это воткнуть?

[Mr.Smart]

Сделай лучше так:

Код: Выделить всё

function GetUsersSession : String;
var
  level, prefmaxlen                        : DWORD;
  bufptr                                   : LPBYTE;
  totalentries, entriesread, resume_handle : DWORD;
  servername, UncClientName, username      : LPWSTR;
  Err                                      : NET_API_STATUS;
  i                                        : Integer;
begin
  servername := nil;
  UncClientName := nil;
  username := nil;
  level := 502;
  bufptr := nil;
  prefmaxlen:= DWORD(-1);
  resume_handle := nil;
  i := 0;
  GetUsersSession := 'Неизвестно';
  Err := NetSessionEnum(servername, UncClientName, username, level, bufptr, prefmaxlen, @entriesread, @totalentries, @resume_handle);
  if Err = NERR_Success then
    for i := 0 to entriesread-1 do             
      GetUsersSession := IntToStr(i);
  if bufptr <> nil then
    NetApiBufferFree(bufptr);
end;

[modjo]

Я вижу два изменения.

totalentries, entriesread, resume_handle : DWORD;

Не рабочий вариант. http://msdn.microsoft.com/en-us/library/bb525382(VS.85).aspx Там вообще должно быть LPDWORD, "что на нашем языке" PDWORD.

[Дож]

Кажется кое-кто никогда не работал с указателями В коде Mr.Smart передаются не сами переменные, а указатели на них (с префиксной @).

А если через new, то втыкакать перед использованием - перед NetSessionEnum. И еще после использования вставить dispose в конец. Это на каждую PDWORD.

[modjo]

Ваша правда. Как-то без них обходился. Попробую разобраться. Спасибо за подсказки. Сильно не пинайте, если ещё будут глупые вопросы.

[modjo]

В общем я подизучил вопрос. Но потом понял, что NetSessionEnum выдает мне пустоту. Буфер пустой, entriesread тож пуст. Почитав немного про функцию, набрел на исходники и уже там понял что нужно ещё использовать GetProcAddress. Топчусь на одном месте ...