DELPHI КОПИРОВАНИЕ ФАЙЛА В СЕТЕВУЮ ПАПКУ C УКАЗАНИЕМ ИМЕНИ ПОЛЬЗОВАТЕЛЯ И ПАРОЛЯ

Копирование файла в сетевую папку может потребовать указания имени пользователя и пароля, особенно если доступ к этой папке защищен. В Delphi для таких случаев можно использовать функцию CopyFile, передав в качестве параметров путь к исходному файлу, путь к папке, в которую нужно скопировать файл, а также имя пользователя и пароль.

Пример кода:

uses
JwaWinBase, JwaWinnetwk;

function CopyFileToNetworkFolder(const ASourceFile, ATargetFolder, AUserName, APassword: string): Boolean;
var
netResource: TNetResource;
dwFlags: DWORD;
lpUserName, lpPassword: PChar;
begin
ZeroMemory(@netResource, SizeOf(netResource));
netResource.dwType := RESOURCETYPE_DISK;
netResource.lpRemoteName := PChar(ATargetFolder);
lpUserName := PChar(AUserName);
lpPassword := PChar(APassword);
dwFlags := CONNECT_UPDATE_PROFILE;
if WNetAddConnection2(netResource, lpPassword, lpUserName, dwFlags) = NO_ERROR then
try
Result := CopyFile(PChar(ASourceFile), PChar(ATargetFolder + '\' + ExtractFileName(ASourceFile)), False);
finally
WNetCancelConnection2(PChar(ATargetFolder), 0, True);
end
else
Result := False;
end;

Функция CopyFileToNetworkFolder принимает четыре параметра: ASourceFile (путь к исходному файлу), ATargetFolder (путь к целевой папке), AUserName (имя пользователя) и APassword (пароль). Функция сначала подключается к целевой папке, используя имя пользователя и пароль, а затем копирует файл в эту папку с помощью функции CopyFile. После копирования соединение разрывается с помощью функции WNetCancelConnection2.

JCLCompression and 7-Zip - Delphi #207

Работа с файлами в Python. Чтение и запись данных

Delphi - Сохранение данных в текстовый файл и компонент SaveDialog

Основы командной строки/Терминал #5 Перемещение и копирование файлов и папок

Что можно удалить на диске С? Что нельзя удалять? Руководство для пользователей ПК

LPIC 104.5 часть вторая: права доступа к файлам и папкам

Программирование в Delphi Урок 8. Компоненты Главное меню и диалоговые окна

Урок 2 Управление файлами и папками Поиск