Hi
Wir haben eine neue Citrix Farm eingerichtet.
Die Alte Farm hatte WinSrv 2008, die Neue ist 2016.
In Delphi mappe ich ein Laufwerk mit WNetAddConnection2...
TWNet.AddConnection(AppConfig.MapDrive, AppConfig.MapPath);
hier die Klassenmethode:
Delphi-Quellcode:
class function TWNet.AddConnection(ADrive, AFolder, AUsername, APassword:
string; AUpdateProfile: Boolean = False): Boolean;
var
NetResource: TNetResource;
dwFlags: DWORD;
UserName: PChar;
Password: PChar;
AResult: Cardinal;
begin
//Sleep(500);
with NetResource
do
begin
dwType := RESOURCETYPE_DISK;
lpLocalName := PChar(ADrive);
lpRemoteName := PChar(AFolder);
lpProvider :=
nil;
end;
if (AUpdateProfile)
then
dwFlags := CONNECT_UPDATE_PROFILE
else
dwFlags := 0
{CONNECT_TEMPORARY};
UserName :=
Nil;
Password :=
Nil;
if AUsername <> '
'
then
UserName := PChar(AUsername);
if APassword <> '
'
then
Password := PChar(APassword);
AResult := WNetAddConnection2(NetResource, Password, UserName, dwFlags);
Result := (AResult = NO_ERROR);
if not Result
then
raise Exception.Create('
Fehler beim Verbinden Netzlaufwerk: ' + sLineBreak + ADrive +
'
-> ' + AFolder + sLineBreak + '
Code: ' + IntToStr(AResult));
end;
In der neuen Farm unter Server 2016 erhalte ich folgende Fehlermeldung:
Fehler beim Verbinden Netzlaufwerk:
...
Code 1202
Was könnte das Problem auslösen?
Danke
Frank