Главная страница
    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.45 MB
Время: 0.012 c
14-2347
Cerber
2004-01-10 18:09
2004.02.02
Кто со мной.


1-2133
chtr
2004-01-19 14:46
2004.02.02
Свойства формы как у диалога


14-2297
}|{yk
2004-01-12 16:33
2004.02.02
Вопросы из харьковского ЧГК. №4


14-2321
Teren
2004-01-09 00:15
2004.02.02
Любимые фильмы


3-2018
belkova
2004-01-06 09:44
2004.02.02
SQL-запрос из разных БД





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский