Skip to content

E
EtherBone Core
Commit 55fb9975 authored by Marcus Zweig's avatar Marcus Zweig
Browse files
Options

--no commit message 

--no commit message
parent efe761bb
Hide whitespace changes
Inline Side-by-side
Showing with 128 additions and 7 deletions
GUI/XMLdevice/Global.pas
View file @ 55fb9975
// Copyright (C) 2011
// GSI Helmholtzzentrum fr Schwerionenforschung GmbH
//
// Author: M.Zweig
//
unit Global;
interface
......
GUI/XMLdevice/UserSendData.pas
View file @ 55fb9975
unit UserSendData;
// Copyright (C) 2011
// GSI Helmholtzzentrum fr Schwerionenforschung GmbH
//
// Author: M.Zweig
//
unit UserSendData;
interface
......
GUI/XMLdevice/WR.bdsproj.local
View file @ 55fb9975
......@@ -12,5 +12,13 @@
<Transaction>2011.04.05 08:57:37.062.dfm,F:\Projekte\Timing\xml\whiterabbit\XMLdevice\Unit2.dfm=F:\Projekte\Timing\xml\whiterabbit\XMLdevice\UserSendData.dfm</Transaction>
<Transaction>2011.04.06 13:59:40.907.pas,F:\Projekte\Timing\xml\whiterabbit\XMLdevice\UserSendData.pas=</Transaction>
<Transaction>2011.04.06 13:59:40.907.dfm,F:\Projekte\Timing\xml\whiterabbit\XMLdevice\UserSendData.dfm=</Transaction>
<Transaction>2011.04.06 15:32:39.998.pas,F:\Projekte\Timing\etherbone-core\api\etherbone.pas=</Transaction>
<Transaction>2011.04.06 15:41:11.594.pas,F:\Projekte\Timing\etherbone-core\GUI\XMLdevice\wrdevice_unit.pas=</Transaction>
<Transaction>2011.04.06 15:41:19.735.pas,F:\Projekte\Timing\etherbone-core\GUI\XMLdevice\UserSendData.pas=</Transaction>
<Transaction>2011.04.06 15:41:19.735.dfm,F:\Projekte\Timing\etherbone-core\GUI\XMLdevice\UserSendData.dfm=</Transaction>
<Transaction>2011.04.06 15:41:27.641.pas,F:\Projekte\Timing\etherbone-core\GUI\XMLdevice\Global.pas=</Transaction>
<Transaction>2011.04.06 15:41:29.485.pas,F:\Projekte\Timing\etherbone-core\api\etherbone.pas=</Transaction>
<Transaction>2011.04.06 15:41:30.172.pas,F:\Projekte\Timing\etherbone-core\GUI\XMLdevice\device_setup.pas=</Transaction>
<Transaction>2011.04.06 15:41:30.172.dfm,F:\Projekte\Timing\etherbone-core\GUI\XMLdevice\device_setup.dfm=</Transaction>
</Transactions>
</BorlandProject>
GUI/XMLdevice/WR.dpr
View file @ 55fb9975
......@@ -4,10 +4,11 @@ uses
Forms,
XML_WR in 'XML_WR.pas' {Form1},
wrdevice_unit in 'wrdevice_unit.pas',
etherbone in '..\..\..\etherbone-core\api\etherbone.pas',
device_setup in 'device_setup.pas' {DevSet_Form},
device_unit in 'device_unit.pas',
Global in 'Global.pas',
UserSendData in 'UserSendData.pas';
UserSendData in 'UserSendData.pas' {SendUserdata_Form},
etherbone in '..\..\api\etherbone.pas';
{$R *.res}
......@@ -15,5 +16,27 @@ begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TDevSet_Form, DevSet_Form);
Application.CreateForm(TSendUserdata_Form, SendUserdata_Form);
Application.Run;
end.
GUI/XMLdevice/XML_WR.dfm
View file @ 55fb9975
......@@ -31,7 +31,7 @@ object Form1: TForm1
Height = 19
Caption = 'XML Tree'
end
object TreeView1: TTreeView
object XML_TreeView: TTreeView
Left = 15
Top = 31
Width = 313
......@@ -197,9 +197,11 @@ object Form1: TForm1
Caption = 'Datei'
object XMLLaden1: TMenuItem
Caption = 'XML-Laden'
OnClick = XMLLaden1Click
end
object Exit1: TMenuItem
Caption = 'Exit'
OnClick = Exit1Click
end
end
object Device1: TMenuItem
......@@ -225,7 +227,7 @@ object Form1: TForm1
end
end
end
object XMLDocument1: TXMLDocument
object XMLDoc: TXMLDocument
Left = 360
Top = 336
DOMVendorDesc = 'MSXML'
......
GUI/XMLdevice/XML_WR.pas
View file @ 55fb9975
// Copyright (C) 2011
// GSI Helmholtzzentrum fr Schwerionenforschung GmbH
//
// Author: M.Zweig
//
unit XML_WR;
interface
......@@ -10,7 +17,7 @@ uses
type
TForm1 = class(TForm)
Panel1: TPanel;
TreeView1: TTreeView;
XML_TreeView: TTreeView;
Label1: TLabel;
Panel2: TPanel;
messages_ListBox: TListBox;
......@@ -35,9 +42,11 @@ type
ConnectDevice1: TMenuItem;
DisconnectDevice1: TMenuItem;
Setup1: TMenuItem;
XMLDocument1: TXMLDocument;
XMLDoc: TXMLDocument;
Extras1: TMenuItem;
SendManual1: TMenuItem;
procedure XMLLaden1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure SendManual1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
//procedure myCallback(var user: eb_user_data_t; var status: eb_status_t; var data:eb_data_t );
......@@ -127,4 +136,58 @@ begin
SendUserdata_Form.Show();
end;
procedure TForm1.Exit1Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.XMLLaden1Click(Sender: TObject);
var
node : IXMLNode;
nodes : IXMLNodeList;
knoten : TTreeNode;
s : string;
i : integer;
procedure erweitere(node : IXMLNode;knoten : TTreeNode);
var
nodes : IXMLNodeList;
kindknoten : TTreeNode;
i : integer;
begin
if node.HasChildNodes then
begin
nodes := node.ChildNodes;
for i := 0 to nodes.Count - 1 do
begin
case nodes[i].NodeType of
ntElement : kindknoten :=
XML_TreeView.Items.AddChild(knoten,'<'+nodes[i].NodeName+'>');
ntText : kindknoten :=
XML_TreeView.Items.AddChild(knoten,nodes[i].text);
end; // of case
erweitere(nodes[i],kindknoten);
end;
end;
end;
begin
if OpenDialog1.Execute then
try
XML_TreeView.Items.Clear;
XMLDoc.LoadFromFile(OpenDialog1.FileName);
node := XMLDoc.DocumentElement;
nodes := node.AttributeNodes;
s := '';
for i := 0 to nodes.Count - 1 do
s := s + nodes[i].NodeName + ' = ' +nodes[i].NodeValue + ' ';
knoten := XML_TreeView.Items.Add(nil,'<'+node.NodeName+'> '+s);
erweitere(node,knoten);
except
on E:Exception do
messages_Listbox.Items.Add(E.Message);
end;
end;
end.
GUI/XMLdevice/device_setup.pas
View file @ 55fb9975
// Copyright (C) 2011
// GSI Helmholtzzentrum fr Schwerionenforschung GmbH
//
// Author: M.Zweig
//
unit device_setup;
interface
......
GUI/XMLdevice/wrdevice_unit.pas
View file @ 55fb9975
// Copyright (C) 2011
// GSI Helmholtzzentrum fr Schwerionenforschung GmbH
//
// Author: M.Zweig
//
unit wrdevice_unit;
interface
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment