Скачать: CL | DM;

Помогите! Не пойму в чем ошибка!   Найти похожие ветки 

← →
_dmitry   (2003-01-22 10:55) [0]


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;


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

---

← →
ole ©   (2003-01-23 04:56) [1]

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

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;

---

← →
_dmitry   (2003-01-24 10:36) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c