Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.01.2010, 12:45   #1
Smagulov85
Форумчанин
 
Аватар для Smagulov85
 
Регистрация: 22.11.2009
Сообщений: 142
По умолчанию idhttp1.get('') кодировка в memo1

парсил один сайт через idhttp1.get(''); для просмотра выводил в memo1 только проблема одна весь русский шрифт искажается

Код HTML:
<table cellpadding="0" cellspacing="0" style="height: 1%; background-color: #
                                <td align="right">
                                    <div style="padding: 27px 0px 0px 0px">
                        <div style="padding: 5px 0px 0px 0px"><A href="/?act=rules"><img src="/images/m1.jpg" width=189px height=22px alt="Ïðàâèëà ðåéòèíãà"></a></div>
                        <div style="padding: 5px 0px 0px 0px"><A href="/editServ/"><img src="/images/m2.jpg" width=189px height=22px alt="Âëàäåëüöàì ñåðâåðîâ"></a></div>
                        <div style="padding: 5px 0px 0px 0px"><A href="/sites/"><img src="/images/m3.jpg" width=189px height=22px alt="Ðåéòèíã ñàéòîâ"></a></div>
                        <div style="padding: 5px 0px 0px 0px"><A href="/karma/"><img src="/images/m4.jpg" width=189px height=22px alt="Ðåéòèíã èãðîêàðìû"></a></div>
                        <div style="padding: 5px 0px 0px 0px"><A href="/blog/"><img src="/images/m5.jpg" width=189px height=22px alt="Áëîãè"></a></div>
                        <div style="padding: 5px 0px 0px 0px"><A href="/?act=feedback"><img src="/images/m6.jpg" width=189px height=22px alt="Îáðàòíàÿ ñâÿçü"></a></div>
                        
                    </div>
                                </td>
                            </tr>
                        </table>
                    </td>
                    <td><img src="/images/rt.jpg" alt=""></td>
                </tr>
            <!--/Øàïêà-->
            <!--Îñíîâíîé áëîê-->
                <tr style="height: 1%;">
                    <td style="background: url('/images/lb.gif') repeat-y;"><img src="/images/blank.gif" style="width: 10px; height: 1px;" alt=""></td>
                    <td align="left" style="background-color:#fff;">
                        <table cellpadding="0" cellspacing="0" style="width: 100%; height: 1%;" border=0>
                            <!--Ïîèñê/ìåíþ ïîëüçîâàòåëÿ-->
                            <tr>
                                <td style="background: #cddae4; text-align: left; border-top: 1px solid #94b5cc; border-bottom: 1px solid #94b5cc;">
                                    <form action="/index.php" method="get">
    <table border=0 width="100%">
    <tr>
        <td><img src="/images/lupa.gif" alt=""></td>
        <td><strong>Ïîèñê&nbsp;ñåðâåðîâ</strong></td>
        <td><input type="text" style="width: 220px;" value="" name="name"></td>
        <td><div><button type="submit">Íàéòè</button></div></td>
        <td width="100%"><a href="?act=search#search" style="font-size: 12px;">Ðàñøèðåííûé ïîèñê (ïî õðîíèêàì, ðåéòàì, ïëàòôîðìå)</a></td>
    </tr>
    </table>
</form>
                                </td>
                            </tr>
                            <tr>
                                <td class="menuList">
                                    <div><div style="text-align: center;">Ïðèâåòñòâóåì! Âû ìîæåòå <a href="/.?top=login" style="font-size: 14px;">âîéòè</a> èëè <a href="http://mmogame.ru/user/register" style="font-size: 14px;">çàðåãèñòðèðîâàòüñÿ</a>.</div></div>
                                </td>
                            </tr>
                            <tr>
                                <td></td>
                            </tr>
                            <!--/Ïîèñê/ìåíþ ïîëüçîâàòåëÿ-->
                            <!--Ñòðàíèöû è ðåêëàìà-->
хотя в коде html написано

Код HTML:
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
уже пробывал
так сделать

Код:
IdHTTP1.Request.UserAgent:='Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.00';
IdHTTP1.Request.Accept:='text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
IdHTTP1.Request.AcceptLanguage:='ru,ru-RU;q=0.9,en;q=0.8';
IdHTTP1.Request.AcceptCharSet:='windows-1251,iso-8859-1, utf-8, utf-16, *;q=0.1';
IdHTTP1.Request.AcceptEncoding:='deflate, gzip, x-gzip, identity, *;q=0';
IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
все равно в memo1 выводик русские буквы закарючками!!
как исправить ошибку?
Если помог: Нажми Весы и оставь отзыв!!!
Smagulov85 вне форума Ответить с цитированием
Старый 04.01.2010, 13:37   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Про "кодировку" полно тем в этом разделе.
Сделайте поиск и выберите, что нужно.
mihali4 вне форума Ответить с цитированием
Старый 04.01.2010, 14:12   #3
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,183
По умолчанию

Грузите в поток страницу. Например в TMemoryStream.
Пример(писал в браузере):
Код:
Function GEt_(Url :String):String;
var
  mStream: TMemoryStream;
  Lst :TStrings;
begin
 Result := '';
mStream := TMemoryStream.Create;
Lst := TStringList.Create;
try
  idHttp := TIdHTTP.Create(nil);
  { тут следует "настроить" параметры idHTTP }
  { ... }
  try
    idHttp.Get(URL, mStream);
    mStream.Position := 0;
    Lst.LoadFromStream(mStrean);
    Result := Lst.Text; // <<= вот тут весь текст для работы
  finally
    idHttp.Free;
  end;
finally
  mStream.Free;
  Lst.Free;
end;
end;
Alter вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Процедура останавливается на idhttp1.get('') Des Компоненты Delphi 0 18.05.2009 19:05
Не работает idHTTP1.Get Crivel Работа с сетью в Delphi 10 10.04.2009 08:23
Ошибка создания idhttp1 zotox Помощь студентам 6 26.10.2008 21:41
IdHTTP1 авторизация хелп:'( St0rm Работа с сетью в Delphi 6 13.10.2008 13:06
IdHTTP1 некорректно работает nike-p Работа с сетью в Delphi 9 23.07.2008 23:13