Service - Write files to UNC-Path

[khuemmeler]

Hi all,

I need to save some XML-Files to a network-share, like \\servername\sharename , which has also login credentials.

This must be done within a unigui service application. Any help appreciated! Thanks in advance!

Regards   Klaus

 

[wprins]

Does your service run standalone or under e.g. IIS?  (Obviously the simplest is for the service to be set to run under an account with write rights to the share.)

[khuemmeler]

It's a standalone Windows-Service. But the login account can't be the same account, which has rights for the share. 

A persistant mapping seems not to work inside the service. 

[Abaksoft]

@Khuemmeler

In Service mode,  without account write rights, destination folder must be in  :  PublicDocuments

IMHO (In my humble opinion)

So, Copying your XML in :

\\Server\users\....\PublicDocuments

Where,  of course  PublicDocument is shared (in group residential)

Regards.

[khuemmeler]

Solved by using this code-snippet:

function MakeDriveMapping(DriveLetter: string; DirectoryPath: string;
  Username: string; Password: string; RestoreAtLogon: Boolean): DWORD;
var
  NetResource: TNetResource;
  dwFlags: DWORD;
begin
  with NetResource do
  begin
    dwType := RESOURCETYPE_DISK;
    lpLocalName := PChar(DriveLetter);
    lpRemoteName := PChar(DirectoryPath);
  lpProvider := nil;
  end;
  if (RestoreAtLogon) then
    dwFlags := CONNECT_UPDATE_PROFILE
  else
    dwFlags := 0;
  Result := WNetAddConnection2(NetResource, PChar(Password),
    PChar(Username), dwFlags);
end;