ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Перенос файлов из сетевой папки в локальную службой
25 сообщений из 45, страница 1 из 2
  1  все
Перенос файлов из сетевой папки в локальную службой
    #39786525
warkdimka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
warkdimka
Гость
Службой подключаюсь к сетевому ресурсу через WNetAddConnection2, переношу из локальной папки в сетевую папку файлы(copyfile, deletfile) все хорошо, но когда наоборот хочу перенести из сетевой папки в локальную ничего не происходит. подскажите как реализовать перенос из сетевой папки
...
Рейтинг: 0 / 0
15.03.2019, 11:41
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786528
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
warkdimka... ничего не происходит.
Гасишь исключение?
...
Рейтинг: 0 / 0
15.03.2019, 11:45
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786538
warkdimka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
warkdimka
Гость
goldmi45,
в лог пишу SysErrorMessage(GetLastError)
...
Рейтинг: 0 / 0
15.03.2019, 11:51
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786540
warkdimka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
warkdimka
Гость
warkdimkagoldmi45,
в лог пишу SysErrorMessage(GetLastError) лог пустой
...
Рейтинг: 0 / 0
15.03.2019, 11:52
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786559
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
warkdimkaСлужбой подключаюсь к сетевому ресурсу через WNetAddConnection2

...и она подключается?
пользователь LOCAL_SYSTEM вроде как не имеет таких прав.

warkdimkaлог пустой

Можешь попробовать OutputDebugString
https://docs.microsoft.com/en-us/sysinternals/downloads/debugview
https://stackoverflow.com/questions/11218434/how-to-view-output-of-outputdebugstring

И в любом случае промониторь файловый доступ своей службы через SysInternals Process Monitor - что она делает, где она делает, что ей Windows отвечает
...
Рейтинг: 0 / 0
15.03.2019, 12:10
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786567
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
warkdimka,

Если "когда наоборот хочу перенести из сетевой папки в локальную ничего не происходит",
т.е. всё, все функции отрабатывают без ошибок и возвращают True (грубо говоря),
и файлы там точно были,
то это может означать только одно: ты стянул из сетевой шары вирусы и твой антивирус удалил их до того, как ты успел увидеть эти файлы.
...
Рейтинг: 0 / 0
15.03.2019, 12:16
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786569
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
Arioch...и она подключается?
пользователь LOCAL_SYSTEM вроде как не имеет таких прав.Не имеет, но раз он файлы "туда" смог скопировать, то оттуда - тем более можно будет.
...
Рейтинг: 0 / 0
15.03.2019, 12:16
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786581
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
warkdimkagoldmi45,
в лог пишу SysErrorMessage(GetLastError)
GetLastError может затираться любым успешным действием.
...
Рейтинг: 0 / 0
15.03.2019, 12:21
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786583
warkdimka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
warkdimka
Гость
Arioch,
если запускать через обычное приложение тот же самый код, то все работает: и подключается и файлы переносит
...
Рейтинг: 0 / 0
15.03.2019, 12:27
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786587
warkdimka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
warkdimka
Гость
YuRockwarkdimka,

Если "когда наоборот хочу перенести из сетевой папки в локальную ничего не происходит",
т.е. всё, все функции отрабатывают без ошибок и возвращают True (грубо говоря),
и файлы там точно были,
то это может означать только одно: ты стянул из сетевой шары вирусы и твой антивирус удалил их до того, как ты успел увидеть эти файлы.
у меня нет антивируса
...
Рейтинг: 0 / 0
15.03.2019, 12:33
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786594
warkdimka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
warkdimka
Гость
Arioch,

подключаюсь естественно под пользователем другой машины (на которой лежит расшаренная папка)
...
Рейтинг: 0 / 0
15.03.2019, 12:40
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786606
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
warkdimkaYuRockwarkdimka,

Если "когда наоборот хочу перенести из сетевой папки в локальную ничего не происходит",
т.е. всё, все функции отрабатывают без ошибок и возвращают True (грубо говоря),
и файлы там точно были,
то это может означать только одно: ты стянул из сетевой шары вирусы и твой антивирус удалил их до того, как ты успел увидеть эти файлы.
у меня нет антивирусаЗначит, если выполнены все перечисленные мной условия, то проблема неидентифицируема и неразрешима.
...
Рейтинг: 0 / 0
15.03.2019, 12:48
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786642
warkdimka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
warkdimka
Гость
YuRock,
так а почему, если запускать в приложении тот же код, все выполняется? антивирус виноват? если не знаешь - не засерай тему
...
Рейтинг: 0 / 0
15.03.2019, 13:06
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786646
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
warkdimkaподключаюсь естественно

я про то, какой пользователь службу выполняет
...
Рейтинг: 0 / 0
15.03.2019, 13:09
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786647
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
warkdimkaArioch,

подключаюсь естественно под пользователем другой машины (на которой лежит расшаренная папка)
А на локальную папку пользователь другой машины имеет доступ?

ЗЫ: код мы увидим?
...
Рейтинг: 0 / 0
15.03.2019, 13:09
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786649
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
goldmi45warkdimkagoldmi45,
в лог пишу SysErrorMessage(GetLastError)
GetLastError может затираться любым успешным действием.



у тебя тут вообще нет никакого Exception иначе бы была пустая строка как минимум (а точнее строка типа "ошибок нет все хорошо")

вспоминаем ,когда именно на x87 ловится состояние ошибки, однако.

Код: pascal
1.
2.
a := 1/0; // или даже вообще a := 0; a := 1/a; А то начнёт компилятор сам вычислять константы....
a := a+a; // а вот теперь проверяем на предмет раньших ошибок
...
Рейтинг: 0 / 0
15.03.2019, 13:11
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786651
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
goldmi45ЗЫ: код мы увидим?

