ReadXMLFile и поток

[BORNDEAD]

Судя по документации работает только с файлами и потоками.
Попробовал с потоком, при записи строки приписываются в начало 4 байта неизвестно (по крайней мере мне) откуда
Есть ли другой способ считать из строки в xml документ?

З.Ы. lazarus 0.9.26, FPC 2.2.2, архитектура х64

[Mr.Smart]

Посмотрите про реализацию функции Stream.WriteAnsiString и всё поймёте.
Первые 4 байта это размер строки!

Добавлено спустя 1 минуту 5 секунд:
Делайте запись посредством Strem.WriteBuffer

[Sergei I. Gorelkin]

Для чтения из строки нужно создать поверх нее TStringStream и потом из него читать:

Код: Выделить всё

Var
  S : TStringStream;
  XML : TXMLDocument;
 
begin
  S:= TStringStream.Create(MyXMLString);
  Try
    S.Position:=0;
    ReadXMLFile(XML,S); // Чтение документа целиком
    // или:
    ReadXMLFragment(AParentNode,S); // Чтение части документа
  Finally
    S.Free;
  end;
end;

[AltRunner]

Здравствуйте!
Пробовал преобразовать строку в XML документ как описано выше но Lazarus выдет ошибку:

unit1.pas(61,32) Error: Call by var for arg no. 2 has to match exactly: Got "TStringStream" expected "TStream"

Не компилируется нивкакую. Может надо какой модуль подключить?

модули:
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, WInInet, DOM, XMLRead;


Помогите пожалуйста.

[Mr.Smart]

Понимаете невозможно вам нечего подсказать пока не будет опублекован код где возникает ошибка.

[Sergei I. Gorelkin]

Этот баг был исправлен 15 сентября прошлого года. Обновляйтесь...

[AltRunner]

Извините но откуда обновляться? на оффсайте выложена версия 2.2.2 от 11 августа 2008 года.

[Mr.Smart]

Этот баг был исправлен 15 сентября прошлого года. Обновляйтесь...

...странно...

Извините но откуда обновляться? на оффсайте выложена версия 2.2.2 от 11 августа 2008 года.

у меня проблем с XML в данной версии небыло...
покажите участок кода где возникает данная ошибка.

[AltRunner]

Код: Выделить всё

procedure StringToXML(aXMLString:string;aXMLDocument:TXMLDocument);
var ss:TStringStream;
begin
ss:=TStringStream.Create(aXMLString);
  Try
    SS.Position:=0;
    aXMLDocument:=Nil;
    ReadXMLFile(aXMLDocument,ss);
  Finally
    SS.Free;
  end;
end;

[Sergei I. Gorelkin]

Баг заключался в наличии ненужного "var" в объявлении ReadXMLFile:

Код: Выделить всё

procedure ReadXMLFile(out ADoc: TXMLDocument; var f: TStream);

из-за чего она не принимала наследников TStream, в частности TStringStream.

Но в принципе в данном примере достаточно изменить тип переменной ss на TStream, и все должно работать даже без обновления.

[AltRunner]

Менять тип переменной пробовал - в результате Can not write to stream при попытке записать в него строку.
проблему решил установкой снапшота Lazarus 0.9.27 + FPC 2.2.5 Но попробую отредактировать юнит (использовать снапшот както страшно)