Текущий архив: 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.44 MB
Время: 0.009 c