| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

подключение сетевого ;диска [D5, Win95/98]

levi ©   (2003-05-08 13:35:00) 

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

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.»
Что не так?
Извините, что уж больно подробно :(
За ранее спасибо.

---

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

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

---

alexvan   (2003-05-12 15:17:00) [2]


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;


---

Наверх