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

[Isis]

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

Вообщем юзаю wininet
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 ни в какие поля ничего не вводите... просто кнопку нажмите и будет утф =(

[Go0o$E]

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

[Isis]

http://webfile.ru/1469848

[Go0o$E]

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

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

[Isis]

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