[Delphi] Кодировка - UTF8 => Windows-1251

Решил что это требует отдельной темы т.к. в гугле не смог найти ответ на этот вопрос....

Вообщем юзаю wininet

Code:

function GetStr(url: string): string;
const
  BufferSize = 6536;
var
  hInternet, hConnect: pointer;
  Buffer: array[1..BufferSize] of char;
  BufferLen: LongWord;
  i: integer;
begin
  result:='';
  hInternet:=InternetOpen('Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.0)', INTERNET_OPEN_TYPE_PRECONFIG,0, nil, 0);
  if Assigned(hinternet) then
  try
    hConnect:=InternetOpenUrl(hInternet, pchar(url),  nil, 0, 0, 0);
  repeat
  if not InternetReadFile(hConnect, @Buffer, SizeOf(Buffer), BufferLen) then
    bufferlen:=0;
    for i:=1 to bufferlen do result:=result+char(Buffer[i]);
    until bufferlen=0;
  finally
    InternetCloseHandle(hinternet);
  end;
end;

Вывожу в мемо GetStr('http://......php');
Но...Русский текст выводит в utf-8...
А надо бы вывести как ннормльный русский текст =)

//Может я что-то не так понял...Но вот прога http://webfile.ru/1469634 ни в какие поля ничего не вводите... просто кнопку нажмите и будет утф =(

 

Может кинешь полный исходник, т.к. функция выводит все нормально, а программа нет.

 

http://webfile.ru/1469848

 

Используй Utf8ToAnsi().

___
Да бывает. Рад помочь )

 

Go0o$E, спасибо большое...
Из-за такой маленькой функции я тра[.]ался целый день =)