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

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

Помогите! Не пойму в чем ошибка! [D6]

_dmitry ©   (2003-01-22 10:55:00) 


function GetNetPath(name:string):string;
var
lpNetResource,
lpNet : PNetResource;
cbBuffer : DWORD;
dwNetType : Cardinal;
lpProviderName: Pchar;
s : widestring;
begin
result := "";
cbBuffer := 100;
dwNetType := WNNC_NET_LANMAN;
getmem(lpProviderName,cbBuffer);
if wnetgetproviderName(dwNetType,lpProviderName,cbBuffer)=0 then
begin
new(lpNetResource);
new(lpNet);
cbBuffer:=1000;
lpNetResource^.lpRemoteName := PCHAR("\\"+name);
lpNetResource^.dwType := RESOURCETYPE_ANY;
lpNetResource^.lpProvider := lpProviderName;
if wnetgetresourceparent(lpNetResource,lpNet,cbBuffer)=0 then
begin
// Функция должна возвращать это значение
// ее тип lpRemoteName: PAnsiChar
s:= lpnet^.lpRemoteName;
end;
// Но когда освобождаю пямять то возникает ошибка. Почему?
Dispose(lpNet);
Dispose(lpNetResource);
end;
freemem(lpProviderName);
result := string(s);
end;


Я прошу прощения за ламерский вопрос, ошибка, скорее всего из-за неумения пользоватся указателями. Но я перепробовал уже кучу вариантов, но понять почему так происходит не могу. :(

---

_dmitry   (2003-01-24 10:36:00) [1]

ole,
Огромное СПАСИБО!
Теперь все работает!

---

ole   (2003-01-23 04:56:00) [2]

Как тебе такой вариант?

function GetNetPath(name:string):string;
var
lpNetResource,
lpNet : NetResource;
cbBuffer : DWORD;
dwNetType : Cardinal;
lpProviderName: Pchar;
s : widestring;
begin
result := "";
cbBuffer := 100;
dwNetType := WNNC_NET_LANMAN;
getmem(lpProviderName,cbBuffer);
if wnetgetproviderName(dwNetType,lpProviderName,cbBuffer)=0 then
begin
cbBuffer:=1000;
lpNetResource.lpRemoteName := PCHAR("\\"+name);
lpNetResource.dwType := RESOURCETYPE_ANY;
lpNetResource.lpProvider := lpProviderName;
if wnetgetresourceparent(@lpNetResource,@lpNet,cbBuffer)=0 then
begin
s:= lpnet.lpRemoteName;
end;
end;
freemem(lpProviderName);
result := string(s);
end;

---

Наверх