powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Есть тут люди с добрым сердцем?
45 сообщений из 45, показаны все 2 страниц
Есть тут люди с добрым сердцем?
    #39457850
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть тут люди с добрым сердцем? Ищу бескорыстного наставника по Delphi, к которому можно обратиться с глупыми вопросами.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457868
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нет таких.
Последние 15 лет тут таких точно не было.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457869
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
чччД, да ну, так всё плохо?
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457871
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тут Delphi никто не знает (с)
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457880
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GallemarчччД, да ну, так всё плохо?

Попробуй просьбу продублировать в разделе "Работа". Там народ опух от меркантильности - наверняка пожелают расслабиться.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457888
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
чччДGallemarчччД, да ну, так всё плохо?

Попробуй просьбу продублировать в разделе "Работа". Там народ опух от меркантильности - наверняка пожелают расслабиться.
Да я сразу предвижу ответ "парень, ты некрофил, бросай свою Делфи и иди на Java, C#, C++ или вообще нахер"
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457896
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Gallemar,

Тут вроде по известному направлению не посылали особо. Пиши, главное - что бы уж совсем не азы. Не любит народ, когда человек не может даже несколько глав Пачеко осилить.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457903
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
makhaon, совсем уж азы не спрашиваю, просто бывают ситуации, когда "нутром чую, что 0,5, а математически выразить не могу", т.е. просто не понимаю как сделать. Опыт небольшой в программировании вообще.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457908
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Gallemar, в разделе "Delphi" лично я стараюсь дурковать по пятницам. Иначе работать времени не остается.
Присоединяйся.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457923
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
makhaonНе любит народ, когда человек не может даже несколько глав Пачеко осилить.
Фаронов, Фленов, немного Кенту, Гофман пойдут?
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457926
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Gallemar,

Игорень, а ты чего хотел-то?
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457933
Barmaley57
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GallemarmakhaonНе любит народ, когда человек не может даже несколько глав Пачеко осилить.
Фаронов, Фленов, немного Кенту, Гофман пойдут?Пачеко, Кэнту пойдут. А больше и не надо.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457935
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ДокGallemar,

Игорень, а ты чего хотел-то?
Да засел сегодня с утра за утилитку, надо распарсить xml и загнать в базу Firebird, весь день над ней туплю. Нужен кто-то чтобы носом натыкал в говнокод и направил на путь истинный.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457939
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GallemarДокGallemar,

Игорень, а ты чего хотел-то?
Да засел сегодня с утра за утилитку, надо распарсить xml и загнать в базу Firebird, весь день над ней туплю.

Как пробовал?
Что не получилось?

И вообще код давай
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457944
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
КвейдGallemarпропущено...

Да засел сегодня с утра за утилитку, надо распарсить xml и загнать в базу Firebird, весь день над ней туплю.

Как пробовал?
Что не получилось?

И вообще код давай

Gallemar, не слушай его. Сейчас научишься XML парсить, потом на C# не сможешь перейти.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457948
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
КвейдКак пробовал?
Что не получилось?
И вообще код давай
Кто сказал, что не получилось? :) Получилось. Распарсил, запихал пока для проверки в Memo, осталось описать запросы. Сделал с помощью товарища с ветки firebird (там все Delphi знают!). Вопросы будут дальше. Ну и хочется, чтобы кто-то посмотрел и показал на косяки.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457952
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GallemarКвейдКак пробовал?
Что не получилось?
И вообще код давай
Кто сказал, что не получилось? :) Получилось. Распарсил, запихал пока для проверки в Memo, осталось описать запросы. Сделал с помощью товарища с ветки firebird (там все Delphi знают!). Вопросы будут дальше. Ну и хочется, чтобы кто-то посмотрел и показал на косяки.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457954
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GallemarДа засел сегодня с утра за утилитку, надо распарсить xml и загнать в базу Firebird
Если предложить использовать msxml как-то так:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
var
  XML: IXMLDOMDocument;
begin
  XML := CreateOleObject( 'Microsoft.XMLDOM' ) as IXMLDOMDocument;
  XML.async := False;
  XML.loadXML( 'D:\aaa.xml' );
  // и т.д. через XML.documentElement.selectNodes/selectSingleNode
  // и через тот же IBSQL делать INSERTы параметризованные,
end;


то скоро обязательно придут и предложат свои, действительно самые быстрые, парсеры.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457955
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
YuRock
Код: pascal
1.
XML.loadXML( 'D:\aaa.xml' );


А, нет, из файла наверно
Код: pascal
1.
XML.load( 'D:\aaa.xml' );
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457956
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GallemarЕсть тут люди с добрым сердцем?
"Злых людей нет на свете" (с)
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457958
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457961
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
YuRockто скоро обязательно придут и предложат свои, действительно самые быстрые, парсеры.
Уже предлагали nativexml, я делал через xmldocument
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457967
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Квейд, ну и дальнейшая задача распарсить файл целиком и полученные данные с помощью FIB залить в базу. И всё :)
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457970
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Gallemarя делал через xmldocument
Если это просто утилита, которую запустил-закрыл, то нормально. А если сервер, который будет висеть постоянно, то будут проблемы с ростом не освобождаемой памяти, решить которые с помощью гугла я лично не смог - прешел на IXMLDOMDocument. Вроде можно как-то поиграться с менеджерами памяти, но я не стал.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457974
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Именно что висеть постоянно, в идеале как служба. Её задача - проверять каталоги на предмет новых файлов (каталогов 150), если есть новые - парсить, заливать инфу в базу и удалять исходных файл. В день эдак 2-2,5 тысячи файлов.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457977
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Gallemar https://disk.yandex.ru/client/disk/for_sql Требует авторизацию, не могу глянуть
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457980
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457983
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Gallemar,

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

