Вниз
Скачать: CL | DM;

подсоединение к файл серверу   Найти похожие ветки 

 
kkk3632 ©   (2009-08-10 14:22) [0]

Как из своей программы присоединиться к файл серверу (Windows 2003) под другим именем, для копирования файлов на сервер и с сервера?


 
Leonid Troyanovsky ©   (2009-08-10 15:02) [1]


> kkk3632 ©   (10.08.09 14:22)  

msdn: WNetAddConnection2, WNetCancelConnection2.

--
Regards, LVT.


 
kkk3632 ©   (2009-08-10 15:48) [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 );
//====================================


 
Медвежонок Пятачок ©   (2009-08-10 18:09) [3]

Он же тебе человеческим голосом говорит

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



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.006 c
15-1304424503
картман
2011-05-03 16:08
2011.08.21
напомните цитату


2-1305015386
werewolf2
2011-05-10 12:16
2011.08.21
освобождение objects stringlist а


15-1303981198
MDFE
2011-04-28 12:59
2011.08.21
Розовый слоник


2-1305114003
Max
2011-05-11 15:40
2011.08.21
все про Excel


15-1304314820
erutan
2011-05-02 09:40
2011.08.21
ошибка при загрузке Delphi




   Наверх