Перейти к содержанию

Delphi - Получение содержимого сайта в Memo, избавиться от кракозябров


Рекомендуемые сообщения

Всем привет)
Хочу создать новости в memo, но у меня показывает какие-то каракули. Как исправить чтоб нормальный текст показыввало?
У меня вот такой код 

Memo1.text:=utf8String(IdHTTP1.get('http://site.ru/new.txt'));

 

Ссылка на комментарий
Поделиться на другие сайты



var
  mStream: TStringStream;
  URL : string;
begin
 mStream := TStringStream.Create;
 URL := Edit1.Text;
 idHttp1 := TIdHTTP.Create(nil);
 idHttp1.Get(URL, mStream);
 Memo1.Clear;
 Memo1.Text := mStream.DataString; // вариант1, кодировка charset=windows-1251
  //или
 Memo1.Text := UTF8Decode (mStream.DataString); // вариант2, кодировка charset=UTF-8
end;

  • Плюс 1
Ссылка на комментарий
Поделиться на другие сайты

Добавил этот код и все норм

function RussianToUnicode(S: String): String;var Wrd:Word;pW,pR:PWord;len:Integer;beginpW:=@S[1];len:=Length(S);SetLength(Result,len);pR:=@Result[1];while Len<>0 do beginWrd:=pW^;case Wrd of$C0..$DF,$E0..$FF:pR^:=Wrd+$0350;else pR^:=Wrd;end;inc(pW);inc(pR);dec(Len);end;end;
Ссылка на комментарий
Поделиться на другие сайты

×
×
  • Создать...

Важная информация

Находясь на нашем сайте, Вы автоматически соглашаетесь соблюдать наши Условия использования.