Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

подсоединение к файл серверу [D7, WinXP]

kkk3632 © (2009-08-10 14:22:00)
Как из своей программы присоединиться к файл серверу (Windows 2003) под другим именем, для копирования файлов на сервер и с сервера?

Медвежонок Пятачок (2009-08-10 18:09:00) [1]
Он же тебе человеческим голосом говорит

Disconnect all previous connections to the server or shared resource and try again.

kkk3632 (2009-08-10 15:48:00) [2]
//====================================
Это ответ ОС

Multiple connections to a server or shared resource by the same user, using more than one user name, are not allowed. Disconnect all previous connections to the server or shared resource and try again.

ниже то что я у нее просил.

//====================================
lpszUsername, lpszDomain, lpszPassword, lpLocalName, lpRemoteName: array[Byte] of Char;

procedure StringToStr (astr: String; aBuf: PChar);
var i: Integer;
Begin

For i := 0 To Length(aStr) - 1 Do Begin
aBuf [i] := aStr[i+1];
End;
aBuf [Length(aStr)] := Chr (0);
End;
Begin
StringToStr ('SQLSUAdmin', lpszUsername);
StringToStr ('EMSS', lpszDomain);
StringToStr ('*******', lpszPassword);

StringToStr ('H:', lpLocalName);
StringToStr ('\\Backserv\OKIS', lpRemoteName);

lpNetResource.dwScope := 0;
lpNetResource.dwDisplayType := 0;
lpNetResource.dwUsage := 0;
lpNetResource.dwType := RESOURCETYPE_ANY;
lpNetResource.lpLocalName := lpLocalName;
lpNetResource.lpRemoteName := lpRemoteName;
lpNetResource.lpProvider := nil;
mLastError := WNetAddConnection2 (lpNetResource, lpszPassword, lpszUserName, CONNECT_UPDATE_PROFILE );
//====================================

Leonid Troyanovsky (2009-08-10 15:02:00) [3]

> kkk3632 © (10.08.09 14:22)

msdn: WNetAddConnection2, WNetCancelConnection2.

--
Regards, LVT.

Наверх

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