Форум: "Сети";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];
ВнизПомогите! Не пойму в чем ошибка! Найти похожие ветки
← →
_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 вся ветка
Форум: "Сети";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c