ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Есть тут люди с добрым сердцем?
20 сообщений из 45, страница 2 из 2
  2  все
Есть тут люди с добрым сердцем?
    #39457977
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Квейд
Участник
Gallemar https://disk.yandex.ru/client/disk/for_sql Требует авторизацию, не могу глянуть
...
Рейтинг: 0 / 0
23.05.2017, 12:46:13
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39457980
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gallemar
Участник
Квейд,

https://yadi.sk/d/30d861qy3JSBN8
https://yadi.sk/d/R23tMlxj3JSBW2
...
Рейтинг: 0 / 0
23.05.2017, 12:48:10
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39457983
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
Gallemar,

как показывает мой опыт , лучше все-таки писать сюда сомнительные на твой взгляд куски кода (лучше под спойлер), а проект целиком прикладывать аттачем. Тогда ответов будет больше, а особо интересующиеся скачают тестовый проект.

В обратной последовательности не работает. Никому не интересно разбираться в простынях чужого кода
...
Рейтинг: 0 / 0
23.05.2017, 12:51:03
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39457985
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Квейд
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
var
 i : integer;
 j : integer;
 s : array [0..8,0..12] of string;
begin
   XMLDocument1.FileName := 'c:\Temp\doc_Алколик (Остальное) ООО#72#Приемка#112719_11.05.2017_11.58.21_finish....xml';
   XMLDocument1.Active := True;
   for  j := 0 to  XMLDocument1.DocumentElement.ChildNodes['DeclaredItems'].ChildNodes.Count - 1 do
 begin
   for i := 0 to XMLDocument1.DocumentElement.ChildNodes['DeclaredItems'].ChildNodes['DocumentItem'].ChildNodes['Fields'].ChildNodes.Count - 1 do
    begin
         s[j,i] := VarToStr(XMLDocument1.DocumentElement.ChildNodes['DeclaredItems'].ChildNodes[j].ChildNodes['Fields'].ChildNodes[i].ChildValues['Value']);
          Memo1.Lines.Add(s[j,i]);
   end;



Если структура XML внезапно будет нарушена, тут легко схлопотать выход за пределы массива, ибо его размерность статична, а ты уверен что ChildNodes.Count будет константно?
...
Рейтинг: 0 / 0
23.05.2017, 12:52:53
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39457987
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
GallemarИменно что висеть постоянно, в идеале как служба. Её задача - проверять каталоги на предмет новых файлов (каталогов 150), если есть новые - парсить, заливать инфу в базу и удалять исходных файл. В день эдак 2-2,5 тысячи файлов.
Я-бы на лазарусе написал, там с xml работать просто и утечек не заметил.
Но есть еще такой вариант: служба только проверяет наличие новых файлов, а обрабатывает другой исполняемый файл. Новый файл - новый процесс.
...
Рейтинг: 0 / 0
23.05.2017, 12:53:33
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39457994
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gallemar
Участник
Квейд
 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
var
 i : integer;
 j : integer;
 s : array [0..8,0..12] of string;
begin
   XMLDocument1.FileName := 'c:\Temp\doc_Алколик (Остальное) ООО#72#Приемка#112719_11.05.2017_11.58.21_finish....xml';
   XMLDocument1.Active := True;
   for  j := 0 to  XMLDocument1.DocumentElement.ChildNodes['DeclaredItems'].ChildNodes.Count - 1 do
 begin
   for i := 0 to XMLDocument1.DocumentElement.ChildNodes['DeclaredItems'].ChildNodes['DocumentItem'].ChildNodes['Fields'].ChildNodes.Count - 1 do
    begin
         s[j,i] := VarToStr(XMLDocument1.DocumentElement.ChildNodes['DeclaredItems'].ChildNodes[j].ChildNodes['Fields'].ChildNodes[i].ChildValues['Value']);
          Memo1.Lines.Add(s[j,i]);
   end;



