мемо не отображает русский текст.

[lg12]

подскажите что делать. загружаю текст в мемо а там одни ироглифы

[Stilet]

А что за текст?

[lg12]

HttpGetText('http://вашсайт.нет', Memo1.Lines);
загружаю страницу сайта а не отображает русские буквы

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

там кодировка UTF8 скорее всего
попробуй прогнать так Memo1.Lines.Text:=UTF8ToANSI(Memo1. Lines.Text);

[lg12]

Сообщение от Пепел Феникса

там кодировка UTF8 скорее всего
попробуй прогнать так Memo1.Lines.Text:=UTF8ToANSI(Memo1. Lines.Text);

подскажи плиз как это связать с
исполльзуется компонент idHTTP(InDy Clients)
на нажатие кнопки вешаем код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Text:=idHTTP1.Get(<адре с>);
end;
на форме мемо, кнопка и вышеуказанный компонент.
выведет исходный код страницы естественно
__________________

[uberchel]

Может вот так:

procedure TForm1.btn1Click(Sender: TObject);
var
  F: string;
  TM: TMemoryStream;
  begin
  try
  F:= 'ttt.ttt';
  TM:= TMemoryStream.Create;
  idhtp1.Get('Http://delphiworld.narod.ru\',TM);
  TM.SaveToFile(f);
  finally
   with Memo1 do begin
   Font.Name := 'RUSSIAN_CHARSET';
   Lines.LoadFromFile(f);
   end;
    DeleteFile(f);
   TM.Free;
 end;
end;

[Stilet]

загружаю страницу сайта

А зачем в Мемо грузить? Грузи в WebBrowser.

[lg12]

Сообщение от uberchel

Может вот так:

procedure TForm1.btn1Click(Sender: TObject);
var
  F: string;
  TM: TMemoryStream;
  begin
  try
  F:= 'ttt.ttt';
  TM:= TMemoryStream.Create;
  idhtp1.Get('Http://delphiworld.narod.ru\',TM);
  TM.SaveToFile(f);
  finally
   with Memo1 do begin
   Font.Name := 'RUSSIAN_CHARSET';
   Lines.LoadFromFile(f);
   end;
    DeleteFile(f);
   TM.Free;
 end;
end;

БОЛЬШОЕ СПАСИБО! все работает. можно только пояснить код?(добавте комментарии)

[uberchel]

Коментирую:

procedure TForm1.btn1Click(Sender: TObject);
var
  F: string;                    //переменная типа string
  TM: TMemoryStream; // Работа с памятью (ОЗУ)
  begin
  try                             // Выполняться код до finally
  F:= 'ttt.ttt';                // выберем, что стринг будет файлом
  TM:= TMemoryStream.Create; //Создаём поток
  idhtp1.Get('Http://delphiworld.narod.ru\',TM); //Качаем страницу и передаём в память
  TM.SaveToFile(f);      // сохраняем в стринг(файл)
  finally                        //когда код выше полностью выполнен, идём дальше
   with Memo1 do begin // работаем с мемо
   Font.Name := 'RUSSIAN_CHARSET'; // выберем названия и тип  шрифта
   Lines.LoadFromFile(f); // грузим из стринг(файла)
   end;               // кагда всё выше указанное выполнено
    DeleteFile(f);// удаляем файл
   TM.Free;       // Освобождаем память
 end;
end;

[милт]

Сообщение от Пепел Феникса

там кодировка UTF8 скорее всего
попробуй прогнать так Memo1.Lines.Text:=UTF8ToANSI(Memo1. Lines.Text);

Это помогло. Спасибо вам и форуму.