нафиг код, пусть свою службу через Process Monitor трасисрует, что она реально пытается с файлами делать
...
Рейтинг: 0 / 0
15.03.2019, 13:12
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786652
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
Arioch,

С примером согласен, кривой.
...
Рейтинг: 0 / 0
15.03.2019, 13:13
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786653
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
goldmi45,

Вот если бы ты написал RaiseLastWin32Error(); - тогда да, тут бы ничего не было когда нет ошибки.
Но у тебя WriteLN и независимо от GetLastError он как минимум LN-то должен был написать
...
Рейтинг: 0 / 0
15.03.2019, 13:14
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786661
warkdimka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
warkdimka
Гость
goldmi45warkdimkaArioch,

подключаюсь естественно под пользователем другой машины (на которой лежит расшаренная папка)
А на локальную папку пользователь другой машины имеет доступ? у локальной папки все права расшарены на всех пользователей.
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
 Attr := faAnyFile - faVolumeID - faDirectory; //подключение
 nw.dwType := RESOURCETYPE_ANY;                                  
 nw.lpLocalName := nil;
 nw.lpRemoteName := PChar(config.ReadString('Settings', 'pathnetin', '0'));
 nw.lpProvider := nil;
 Err := WNetAddConnection2(nw, PChar(config.ReadString('Settings', 'netPass', '0')), PChar(config.ReadString('Settings', 'netUser', '0')), 0);

 if FindFirst(config.ReadString('Settings', 'path', '0') + '*.xml', Attr, Sr) = 0 then //работа с каталогом (все пути указанны верно)
    repeat
      CopyFile(PChar(config.ReadString('Settings', 'path', '0') + Sr.Name), PChar(config.ReadString('Settings', 'pathnetin', '0')+Sr.Name),false);
      DeleteFile(config.ReadString('Settings', 'path', '0') + Sr.Name);
    until FindNext(Sr) <> 0;
...
Рейтинг: 0 / 0
15.03.2019, 13:21
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786677
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
warkdimka,

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
if FindFirst(config.ReadString('Settings', 'path', '0') + '*.xml', Attr, Sr) = 0 then //работа с каталогом (все пути указанны верно)
repeat
  try
  CopyFile(PChar(config.ReadString('Settings', 'path', '0') + Sr.Name), PChar(config.ReadString('Settings', 'pathnetin', '0')+Sr.Name),false);
  DeleteFile(config.ReadString('Settings', 'path', '0') + Sr.Name);
  except
    on E: Exception do
      WriteLog(E.Message);
  end;
until FindNext(Sr) <> 0;


А если сделать так? WriteLog - это процедура записи сообщения в лог.
...
Рейтинг: 0 / 0
15.03.2019, 13:38
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786678
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
warkdimka
Код: sql
1.
2.
CopyFile(PChar(config.ReadString('Settings', 'path', '0') + Sr.Name), PChar(config.ReadString('Settings', 'pathnetin', '0')+Sr.Name),false);
      DeleteFile(config.ReadString('Settings', 'path', '0') + Sr.Name);



Ч.т.д.

А почему ты думаешь, что они вообще сработали???
Какие у тебя основания предполагать это вообще???

Ты их результат провeряшь? нет. Значит ты монетку подбрасываешь, то ли будет работать, то ли нет!

http://delphi.scps.ru/appl/appl5109.htm

И обязательно проситать статью 2010 года!
90% кода в интернете - говно
https://www.gunsmoker.ru/2010/05/90.html


http://docwiki.embarcadero.com/Libraries/Rio/en/System.SysUtils.CheckOSError
http://docwiki.embarcadero.com/Libraries/Rio/en/System.SysUtils.RaiseLastWin32Error

только когда у тебя
Код: pascal
1.
CheckOSError(CopyFile(...


Исключение бросит - не забудь с ним что-нибудь сделать
...
Рейтинг: 0 / 0
15.03.2019, 13:39
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786680
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
goldmi45
Код: pascal
1.
2.
  except
    on E: Exception do



какой на хрен Delphi TException в чистом Win32-коде ? Откуда???

PChar на каждом шагу и чаще видишь ?
...
Рейтинг: 0 / 0
15.03.2019, 13:39
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786682
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
warkdimkaErr := WNetAddConnection2(nw, PChar(config.ReadString('Settings', 'netPass', '0')), PChar(config.ReadString('Settings', 'netUser', '0')), 0);

вот это вообще феерия!

записали код ошибки.... И выкинули его на помойку.

90% кода в интернете - говно
...
Рейтинг: 0 / 0
15.03.2019, 13:41
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786684
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
warkdimka
Код: sql
1.
2.
3.
4.
5.
 if FindFirst(config.ReadString('Settings', 'path', '0') + '*.xml', Attr, Sr) = 0 then //работа с каталогом (все пути указанны верно)
    repeat
      CopyFile(PChar(config.ReadString('Settings', 'path', '0')  + Sr.Name), PChar(config.ReadString('Settings', 'pathnetin', '0')+Sr.Name),false);
      DeleteFile(config.ReadString('Settings', 'path', '0')  + Sr.Name);
    until FindNext(Sr) <> 0;



Переменные? а что это такое???
Чем больше комьпютер тормозит - тем круче программа!
...
Рейтинг: 0 / 0
15.03.2019, 13:43
| Ответить | Цитировать | Написать  
25 сообщений из 45, страница 1 из 2
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Перенос файлов из сетевой папки в локальную службой
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39786567&tid=2039693]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 175ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 65ms
get tp. blocked users:
 1ms
others: 199ms
total:  481ms
созд. / загр.: 481ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]