Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.02;
Скачать: 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 вся ветка

Текущий архив: 2004.02.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
9-1943
RIMMER
2003-07-17 23:32
2004.02.02
DelphiX: DXDraw на полный экран и обратно в runtime


3-1964
pashtet
2004-01-09 14:43
2004.02.02
Paradox+ODBC не работает функция upper()?


14-2359
Kerk
2004-01-10 12:24
2004.02.02
Рождество


3-1962
NAD_ST
2004-01-09 14:42
2004.02.02
Хранение баз данных


3-1959
KIR
2004-01-09 13:41
2004.02.02
Можно ли сложить строки в ХП IB