Связь стандарта программы CATIA V5 и Delphi

@Exe1592 · Регистрация: 07.02.2018

Студворк — интернет-сервис помощи студентам

Всем привет

На форуме совсем недавно, хотелось бы попросить у вас помощи в одном вопросе.
Задание заключается в переносе стандарта категории "Drafting" файла "ESKD.xml" в программе CATIA V5
Кто работал в Catia тот поймет

Сложности заключаются в незнании работы компонента XMLDocument и соответственно как работает парсинг.
То есть документ ESKD нам нужно пропарсить чтобы добраться до размера разреза детали и соединить с компонентом Treelist в Delphi.

@Matan! · 06.07.2018, 12:45

Сообщение от Exe1592

Все сделано,

Ох, как сомневаюсь... А Вы смотрели в сторону событий типа

Delphi
1
TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode)

или

Delphi
1
TreeView1GetSelectedIndex(Sender: TObject; Node: TTreeNode)

?

Не по теме:

Что-то, прочитав тему, как-то печально на душе стало.. Такое впечатление, что ТСу все что-то должны - должны угадать, что у него за файл, дать исчерпывающий ответ и ни в коем случае не спрашивать об его попытках решить задачу...

@Exe1592 · 06.07.2018, 13:10 **[ТС]**

Matan!, Сомневайтесь в себе

Все что мне нужно было реализовать - я реализовал! Осталась одна вещь, над ней и думаю
Программа сама не пишется при открытии ярлыка делфи.
А что непонятно пишу сюда, чтобы такие умники разглагольствовали и повышали собственную самооценку "профисианала"

Добавлено через 6 минут
Matan!, я помощи не требую, и писать не приказываю, я прошу совета,
или же объяснений, но вы же "прафисианалы"
ну куда же мне до вас?

Я всегда говорю, промолчите, про себя выскажитесь и нажмите горячие клавиши на своей клаве win+w
и мне будет лучше и вам спокойнее

Добавлено через 3 минуты
Matan!, Я сомневаюсь что такие люди как вы просто появились на свет и сразу начали выпускать из своих уст переменные и константы, или же алгоритмы языка программирования.
А если этот форум только для знающих людей, то легче это написать в самом баннере сайта, и можете мериться своими "прафисианальыми" мыслями с такими же "прафисианалами" как вы...

@Matan! · 06.07.2018, 14:01

К чему этот флуд и буря негатива? Если мой пост оскорбил Вас - прошу прощения. Если непонятен, поясню: для более обстоятельного ответа желательно(для Вашего же блага) показать структуру файла, а также хотя бы знать, если не код, где Вы работаете с XML, а хоть что у Вас за компоненты. Ибо сначала Вы писали за Treelist, а потом комбобокс откуда-то появился..

@Exe1592 · 06.07.2018, 15:50 **[ТС]**

Matan!, Все верно. Теперь я вижу связь человеческого общения.
Комбобокс был и изначально, только treelist поменял на treeview так как по treelist документации очень мало, а по делфи я обучаюсь!
Насчет самого кода.Пробовал написать, компилирует но не работает. В чем ошибка. На форме используются компоненты TreeView, ComboBox, XmlDocument

Delphi
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
27
28
29
30
31
32
33
34
35
36
procedure TForm1.ComboBox3Select(Sender: TObject; const Value: Integer);
var
km: tComboBox;
PXmlNode : TPXmlNode;
begin
km:= Sender as TComboBox;
PXmlNode := TPXmlNode(km.Text);
if PXmlNode = nil then Exit;
PXmlNode^.NodeValue := Value;
end;
 
procedure TForm1.cxTreeView1Change(Sender: TObject; Node: TTreeNode);
var
  XmlNode, AttrNode : IXMLNode;
  Km: TComboBox;
  PXmlNode : TPXmlNode;
  i, Row, CntRow : Integer;
begin
Km:=ComboBox3;
XmlNode := TPXmlNode(Node.Data)^;
if (XmlNode.NodeType = ntText) or XmlNode.IsTextElement then begin
    km.text := XmlNode.NodeName;
    km.text := XmlNode.NodeValue;
 New(PXmlNode);
    PXmlNode^ := XmlNode;
    Inc(Row);
    for i := 0 to XmlNode.AttributeNodes.Count - 1 do begin
    AttrNode := XmlNode.AttributeNodes.Get(i);
    km.Text := AttrNode.NodeName;
    km.Text := AttrNode.NodeValue;
    New(PXmlNode);
    PXmlNode^ := AttrNode;
    Inc(Row);