Если структура XML внезапно будет нарушена, тут легко схлопотать выход за пределы массива, ибо его размерность статична, а ты уверен что ChildNodes.Count будет константно?
Упс. Уверен только во втором случае, это спецификация, её вид будет неизменным. Вообще думал сделать всё таки по другому, т.к. потом всё равно расписывать оборачивая в запросы.
...
Рейтинг: 0 / 0
23.05.2017, 12:57:39
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39457997
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gallemar
Участник
wadmanНо есть еще такой вариант: служба только проверяет наличие новых файлов, а обрабатывает другой исполняемый файл. Новый файл - новый процесс.
Процесс явный, с графикой или консоль? Проблема,что когда запускается много окон никакой сервер не вывозит, тупит рабочий стол.
...
Рейтинг: 0 / 0
23.05.2017, 12:58:43
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39457998
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
GallemarИменно что висеть постоянно, в идеале как служба. Её задача - проверять каталоги на предмет новых файлов (каталогов 150), если есть новые - парсить, заливать инфу в базу и удалять исходных файл. В день эдак 2-2,5 тысячи файлов.
Тогда уходить обязательно с TXMLDocument. Или вариант wadman с запуском отдельного процесса для каждого файла.
...
Рейтинг: 0 / 0
23.05.2017, 12:59:38
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39457999
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
GallemarПроцесс явный, с графикой или консоль? Проблема,что когда запускается много окон никакой сервер не вывозит, тупит рабочий стол.
Какие окна вообще в службе? Не должно их быть там.
...
Рейтинг: 0 / 0
23.05.2017, 13:00:50
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39458011
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gallemar
Участник
YuRockGallemarПроцесс явный, с графикой или консоль? Проблема,что когда запускается много окон никакой сервер не вывозит, тупит рабочий стол.
Какие окна вообще в службе? Не должно их быть там.
На данный момент каждый процесс запускается скриптом,который проверяет наличие файлов в каталоге,есть -файл - запускает процесс, нет - пропускает ход. Проверка раз в минуту. Есть файлы в ста каталогах - будет сто процессов с окнами. Я планировал службу,но с гуи,чтобы можно импорт по отдельным каталогам отключать.
...
Рейтинг: 0 / 0
23.05.2017, 13:13:15
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39458014
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
GallemarwadmanНо есть еще такой вариант: служба только проверяет наличие новых файлов, а обрабатывает другой исполняемый файл. Новый файл - новый процесс.
Процесс явный, с графикой или консоль? Проблема,что когда запускается много окон никакой сервер не вывозит, тупит рабочий стол.
Создай vcl приложение, но убери весь код из проекта и запусти - никаких окон и консолей, но приложение работает.
...
Рейтинг: 0 / 0
23.05.2017, 13:14:45
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39458022
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gallemar
Участник
wadman,а как тогда заливку включать-выключать?
...
Рейтинг: 0 / 0
23.05.2017, 13:19:27
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39458037
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
Gallemarа как тогда заливку включать-выключать?
В смысле? Служба мониторит файлы и при необходимости запускает exe с параметрами.
...
Рейтинг: 0 / 0
23.05.2017, 13:30:53
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39458048
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gallemar
Участник
wadman, после заливки еще надо вызватт печатт документа crystal reports или fr. Это без vcl можно сделать?
...
Рейтинг: 0 / 0
23.05.2017, 13:34:54
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39458057
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД
Участник
Gallemarwadman, после заливки еще надо вызватт печатт документа crystal reports или fr. Это без vcl можно сделать?
Не представляю, как ЭТО можно сделать с помощь vcl.
...
Рейтинг: 0 / 0
23.05.2017, 13:41:42
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39458066
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
GallemarЭто без vcl можно сделать?
Дак подцепи vcl, просто видимые формы не создавай.
...
Рейтинг: 0 / 0
23.05.2017, 13:46:19
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39458076
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gallemar
Участник
wadmanGallemarЭто без vcl можно сделать?
Дак подцепи vcl, просто видимые формы не создавай.
Понял,спасибо.
...
Рейтинг: 0 / 0
23.05.2017, 13:55:12
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39458134
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
GallemarНа данный момент каждый процесс запускается скриптом,который проверяет наличие файлов в каталоге,есть -файл - запускает процесс, нет - пропускает ход. Проверка раз в минуту. Есть файлы в ста каталогах - будет сто процессов с окнами. Я планировал службу,но с гуи,чтобы можно импорт по отдельным каталогам отключать.
Не знаю, конечно, задачи. Но мне видится служба без гуи, и отдельное оконное приложение (если уж так хочется), которое настраивает службу (её инифайл например).
...
Рейтинг: 0 / 0
23.05.2017, 14:41:21
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39458143
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gallemar
Участник
YuRockНе знаю, конечно, задачи. Но мне видится служба без гуи, и отдельное оконное приложение (если уж так хочется), которое настраивает службу (её инифайл например).
Хороший вариант.
...
Рейтинг: 0 / 0
23.05.2017, 14:48:06
| Ответить | Цитировать | Написать  
Есть тут люди с добрым сердцем?
    #39458188
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
По сабжу - на один вопрос/проблему - один топик.
Валить всё в одну кучу не надо. Закрыто.
...
Рейтинг: 0 / 0
23.05.2017, 15:26:00
| Ответить | Цитировать | Написать  
20 сообщений из 45, страница 2 из 2
  2  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Есть тут люди с добрым сердцем?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39457977&tid=2042264]:
 0ms
get settings:
 15ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 192ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 71ms
get tp. blocked users:
 2ms
others: 231ms
total:  546ms
созд. / загр.: 546ms
x
x
Закрыть


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