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

Как подключится к сетевому рессурсу и стащить (если нужно) файл   Найти похожие ветки 

← →
Boroda Oleg   (2004-01-21 10:20) [0]

Господа, тривиальный вопрос!

Нужно подключится к сетевому рессурсу и стащить оттуда файл, если возникает такая необходимость. Как это можно решить без подключения сетевого диска?

Свое время я реализовывал функцию с подключением диска, но принцип работы мне не понравился. Во-первых, лениво проверять, есть ли уже такой диск (в качестве подключенного), во-вторых после первого подключения/отключения возникает ошибка, и в одном и том же сеансе Винды - 2 раз подключится не получается. Хотелось бы сделать это красиво.
На всякий случай приведу способ с подключением диска, может кто-то углядит ошибку - почему во второй раз после отключения не могу подключится.

var NR : TNetResource;
i : integer;
b : boolean;
begin
NR.dwType:=Resourcetype_disk;
NR.lpLocalName:="S:";
NR.lpRemoteName:="\\Main\marketingrab";
NR.lpProvider:="";
i:=(WNetAddConnection2
(NR,"lening","boroda",connect_update_profile));
b:=fCopy.CheckNewFiles; // копирование файла, если увеличилась дата

WNetCancelConnection2("S:",0,true);
// WNetCancelConnection2("\\Main\marketingrab",0,true); // пробовал и так, и так
WNetCancelConnection2("S:",CONNECT_UPDATE_PROFILE,true);

После однократного вызова в том же сеансе больше подключится не удается.


← →
Stas ©   (2004-01-21 10:22) [1]

А что разве CopyFile не скопирует с "\\COMP1\folder1\file.txt"



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

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



Память: 0.45 MB
Время: 0.015 c
1-2116
serg128
2004-01-19 12:16
2004.02.02
как передавать содержимое класса от клиентта на сервер?


14-2281
Дмитрий_Б
2004-01-09 14:48
2004.02.02
Вопрос к 1С-никам


1-2201
Юрий Ж.
2004-01-20 21:53
2004.02.02
СВОЙ (!!!) упаковщик


6-2252
user
2003-11-27 07:46
2004.02.02
TidTCPServer TidTCPClient


3-2017
Ермек
2004-01-06 17:57
2004.02.02
помогите с генератором




   Наверх