Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.016 c
4-2421
Sanad
2003-11-21 08:24
2004.02.02
Перехват принтера


4-2432
Сашок
2003-11-24 09:25
2004.02.02
Открытие файла


1-2109
Grinder
2004-01-19 19:07
2004.02.02
Округение real


4-2423
voe
2003-11-23 02:05
2004.02.02
Создания архиватора


1-2154
Zelius
2004-01-21 17:09
2004.02.02
Подскажите простой и надежный XML парсер.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский