ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Перенос файлов из сетевой папки в локальную службой
45 сообщений из 45, показаны все 2 страниц
  все  
Перенос файлов из сетевой папки в локальную службой
    #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
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786686
Александр Спелицин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Александр Спелицин
Участник
Из-под какой учетки запущена служба?
Если это localservice / localsystem, то эти учетки принципиально не имеют никаких прав для выхода в сеть. (Правда для localsystem есть одно исключение, но 99.99% это не Ваш случай).
...
Рейтинг: 0 / 0
15.03.2019, 13:44
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786695
warkdimka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
warkdimka
Гость
Александр СпелицинИз-под какой учетки запущена служба?
Если это localservice / localsystem, то эти учетки принципиально не имеют никаких прав для выхода в сеть. (Правда для localsystem есть одно исключение, но 99.99% это не Ваш случай).
служба из-под локальной учетки, она копирует в сеть, то есть права есть, но из сети не забирает
...
Рейтинг: 0 / 0
15.03.2019, 13:49
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786700
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
Arioch,

А может даже не в момент копирования вылетает из этой процедуры.
Угу. В этом месте нужно либо CheckOSError(CopyFile ()), либо if (CopyFile ()) then DeleteFile() else SysErrorMessage(GetLastError);

Ну и для отладки я бы натыкал запись в лог после каждого оператора. Тогда было бы видно, где возникает ошибка, на какой строке.
...
Рейтинг: 0 / 0
15.03.2019, 13:51
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786708
warkdimka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
warkdimka
Гость
Ariochwarkdimka
Код: 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:57
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786713
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
warkdimkaAriochпропущено...


Переменные? а что это такое???
Чем больше комьпютер тормозит - тем круче программа!
есть файл настроек, там пути прописываются сразу из него беру пути
Вам намекают на то, что лучше один раз прочитать путь из настроек в переменную, а потом её использовать, чем постоянно читать из файла настроек.
...
Рейтинг: 0 / 0
15.03.2019, 14:00
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786714
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
warkdimkaAriochпропущено...

Переменные? а что это такое???
Чем больше комьпютер тормозит - тем круче программа!
есть файл настроек, там пути прописываются сразу из него беру пути

ну и ответь, зачем ты ТРИ раза читаешь файл с диска, потом ТРИ раза ищешь в нём одно и то же место, ТРИ раза вырезаешь это место в переменную ?
а если между этими разами файл поменяется и ты получишь разный текст?

в любом случае - зачем делать медленно?

вызвал функцию - ОДИН раз - положи результат в переменную.
Потому используй этот результат, а не гоняй туда-обратно по 10 раз.
...
Рейтинг: 0 / 0
15.03.2019, 14:00
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786715
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
Александр СпелицинИз-под какой учетки запущена служба?
Если это localservice / localsystem, то эти учетки принципиально не имеют никаких прав для выхода в сеть. (Правда для localsystem есть одно исключение, но 99.99% это не Ваш случай).

ему сразу сказали - 21833546

бесполезно

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

и это касается ЛЮБОЙ функции, хотя чтение файлов и поиск в нём - особенно

кстати, что функция (по сути, не по формальностям) PChar в данном случае почти бесплатна - это особенность Delphi. В других языках и она бы могла заниматься копированием данных например.
...
Рейтинг: 0 / 0
15.03.2019, 14:03
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786722
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
AriochИ обязательно прочитать статью 2010 года!
90% кода в интернете - говно
https://www.gunsmoker.ru/2010/05/90.html

...а потом переписать ВЕСЬ этот код начисто, с начала и до конца

Dixi
...
Рейтинг: 0 / 0
15.03.2019, 14:05
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786723
warkdimka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
warkdimka
Гость
AriochАлександр СпелицинИз-под какой учетки запущена служба?
Если это localservice / localsystem, то эти учетки принципиально не имеют никаких прав для выхода в сеть. (Правда для localsystem есть одно исключение, но 99.99% это не Ваш случай).

ему сразу сказали - 21833546

бесполезно

Но ведь иногда-то работает? значит всегда работает.
в сторону сети работает ВСЕГДА, из сети не работает
...
Рейтинг: 0 / 0
15.03.2019, 14:05
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786729
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
warkdimka,

каким конкретно местом в коде ТЫ - не кто-то, а лично ты - ГАРАНТИРУЕШЬ что оно работает ?
...
Рейтинг: 0 / 0
15.03.2019, 14:07
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786732
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
AriochГАРАНТИРУЕШЬ что оно работает ?

точнее, что оно _сработало_, в _каждом_ конкретном вызове.
...
Рейтинг: 0 / 0
15.03.2019, 14:08
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786734
warkdimka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
warkdimka
Гость
Ariochwarkdimka,

каким конкретно местом в коде ТЫ - не кто-то, а лично ты - ГАРАНТИРУЕШЬ что оно работает ?
работает, если с локальной папки передаем в сетевую. там 2 почти одинаковых куска кода (различие в путях). сколько объяснять можно?
...
Рейтинг: 0 / 0
15.03.2019, 14:11
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786739
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
Ariochкаким конкретно местом в коде

не надо словами

покажи конкретное место **в коде**, которое гарантирует, что функция отработала успешно

нет такого кода? это значит, что ТЫ никак не гарантируешь.
Ты просто играешь в спорт-лото.
Повезет - сработало.
Не повезло - да и хрен с ним.

Ну тогда и нормально все, нет проблемы. Ну не везет в половине случаев, зато в половине - повезло.




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

...а потом переписать ВЕСЬ этот код начисто, с начала и до конца

Dixi
...
Рейтинг: 0 / 0
15.03.2019, 14:14
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786742
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
goldmi45then DeleteFile()
а если эта функция не отработала?

goldmi45SysErrorMessage(GetLastError);
raiselastwin32error - так проще

goldmi45запись в лог после каждого оператора
Можно. Но проще последовательность рабтоыс файлами снаружи посмотреть, через procmon
А потом уже всталвять подробный лог, но не везде, а только в районе ошибки.
Если вообще лог изнутри будет нужен, может быть по внешнему логу уже будет ясно.
...
Рейтинг: 0 / 0
15.03.2019, 14:19
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786748
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
Ariochgoldmi45then DeleteFile()
а если эта функция не отработала?

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

забыл написать, даже если скопировалось - не значит ,что скопировалось правильно.

у вас никогда не "бились" файлы в процессе копирования по сети?

а у меня бились, и SMB, и HTTP, и FTP
не часто - но бывает
Хотя не должно, TCP retransmit и все фигня.
Не должно, очень редко - и все же бывает.

поэтому желательно после копирования уже на той стороне проверять, что файл в процессе копирования не побился.

Т.е. схема вообще по другому выглядит.
На компе-источнике формируются файлы и контрольные хэши к ним (обычный MD5 или SHA2 или ещё что).

На компе-приёмнике программа копирует оба файла, данные и хэш, издали к себе и *локально* проверяет целостность.
Если совпало - тогда уже удаляет файл-источник.

Заодно прячется проблема "читать из сети можем, писать в сеть не можем".
Ну... почти прячется, удаление - тоже вид записи.

говно-код останется говно-кодом, но это видимо всех устраивает.

P.S. Ещё лучше вместо пары XML+MD5 просто клать XML в ZIP. Если там только XML и аналогичные файлы.
Гораздо быстрее прокопируется, и при распаковке проверка на целостность автоматически.
...
Рейтинг: 0 / 0
15.03.2019, 14:32
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786768
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
goldmi45Ariochпропущено...

а если эта функция не отработала?

и тоже нужно проверять результат работы.

обрати внимание (присмотрись к типам параметров), что CopyFile он взял из Windows, а DeleteFile октуда-то из другого места, скорее всего SysUtils

ergo
1. если в uses будут те жде модули в рдугом порядке - программа может перестать компилироваться
2. даже сейчас у CopyFile и DeleteFile разные конвенции сообщения про ошибку, и проверять это надо по-разному

но всё хорошо, прекрасная маркиза. Иногда же работает? значит код всегда правильный.
...
Рейтинг: 0 / 0
15.03.2019, 14:39
| Ответить | Цитировать | Написать  
Перенос файлов из сетевой папки в локальную службой
    #39786771
warkdimka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
warkdimka
Гость
AriochAriochкаким конкретно местом в коде

не надо словами

покажи конкретное место **в коде**, которое гарантирует, что функция отработала успешно

нет такого кода? это значит, что ТЫ никак не гарантируешь.
Ты просто играешь в спорт-лото.
Повезет - сработало.
Не повезло - да и хрен с ним.

Ну тогда и нормально все, нет проблемы. Ну не везет в половине случаев, зато в половине - повезло.




Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Attr := faAnyFile - faVolumeID - faDirectory; //работает
nw.dwType := RESOURCETYPE_ANY; 
nw.lpLocalName := nil;
nw.lpRemoteName := сетевой путь;
nw.lpProvider := nil;
Err := WNetAddConnection2(nw, PChar(config.ReadString('Settings', 'netPass', '0')), PChar(config.ReadString('Settings', 'netUser', '0')), 0);

if FindFirst(локальный путь) + '*.xml', Attr, Sr) = 0 then //работа с каталогом (все пути указанны верно)
repeat
CopyFile(PChar(локальный путь) + Sr.Name), PChar(сетевой путь)+Sr.Name),false);
DeleteFile(локальный путь) + Sr.Name);
until FindNext(Sr) <> 0;


Attr := faAnyFile - faVolumeID - faDirectory; //НЕ работает
nw.dwType := RESOURCETYPE_ANY; 
nw.lpLocalName := nil;
nw.lpRemoteName := сетевой путь;
nw.lpProvider := nil;
Err := WNetAddConnection2(nw, PChar(config.ReadString('Settings', 'netPass', '0')), PChar(config.ReadString('Settings', 'netUser', '0')), 0);

if FindFirst(сетевой путь + '*.xml', Attr, Sr) = 0 then //работа с каталогом (все пути указанны верно)
repeat
CopyFile(PChar(локальный путь) + Sr.Name), PChar(сетевой путь)+Sr.Name),false);
DeleteFile(сетевой путь) + Sr.Name);
until FindNext(Sr) <> 0;


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

Код: 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 := сетевой путь;
  nw.lpProvider := nil;
  Err := WNetAddConnection2(nw, PChar(config.ReadString('Settings', 'netPass', '0')), PChar(config.ReadString('Settings', 'netUser', '0')), 0);

  if FindFirst(сетевой путь + '*.xml', Attr, Sr) = 0 then //работа с каталогом (все пути указанны верно)
    repeat
      CopyFile(PChar(локальный путь) + Sr.Name), PChar(сетевой путь)+Sr.Name),false); // Копируете из локального (какого) каталога на сетевой (какой?)
      DeleteFile(сетевой путь) + Sr.Name);
    until FindNext(Sr) <> 0;



CopyFile MSDN
...
Рейтинг: 0 / 0
15.03.2019, 14:59
| Ответить | Цитировать | Написать  
45 сообщений из 45, показаны все 2 страниц
  все  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Перенос файлов из сетевой папки в локальную службой
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=58&tid=2039693]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 48ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 237ms
total:  381ms
созд. / загр.: 381ms
x
x
Закрыть


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