[mak-karpov]

Всем добрый день, есть вот такой кусок кода:

Код:

rss.XML.Text := rssget.Get('http://www.delphisources.ru/pages/scripts/rss.xml');
  rss.Active := true;
  rss.ChildNodes.Nodes['rss'].ChildNodes.Nodes['channel'].ChildNodes.Delete('title');
  rss.ChildNodes.Nodes['rss'].ChildNodes.Nodes['channel'].ChildNodes.Delete('link');
  rss.ChildNodes.Nodes['rss'].ChildNodes.Nodes['channel'].ChildNodes.Delete('description');
  rss.ChildNodes.Nodes['rss'].ChildNodes.Nodes['channel'].ChildNodes.Delete('language');

  sources.Items.Clear;
  links.Clear;

  c := rss.ChildNodes.Nodes['rss'].ChildNodes.Nodes['channel'].ChildNodes.Count;
  for i := 0 to c - 1 do
    sources.Items.Add(rss.ChildNodes.Nodes['rss'].ChildNodes.Nodes['channel'].ChildNodes.Nodes[i].ChildNodes.Nodes['title'].Text);


  rss.Active := false;

После работы в sources (это list box) сплошная крякозябра. Как выяснилось, текст в CP1252:

Код:

Íîâûé èñõîäíèê ïîä íàçâàíèåì "Logic simulation"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "Air Simulator"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "Syntax highlighting Delphi"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "Hologram code/decode"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "Improved Buttons and ProgressBar"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "PE Sniffer"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "Êàðòû Êàðíî"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "Rubik's Cube"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "CAD5"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "Library Database"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "IT.DGT"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "Multi Thread"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "Directory Monitor"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "Processess, Threads, Modules"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "RTimer"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "Downsampling optimise"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "fwZIP - Ðàáîòà ñ ZIP àðõèâàìè"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "Ñïëàéí íà 8 òî÷åê"
Íîâûé èñõîäíèê ïîä íàçâàíèåì "Äîìèíî 2.0"

Как перекодировать?

[NumLock]

попробуй на IXMLDOM*.
http://narod.ru/disk/18132783001/DSRSS.rar.html

[mak-karpov]

А ты в какой версии Delphi компилил?

P.S. Вроде вот:

Код:

function process(s : string) : string;
var i,p : integer;
const
  cp1252 = 'àáâãäå¸æçèéêëìíîïðñòóôõö÷øùúûüýþÿÀÁÂÃÄŨÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞß';
  cp1251 = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
begin
  for i := 1 to length(s) do begin
    p := pos(s[i],cp1252);
    if p <> 0 then
      s[i] := cp1251[p];
  end;
  result := s;
end;