XML в Delphi 7

[Stilet]

К сожалению, текст по WriteString пишется исключительно однострочный

Всетки жаль что у тя хелп отменили... Лана вот пример на скорую руку.

unit Unit1;

interface

uses      inifiles,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var i:TIniFile;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
VAR S:TStringStream;
begin
  s:=TStringStream.Create;
  Memo1.Lines.SaveToStream(s);
  s.Position:=0;
  i.WriteBinaryStream('q','w',s);
  s.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
VAR S:TStringStream;
begin
  s:=TStringStream.Create;
  i.ReadBinaryStream('q','w',s);
  ListBox1.Items.Text:=s.DataString;
  s.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 i.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 i:=TIniFile.Create('c:\temp\i');

end;

end.

[postal2]

Если надо много строк сохранить, то можно элементарно сделать через memo {memo1.lines.loadfromfile(filename) memo1.lines.savetofile(flename)}. Только если всякие параметры сохранять, то трудно их доставать потов, но возможно.
Я сохранял в inifiles и многострочные док-ты, делал так - загружал необходимый текст в memo, после чего сохранял все строки, заменяя перевод на новую строку каким-нибудь символом. Когда нужно загрузить инфу из inifile, то по тому же алгоритму делал, только уже символы заменял на перевод на новую строку

[Izhic]

Можно ещё JSON использовать
http://json.org/json-ru.html

[GenniY]

Для AnTe, По поводу Xml-парсера.
Я уже писал — самый надёжный быстрый и удобный парсер — это nativeXml.
http://www.simdesign.nl/xml.html
Вместе с ним идут примеры.

Сам уже давно пользуюсь. Очень удобный.

[AnTe]

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

Всетки жаль что у тя хелп отменили... Лана вот пример на скорую руку.

спасибо! действительно, отменили....
про Write/ReadBinaryStream не знал

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

Если надо много строк сохранить, то можно элементарно сделать через memo {memo1.lines.loadfromfile(filename) memo1.lines.savetofile(flename)}.

угу, а у меня на форме мнооого мемок и листбоксов... вот и получается куча файлов, да и реализация громоздкая

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

Я сохранял в inifiles и многострочные док-ты, делал так - загружал необходимый текст в memo, после чего сохранял все строки, заменяя перевод на новую строку каким-нибудь символом. Когда нужно загрузить инфу из inifile, то по тому же алгоритму делал, только уже символы заменял на перевод на новую строку

вот я долго ломал, какой же символ взять на замену, и НЕ ПРИДУМАЛ !

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

Для AnTe, По поводу Xml-парсера.
Я уже писал — самый надёжный быстрый и удобный парсер — это nativeXml.
http://www.simdesign.nl/xml.html
Вместе с ним идут примеры.

Сам уже давно пользуюсь. Очень удобный.

спасибо, посмотрю!

[AnTe]

nativeXml - вроде как платный
я пока ещё точно не уверен, помешает ли мне это
хотел попробовать SimpleXML, но нашёл отзывы, что в делфях, младших 7й, он некорректно работает, вдруг решу перейти

в общем остановился пока на микрософтовском, более того, его делфёвой обёртке - TXMLDocument

есть небольшая особенность: ни с XML, ни с типом variant, ни с интерфейсами ранее я не работал

к сожалению, не нашёл русского хелпа или статьи, и, поскольку моя задача, надеюсь, простая, пытаюсь методом научного тыка воссоздать простенькую структуру, например, со статьи в википедии


---------------------
<?xml version="1.0" encoding="UTF-8"?>
<recipe name="хлеб" preptime="5" cooktime="180">
<title>Простой хлеб</title>
<ingredient amount="3" unit="стакан">Мука</ingredient>
<ingredient amount="0.25" unit="грамм">Дрожжи</ingredient>
<ingredient amount="1.5" unit="стакан">Тёплая вода</ingredient>
<ingredient amount="1" unit="чайная ложка">Соль</ingredient>
<instructions>
<step>Смешать все ингредиенты и тщательно замесить.</step>
<step>Закрыть тканью и оставить на один час в тёплом помещении.</step>
<step>Замесить ещё раз, положить на противень и поставить в духовку.</step>
</instructions>
</recipe>
--------------

создаю док, похоже, это необходимые строки?

procedure TfmTest.btnGenerateClick(Sender: TObject);
var
  XMLNodeFirst, XMLNode: IXMLNode;
  XML: IXMLDocument;
begin
  XML := TXMLDocument.Create(nil);
  XML.Active := True;
  XML.Encoding := 'UTF-8';
  XML.Version := '1.0';

Далее, само наполнение:

  XMLNode := XML.AddChild('recipe');
  XMLNode.Attributes['name'] := 'хлеб';
  XMLNode.Attributes['preptime'] := 5;
  XMLNode.Attributes['cooktime'] := '180'; // кстати не понял, в чём разница, в кавычках писать или без - всё преобразуется?

как создать содержимое элемента - я так и не понял, поэтому только создаю сам узел

  XMLNode := XMLNodeFirst.AddChild('title');
// XMLNode.???   :=  'Простой хлеб';

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


ну, дальше по аналогии

  XMLNode := XMLNodeFirst.AddChild('ingredient');
  XMLNodeFirst.Attributes['amount'] := 3;
  XMLNodeFirst.Attributes['unit'] := 'грамм';
//  XMLNodeFirst.??? := 'Мука'

дальше аналогия продолжается, даже не стал дописывать

в конце сохранение, и проверка:

XML.SaveToFile('c:\1.txt');
memo1.Lines.LoadFromFile('c:\1.txt' );

смущает результат:

<?xml version="1.0"?>
<recipe name="хлеб" preptime="5" cooktime="180" amount="3" unit="�такан"><title/><ingredient/></recipe>

это правильно пишется? как можно сразу писать по-русски, чтобы потом редактировать можно было в блокноте? и желательно чтобы с форматированием было. Или.. где его посмотреть в читабельном виде? открыл в IE - та же белиберда...

с чтением похоже ещё больше загадок, если я правильно понимаю, читать можно, проверяя например if XMLNode.HasAttribute('amount')) then s := VarToStr(XMLNode.Attributes['amount'];
(s: string)

но если у меня amount - целочисленное, его можно вытащить только приводя, типа N := StrToInt(s)?


если кто знает... если не затруднит - дайте какой-нибудь простенький хелп, ликбез - мне нужно только сохранить и считать из файла свой объект с разнотипными полями (стандартные типы delphi)

ps чувствуется огребусь я с этим сохранением.....

[GenniY]

смущает результат:

<?xml version="1.0"?>
<recipe name="хлеб" preptime="5" cooktime="180" amount="3" unit="�такан"><title/><ingredient/></recipe>

Смени кодировку

nativeXml - вроде как платный

Я скачал бесплатно.

в общем остановился пока на микрософтовском, более того, его делфёвой обёртке - TXMLDocument

А кто-то просил надёжность....

[AnTe]

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

Смени кодировку

а как это сделать?

Я скачал бесплатно.

вот полный адрес ссылки на скачивание, с предоставленной страницы
http://www.simdesign.nl/download/ins...xml(trial).exe
правда, я даже не стал разбираться, какие там ограничения

А кто-то просил надёжность....

а разве микрософтовский не самый тормозной, но самый надёжный...?

Офонареть! Форумчанин GenniY оказался на самом деле гением!

Его выводы о nativeXml полностью соответствуют действительности!

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

Огромное, огромное ему спасибо за то, что наставил на путь Истинный!