Текущий архив: 2003.04.21;
Скачать: CL | DM;
Вниз
Пожалуста! помогите с коннектом! Найти похожие ветки
← →
alexvan © (2003-02-26 20:58) [0]Уважаемые мастера! Прабла в следующем. Надо создать сетевой диск. Папка на машине в другой рабочей группе.
В пределах своей группы всё нормально. Диск создаётся. Прописываю путь к другой - ни фига.
Код следующий
procedure TForm1.Button1Click(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));
memo1.Lines.LoadFromFile("setup.ini"); {Это просто для контроля}
StrPCopy(locname, Memo1.Lines[2]);
StrPCopy(remname, Memo1.Lines[3]);
StrPCopy(pw, Memo1.Lines[4]);
StrPCopy(nm, Memo1.Lines[5]);
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
begin
MessageBeep(MB_OK);
end;
StrDispose(remname);
StrDispose(locname);
StrDispose(pw);
StrDispose(nm);
end;
Некий файл ini выглядит так:
[NET]
RESOURCETYPE_DISK
Z:
в мою рабочую группу //комп/папка
пароль
ник
================
Терзают смутные сомнения: может к другому компу функция в переменной lpRemoteName путь не понимает?
← →
alexvan © (2003-02-27 06:58) [1]???
← →
alexvan © (2003-02-27 19:57) [2]Ну неужели никто не знает???
← →
ole © (2003-02-28 05:31) [3]Скорее всего пароль и ник, используемый для подключения к другой машине - неверен. Или там папка не расшарена. А путь должна понимать.
← →
alexvan © (2003-02-28 08:32) [4]Так самое прикольное, что с этим паролем и ником в эту папку через сетевое окружение попадаю без каких-либо проблем, и более: ник и пароль прописан в домене
Страницы: 1 вся ветка
Текущий архив: 2003.04.21;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
