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

← →
_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,
Огромное СПАСИБО!
Теперь все работает!

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