Shaman2
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
спасибо за подсказку, но похоже вылезла вторая проблема: прописал такой код:
ADoc := TNativeXml.CreateName('Root');
try
with qryNoticePublication do begin
Open;
First;
while not Eof do begin
with ADoc.Root.NodeNew('Notice') do begin
WriteAttributeInteger('ID_Notice', FN('ID_Notice').AsInteger);
WriteString('BlockName', QuotedStr(FN('BlockName').AsString));
WriteString('TitleName', FN('TitleName').AsString);
WriteString('SubTitleName', FN('SubTitleName').AsString);
WriteString('CategoryName', FN('CategoryName').AsString);
WriteString('Notice', QuotedStr(FN('Notice').AsString));
end;
Next;
end;
ADoc.ExternalEncoding := seAnsi;
ADoc.Charset := 'Windows-1251';
ADoc.ExternalCodepage:= 1251;
ADoc.XmlFormat := xfReadable;
ADoc.SaveToFile(fMain.dlgSaveFile.Filename);
Close;
end;
finally
ADoc.Free;
и получил такой файл:
<?xml version="1.0" encoding="Windows-1251"?>
<Root>
<Notice ID_Notice="4413">
<BlockName>''</BlockName>
<TitleName></TitleName>
<SubTitleName></SubTitleName>
<CategoryName> </CategoryName>
<Notice>'@@@@@@@@ @@@, @@@@@@@, @@@ @ @@@@, @@@@ @@ @@@@@, @@@@@ @/@@@, @@@@@, @-@ @@@@. @@@@@. @@@@@@@@ @@@, @@. @@@@@@@, 7/2'</Notice>
</Notice>
т.е. теперь пошли проблемы с кодировкой в содержимом файла. Где ему еще мозги вправить?
Добавлено:
закоментировать строку ADoc.ExternalEncoding := seAnsi; не помогает |
Народ, еще увижу ниже этого сообщения посты не по теме, буду запрашивать запрет на пост в моем разделе несмотря на статус.
