Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.17;
Скачать: CL | DM;

Вниз

подключение сетевого диска   Найти похожие ветки 

 
levi   (2003-05-08 13:35) [0]

Помогите, пожалуйста! Может, кто с этим встречался?
Нужно подключить сетевым диском один из серверов (тут, правда, не задачка – сеть аркнетовская, ну дык, другой нет). Счастливо нахожу на форуме, что все делается легко и просто (ура!), практически передираю. Вот текст программки:

procedure TForm_Podkl.FormActivate(Sender: TObject);
var nw :TNetResource;
Err :Cardinal;
begin

nw.dwScope:=RESOURCE_GLOBALNET;
nw.dwType:=RESOURCETYPE_DISK;
nw.dwDisplayType:=RESOURCEDISPLAYTYPE_GENERIC;
nw.dwUsage:=RESOURCEUSAGE_CONNECTABLE;
nw.lpLocalName:=PChar("Z");
nw.lpRemoteName:=PChar("\\Server1\vol4\VOL4\ARM\KTI0\");
nw.lpProvider:=nil;

Err:=WNetAddConnection2(nw,"40193","19340",0);

If Err=NO_ERROR then
Form_Podkl.Close
else
Form_Podkl.Label1.Caption:="Ошибка подключения диска!!!";
end;

end.

В итоге получаю ошибку подключения диска 487. На что справка мне счастливо сообщает: «You should not receive this error as 486/487 instructions are always enabled.»
Что не так?
Извините, что уж больно подробно :(
За ранее спасибо.


 
alexvan ©   (2003-05-12 15:17) [1]


procedure TForm1.FormCreate(Sender: TObject);
var
ntr : NETRESOURCE;
code : DWORD;
pw, nm, locname, remname : PChar;
begin
pw:=StrAlloc(64*SIZEOF(Char));
nm:=StrAlloc(64*SIZEOF(Char));
locname:=StrAlloc(64*SIZEOF(Char));
remname:=StrAlloc(64*SIZEOF(Char));

StrPCopy(locname, "Z:");
StrPCopy(remname, "\\Server1\vol4\VOL4\ARM\KT10");
StrPCopy(pw, "PAROL");
StrPCopy(nm, "LOGIN");

with ntr do
begin
dwType := RESOURCETYPE_DISK;
lpLocalName := locname;
lpRemoteName := remname;
lpProvider := nil;
end;
code := WNetAddConnection2(ntr, pw, nm, 0);
if NO_ERROR = code then ShowMessage("Есть коннект!!!")
else ShowMessage(IntToStr(code));

StrDispose(remname);
StrDispose(locname);
StrDispose(pw);
StrDispose(nm);
end;


 
Deus   (2003-05-13 15:14) [2]

Не знаю, как аркнете, но в своё время всё решилось наглым прописываением (и постоянным забиванием - юзеры - дети в комп. клубе ДОСТАЛИ отмену в начале загрузки и подключения к серверу жать ;((() нужных подключений в реестре. Правда, нужна перезагрузка. Но зато дёшево эффективно и сердито.



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

Текущий архив: 2003.07.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-55560
SkyRanger
2003-07-04 08:35
2003.07.17
Бинарное дерево


1-55569
Mishenka
2003-06-30 21:33
2003.07.17
Как в MaskEdit обработать исключение EDBEditError???


3-55455
mikl2002
2003-06-25 07:17
2003.07.17
Не соединяеся с FireBird 1+Linux из winxp


3-55421
DBDev
2003-06-24 10:53
2003.07.17
Коллеги, подскажите с CurrencyFormat-ом плиз.


14-55762
Holy
2003-07-02 16:56
2003.07.17
Выделение и освобождение памяти.