VPF::TXMLDocument и переодич. сохранение - Форум программистов

Antony41

Дата 20.10.2012, 18:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 27.12.2008

Репутация: нет
Всего: 1

Цитата(MetalFan @ 20.10.2012, 17:16

)

ии? все равно не работает?

нет

сейчас пытаюсь найти совместить TXmlDocument и TFileStream;
возможно процедура, ту что я привел выше будет работать.

Это сообщение отредактировал(а) Antony41 - 20.10.2012, 18:36

MetalFan

Дата 20.10.2012, 18:47 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128

Цитата(Antony41 @ 20.10.2012, 18:34

)

нет

Значит где-то накосячил. Если все писать вручную правильно, то никаких проблем у сторонних парсеров быть не должно при чтении такого xml.

--------------------

There are always someone smarter than you...

Чучмек

Дата 20.10.2012, 19:44 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 1
Всего: 41

Цитата(Antony41 @ 19.10.2012, 17:41

)

оставил на ночь выдерать информацию проснулся смотрю ошибка переполнения буфера.

стало понятно что с таким объемом информации нельзя работать в буфере.

Цитата(Antony41 @ 20.10.2012, 18:34

)

сейчас пытаюсь найти совместить TXmlDocument и TFileStream;

Сделай по-частям.
Например

Код


procedure Add(i:integer;st:tstream);
var
 xml:IXMLDocument;
begin
xml:=TXMLDocument.Create(nil);
xml.Active:=true;
with xml.AddChild('A'+inttostr(i)) do
 begin
 AddChild('B').Text:=inttostr(random(256));
 //...
 end;
xml.SaveToStream(st);
end;



procedure TForm1.Button1Click(Sender: TObject);
var
 st:tfilestream;
 s:ansistring;
 i:integer;
begin
st:=TFileStream.Create('c:\my.xml',fmCreate);
s:='<?xml version="1.0"?>'+#13#10+'<Root>'+#13#10;
st.Write(s[1],length(s));
for i:=0 to 10 do Add(i,st);
s:='</Root>';
st.Write(s[1],length(s));
st.Free;
end;

--------------------

умную мысль держи при себе, а дурной - поделись с другими

Antony41

Дата 20.10.2012, 21:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 27.12.2008

Репутация: нет
Всего: 1

всем спасибо проблему решил через TFileStream, TMemoryStream, и XMLDocument
процедурой которую я привел выше, как говорится нужно было хорошо подумать)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »