Не сочтите кощунством, пиши на самом деле на Lazarus'е, уже решение где мог спрашивал.
Код следующий:
Код:
procedure TForm1.MenuItem4Click(Sender: TObject);
var
s:string;
PassNode: TDOMNode;
Doc: TXMLDocument;
begin
ReadXMLFile(Doc, '\\server\types\type_1\all_files\file_00529759\file529759.xml');
PassNode := Doc.DocumentElement.FindNode('number');
s:=UTF8Encode(PassNode.TextContent);
Doc.Free;
end;
На s:=UTF8Encode(PassNode.TextContent) все время ругается, определил, что PassNode=null всегда, хотя блок 'number' точно есть! Проблема видимо в том, что хмлка в кодировке unicode, а чтобы нормально все работало надо чтобы была UTF8. Посоветуйте, что делать, пожалуйста. (можно хотя бы привести пример с UnicodeToUtf8, по описанию не понял как работает
Сам смог найти только тупейший метод:
1) скопировать хмлку;
2) сохранить в кодировке UTF8;
3) прочитать как текст.
Второй пункт не знаю как автоматизировать, с остальным уже разобрался.
В принципе "тупейший метод" тоже подходит, делать придется всего раз 40 в день и хмлка сама по себе не большая, строк в 200, сетка даже не заметит, также как и сервак с котого я буду этот файл забирать.