В обратной последовательности не работает. Никому не интересно разбираться в простынях чужого кода
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #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
Есть тут люди с добрым сердцем?
    #39457987
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GallemarИменно что висеть постоянно, в идеале как служба. Её задача - проверять каталоги на предмет новых файлов (каталогов 150), если есть новые - парсить, заливать инфу в базу и удалять исходных файл. В день эдак 2-2,5 тысячи файлов.
Я-бы на лазарусе написал, там с xml работать просто и утечек не заметил.
Но есть еще такой вариант: служба только проверяет наличие новых файлов, а обрабатывает другой исполняемый файл. Новый файл - новый процесс.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457994
Фотография 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
Есть тут люди с добрым сердцем?
    #39457997
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
wadmanНо есть еще такой вариант: служба только проверяет наличие новых файлов, а обрабатывает другой исполняемый файл. Новый файл - новый процесс.
Процесс явный, с графикой или консоль? Проблема,что когда запускается много окон никакой сервер не вывозит, тупит рабочий стол.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457998
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GallemarИменно что висеть постоянно, в идеале как служба. Её задача - проверять каталоги на предмет новых файлов (каталогов 150), если есть новые - парсить, заливать инфу в базу и удалять исходных файл. В день эдак 2-2,5 тысячи файлов.
Тогда уходить обязательно с TXMLDocument. Или вариант wadman с запуском отдельного процесса для каждого файла.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39457999
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GallemarПроцесс явный, с графикой или консоль? Проблема,что когда запускается много окон никакой сервер не вывозит, тупит рабочий стол.
Какие окна вообще в службе? Не должно их быть там.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39458011
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
YuRockGallemarПроцесс явный, с графикой или консоль? Проблема,что когда запускается много окон никакой сервер не вывозит, тупит рабочий стол.
Какие окна вообще в службе? Не должно их быть там.
На данный момент каждый процесс запускается скриптом,который проверяет наличие файлов в каталоге,есть -файл - запускает процесс, нет - пропускает ход. Проверка раз в минуту. Есть файлы в ста каталогах - будет сто процессов с окнами. Я планировал службу,но с гуи,чтобы можно импорт по отдельным каталогам отключать.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39458014
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GallemarwadmanНо есть еще такой вариант: служба только проверяет наличие новых файлов, а обрабатывает другой исполняемый файл. Новый файл - новый процесс.
Процесс явный, с графикой или консоль? Проблема,что когда запускается много окон никакой сервер не вывозит, тупит рабочий стол.
Создай vcl приложение, но убери весь код из проекта и запусти - никаких окон и консолей, но приложение работает.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39458022
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
wadman,а как тогда заливку включать-выключать?
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39458037
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Gallemarа как тогда заливку включать-выключать?
В смысле? Служба мониторит файлы и при необходимости запускает exe с параметрами.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39458048
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
wadman, после заливки еще надо вызватт печатт документа crystal reports или fr. Это без vcl можно сделать?
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39458057
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Gallemarwadman, после заливки еще надо вызватт печатт документа crystal reports или fr. Это без vcl можно сделать?
Не представляю, как ЭТО можно сделать с помощь vcl.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39458066
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GallemarЭто без vcl можно сделать?
Дак подцепи vcl, просто видимые формы не создавай.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39458076
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
wadmanGallemarЭто без vcl можно сделать?
Дак подцепи vcl, просто видимые формы не создавай.
Понял,спасибо.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39458134
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GallemarНа данный момент каждый процесс запускается скриптом,который проверяет наличие файлов в каталоге,есть -файл - запускает процесс, нет - пропускает ход. Проверка раз в минуту. Есть файлы в ста каталогах - будет сто процессов с окнами. Я планировал службу,но с гуи,чтобы можно импорт по отдельным каталогам отключать.
Не знаю, конечно, задачи. Но мне видится служба без гуи, и отдельное оконное приложение (если уж так хочется), которое настраивает службу (её инифайл например).
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39458143
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
YuRockНе знаю, конечно, задачи. Но мне видится служба без гуи, и отдельное оконное приложение (если уж так хочется), которое настраивает службу (её инифайл например).
Хороший вариант.
...
Рейтинг: 0 / 0
Есть тут люди с добрым сердцем?
    #39458188
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
По сабжу - на один вопрос/проблему - один топик.
Валить всё в одну кучу не надо. Закрыто.
...
Рейтинг: 0 / 0
45 сообщений из 45, показаны все 2 страниц
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Есть тут люди с добрым сердцем?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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