end;
end;
end;

Добавлено через 1 час 25 минут
Если что, это на редактирование. Visible не применял так как хотя бы сделать что бы видимый комбобокс редактировал текст.

@krapotkin · 06.07.2018, 18:17

вот именно о таких простынях я и писал
давай, вали все в кучу, чтобы потом совсем потерять контроль
создание нода, цикл по нодам, цикл по атрибутам
5 указателей, куча переменных
и все это обработчик чего-то

Типы наворочены
PXMLNode
TPXMLNode
вам не кажется, что это просто TXMLNode ??

даже передача строк через указатели тут и то - хождение по краю
какие-то New() прилетели из 1990-го
а ведь с тех пор уже успели изобрести ООП

Сообщение от Exe1592

km.text := XmlNode.NodeName;
* * km.text := XmlNode.NodeValue;

это тоже довольно занятная штука

вот если вернуться и внимательно посмотреть на мой код, он попроще раз в 5
а делает практически то же самое

вот тут рассказано как работать с деревом
http://www.kansoftware.ru/?tid=5261
компонент выбран наиболее подходящий
общий смысл как я уже сказал, каждый узел дерева хранит ссылку на некий объект, в котором записано все что к этому узлу относится. и ссылка на XML нод и текст, и атрибуты все что угодно
поэтому когда кликаем по дереву, получаем этот набор данных и дальше все элементарно...

а тут подробнее и даже код загрузки и сохранения XML
http://delphigears.blogspot.co... eview.html
остается написать обработчик клика

я от души рекомендую вам написать XML из 5-10 строк
и тренироваться на нем.
и тогда даже тут на форуме можно будет вам помочь, если будет и код и файл.
ну и если все правильно, то и ваш большой файл будет работать абсолютно так же

@Exe1592 · 09.07.2018, 10:56 **[ТС]**

krapotkin, Спасибо, разобрался, все работает! Намного проще чем думал

Новые блоги и статьи Все статьи Все блоги /
Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@Exe1592 1 / 1 / 2 Регистрация: 07.02.2018 Сообщений: 85

	Связь стандарта программы CATIA V5 и Delphi 26.06.2018, 07:03. Показов 2341. Ответов 25 Метки нет (Все метки) Всем привет На форуме совсем недавно, хотелось бы попросить у вас помощи в одном вопросе. Задание заключается в переносе стандарта категории "Drafting" файла "ESKD.xml" в программе CATIA V5 Кто работал в Catia тот поймет Сложности заключаются в незнании работы компонента XMLDocument и соответственно как работает парсинг. То есть документ ESKD нам нужно пропарсить чтобы добраться до размера разреза детали и соединить с компонентом Treelist в Delphi. 0

@Exe1592 1 / 1 / 2 Регистрация: 07.02.2018 Сообщений: 85
	06.07.2018, 13:10 [ТС]
	Matan!, Сомневайтесь в себе Все что мне нужно было реализовать - я реализовал! Осталась одна вещь, над ней и думаю Программа сама не пишется при открытии ярлыка делфи. А что непонятно пишу сюда, чтобы такие умники разглагольствовали и повышали собственную самооценку "профисианала" Добавлено через 6 минут Matan!, я помощи не требую, и писать не приказываю, я прошу совета, или же объяснений, но вы же "прафисианалы" ну куда же мне до вас? Я всегда говорю, промолчите, про себя выскажитесь и нажмите горячие клавиши на своей клаве win+w и мне будет лучше и вам спокойнее Добавлено через 3 минуты Matan!, Я сомневаюсь что такие люди как вы просто появились на свет и сразу начали выпускать из своих уст переменные и константы, или же алгоритмы языка программирования. А если этот форум только для знающих людей, то легче это написать в самом баннере сайта, и можете мериться своими "прафисианальыми" мыслями с такими же "прафисианалами" как вы... 0

@Matan! 1882 / 1016 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	06.07.2018, 14:01
	К чему этот флуд и буря негатива? Если мой пост оскорбил Вас - прошу прощения. Если непонятен, поясню: для более обстоятельного ответа желательно(для Вашего же блага) показать структуру файла, а также хотя бы знать, если не код, где Вы работаете с XML, а хоть что у Вас за компоненты. Ибо сначала Вы писали за Treelist, а потом комбобокс откуда-то появился.. 0

@Exe1592 1 / 1 / 2 Регистрация: 07.02.2018 Сообщений: 85
	09.07.2018, 10:56 [ТС]
	krapotkin, Спасибо, разобрался, все работает! Намного проще чем думал 0