WNetAddConnection2 и WinXP

← →
Andrews © (2004-10-12 13:03) [0]

Всем Привет!

Мастера подскажите почему этот код

var
NRStruct : NETRESOURCE;
RNetCon : DWORD;
UpdatePath : String;
....

with NRStruct do
begin
dwType := RESOURCETYPE_DISK;
lpLocalName := nil;
lpRemoteName := PChar(UpdatePath);
lpProvider := nil;
end;

if NetPassword = "" then RNetCon := WNetAddConnection2(NRStruct,nil,nil,0)
else RNetCon := WNetAddConnection2(NRStruct,PChar(NetPassword),nil,0);

if NOT(RNetCon = NO_ERROR) then
begin
case RNetCon of
ERROR_ACCESS_DENIED : S := "Отказано в доступе!";
ERROR_ALREADY_ASSIGNED : S := "Подключение к устройству, указанному в параметре lpLocalName уже установлено!";
ERROR_BAD_DEV_TYPE : S := "Тип устройства и тип ресурса не соответствуют!";
ERROR_BAD_DEVICE : S := "Значение, указанное в lpLocalName недопустимо!";
ERROR_BAD_NET_NAME : S := "Значение, указанное в lpRemoteName параметре - не правильно или не может быть найдено!";
ERROR_BAD_PROFILE : S := "Пользовательский профиль имеет неправильный формат!";
ERROR_CANNOT_OPEN_PROFILE : S := "Система неспособна открыть параметр пользователя, чтобы обработать постоянные подключения!";
ERROR_DEVICE_ALREADY_REMEMBERED : S := "Вход для устройства, указанного в lpLocalName - уже существует в параметре пользователя!";
ERROR_EXTENDED_ERROR : S := "Ошибка подключения к сети (network-specific error)!";
ERROR_INVALID_PASSWORD : S := "Неправильный пароль!";
ERROR_NO_NET_OR_BAD_PATH : S := "Операция не может быть выполнена, потому что или сетевой компонент не загружен, или указанное сетевое имя не может использоваться!";
ERROR_NO_NETWORK : S := "Сеть не обнаружена!";
end;
end;

прекрасно работает на машине с Win9x и не работает под WinXP?

Выдает ошибку ERROR_NO_NET_OR_BAD_PATH путь заведомо рабочий, в XP права администратора. Вероятно в NETRESOURCE нужно использовать еще какие либо параметры, но какие? Или подстава в другом?

← →
Reindeer Moss Eater © (2004-10-12 13:22) [1]

ERROR_NO_NET_OR_BAD_PATH

← →
Дмитрий Ботвин (2004-10-12 13:32) [2]

Видимо структуру определил не полностью.В SDK она описана так:

typedef struct _NETRESOURCE { // nr
DWORD dwScope;
DWORD dwType;
DWORD dwDisplayType;
DWORD dwUsage;
LPTSTR lpLocalName;
LPTSTR lpRemoteName;
LPTSTR lpComment;
LPTSTR lpProvider;
} NETRESOURCE;

попробуй описать полностью

← →
Andrews © (2004-10-12 13:34) [3]

ПУТЬ рабочий, СЕТЬ доступна, использую компонент PBFolder в этой же программе для выбора сетевой папки, он прекрасно сеть видит, если подмонтировать сетевой диск с помощью RNetCon := WNetConnectionDialog(Application.Handle,RESOURCETYPE_DISK); тоже все прекрасно работает.

← →
Reindeer Moss Eater © (2004-10-12 13:36) [4]

В гетластеррор НАДО свято верить.

← →
Andrews © (2004-10-12 13:40) [5]

>> Дмитрий Ботвин

Спасибо попробую... просто все примеры которые я изучал об остальных параметрах ни слова не говорится, видать во времена 9x это было не актуально :o)

← →
Дмитрий Ботвин (2004-10-12 13:49) [6]

Так, а у тебя не SP2 случайно стоит???

Нет :o), мало того тот же код скомпиленный в D5 прекрасно работает везде, но пользователи хотят красивые кнопочки...

← →
Дмитрий Ботвин (2004-10-12 14:03) [8]

Тогда скорее всего дело в структуре. А кнопочки получатся тока
если на D7 скомпилить и использовать манифест XP

WNetAddConnection2 и WinXP Найти похожие ветки