кодировка xml

[Жолдас]

привет всем! пожалуиста помогите написал программу каторая создает тхт файл внутри код хмл на коде не показывают казахские буквы

[Пепел Феникса]

у вас еще и xml небось содержит заголовок, типа он в UTF8(как и большинство XML)

лучше всего XML писать в UTF8 кодировке.

[Жолдас]

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

[Жолдас]

вот отрезок програмного кода

procedure TForm2.NewXMLFail2;
var
f: Textfile;
begin
AssignFile(f, PrPath+'Out\Old\'+ApplNumberNext(Pr Path+'IN\ApplNumber.txt')); {Assigns the Filename}
ReWrite(f); {Create a new file named ek.txt}
Writeln(f, '<?xml version="1.0" encoding="utf-8"?>');
Writeln(f, '<ApplicationFile>');
Writeln(f, ' <FileHeader>');
Writeln(f, ' <FormatVersion>2.0</FormatVersion>');
Writeln(f, ' <Sender>000100</Sender>');
Writeln(f, ' <CreationDate>'+FormatDateTime('yyy y-mm-dd', Date)+'</CreationDate>');
Writeln(f, ' <CreationTime>'+timetostr(Time)+' </CreationTime>');
Writeln(f, ' <Number>'+inttostr(Number)+'</Number>');
Writeln(f, ' <Institution>0001</Institution>');
Writeln(f, ' </FileHeader>');
Writeln(f, ' <ApplicationsList>');
Writeln(f, ' <Application>');

Writeln(f, ' <RegNumber>'+RegNumberNext(PrPath+' IN\RegNumber.txt')+'</RegNumber>');
Writeln(f, ' <OrderDprt>'+Dprt+'</OrderDprt>');
Writeln(f, ' <ObjectType>Contract</ObjectType>');
Writeln(f, ' <ActionType>Add</ActionType>');
Writeln(f, ' <ProductGroup>ISSPRIV</ProductGroup>');
Writeln(f, ' <ObjectFor>');
Writeln(f, ' <ClientIDT>');
Writeln(f, ' <ClientInfo>');
Writeln(f, ' <ClientNumber>'+ClientNumber+'</ClientNumber>');
if MiddleName = '' then
Writeln(f, ' <ShortName>'+FirstName+' '+LastName[1]+'..</ShortName>')
else
Writeln(f, ' <ShortName>'+FirstName+' '+LastName[1]+'.'+MiddleName[1]+'.</ShortName>');
Writeln(f, ' </ClientInfo>');
Writeln(f, ' </ClientIDT>');
Writeln(f, ' </ObjectFor>');
Writeln(f, ' <Data>');
Writeln(f, ' <Contract>');
Writeln(f, ' <Institution>0001</Institution>');
Writeln(f, ' <InstitutionIDType>Bank</InstitutionIDType>');
Writeln(f, ' <ClientType>APR_</ClientType>');
Writeln(f, ' <ServiceGroup>'+ServiceGroup+'</ServiceGroup>');
Writeln(f, ' <Product>');
Writeln(f, ' <ProductCode1>'+Product+'</ProductCode1>');
Writeln(f, ' </Product>');
Writeln(f, ' </Contract>');
Writeln(f, ' </Data>');
Writeln(f, ' <SubApplList>');
Writeln(f, ' <Application>');
Writeln(f, ' <RegNumber>'+RegNumberNext(PrPath+' IN\RegNumber.txt')+'</RegNumber>');
Writeln(f, ' <OrderDprt>'+Dprt+'</OrderDprt>');
Writeln(f, ' <ObjectType>Contract</ObjectType>');
Writeln(f, ' <ActionType>Add</ActionType>');
Writeln(f, ' <ProductGroup>ISSPRIV</ProductGroup>');
Writeln(f, ' <Data>');
Writeln(f, ' <Contract>');
Writeln(f, ' <Institution>0001</Institution>');
Writeln(f, ' <InstitutionIDType>Bank</InstitutionIDType>');
Writeln(f, ' <ClientType>APR_</ClientType>');
Writeln(f, ' <ServiceGroup>'+ServiceGroup+'</ServiceGroup>');
Writeln(f, ' <Product>');
Writeln(f, ' <ProductCode1>'+ProductCard+'</ProductCode1>');
Writeln(f, ' </Product>');
Writeln(f, ' <PlasticInfo>');
Writeln(f, ' <FirstName>'+TRFirstName+'</FirstName>');
Writeln(f, ' <LastName>'+TRLastName+'</LastName>');
Writeln(f, ' </PlasticInfo>');
Writeln(f, ' </Contract>');
Writeln(f, ' </Data>');
Writeln(f, ' </Application>');
Writeln(f, ' </SubApplList>');
Writeln(f, ' </Application>');
Writeln(f, ' </ApplicationsList>');
Writeln(f, '</ApplicationFile>');
Closefile(f); {Closes file F}
end;

[Пепел Феникса]

какую апликацию?

[Smitt&Wesson]

Он имеет в виду вот это </Application>

[veniside]

Writeln(f, '<?xml version="1.0" encoding="utf-8"?>');

так этого мало, по-моему, надо ещё BOM вначале притулить.

[Пепел Феникса]

так этого мало, по-моему, надо ещё BOM вначале притулить.

дело не в BOM.

а в том, что где вы пишите в UTF8?
у вас xml прописан как UTF8, а сами пишите или в windows-1251, или в UTF16, в зависимости от версии Делфи.

[veniside]

а, ну всякие Product, FirstName и LastName должны быть в UTF-8, это понятно )

> а сами пишите или в windows-1251, или в UTF16

так может они уже в UTF8 (или в AnsiString/UTF8 под 2009/2010/XE), из приведенного куска кода это не очевидно.

(хотя, судя по "timetostr(Time)", о реальной кодировке записываемых данных никто и не задумывался )

[Пепел Феникса]

так может они уже в UTF8 (или в AnsiString/UTF8 под 2009/2010/XE), из приведенного куска кода это не очевидно.

учитывая что это и есть код, то тут UTF8 и не пахнет.

а, ну всякие Product, FirstName и LastName должны быть в UTF-8, это понятно )

ASCII не нужно переводить, но вот любое начиная с кода 128, нуждается.