Знаки вопросов вместо русских букв (Delphi)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Artist, 15 Jul 2010.

  1. Artist

    Artist Member

    Joined:
    10 Jul 2010
    Messages:
    89
    Likes Received:
    5
    Reputations:
    0
    Отправляю пост запрос:
    Code:
    var
a,b: TStringList;
begin
b:=TStringList.Create;
a:= TStringList.Create;
b.Text := IdHTTP1.Post('http://vkontakte.ru/login.php', a);
Memo1.Text:=b.Text;
end;
    В мемо1 возвращает текст где русские буквы сменились на знаки вопросов.
    Code:
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en" id="vkontakte">
<head>
<meta http-equiv="content-type" content="text/html; charset=windows-1251" />
<title>[COLOR=Lime]? ???????? | ????[/COLOR]</title>
<link rel="stylesheet" href="/css/rustyle.css?72" type="text/css" />
<script src="/js/common.js?136"></script>
    В снифере так:
    Code:
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en" id="vkontakte">
<head>
<meta http-equiv="content-type" content="text/html; charset=windows-1251" />
<title>[COLOR=Lime]В Контакте | Вход[/COLOR]</title>
<link rel="stylesheet" href="/css/rustyle.css?72" type="text/css" />
<script src="/js/common.js?136"></script>
    Не как не могу решить проблему эту.
    Utf8toAnsi,AnsiToUtf8,Utf8Encode не помогает...
    Решение:
    Code:
     var
  a : TStringStream;
  temp : string;
begin
  a := TStringStream.Create(temp);
  IdHTTP1.Get('http://vkontakte.ru', a);
  Memo1.Lines.Add(a.DataString); 
  end;
    Win7,Delphi7,Indy10
     
    #1 Artist, 15 Jul 2010
    Last edited: 15 Jul 2010
  2. Refqs

    Refqs Banned

    Joined:
    20 Feb 2010
    Messages:
    139
    Likes Received:
    56
    Reputations:
    27
    b.Text := utf8toansi(IdHTTP1.Post('http://vkontakte.ru/login.php', a));
     
    #2 Refqs, 15 Jul 2010
  3. Refqs

    Refqs Banned

    Joined:
    20 Feb 2010
    Messages:
    139
    Likes Received:
    56
    Reputations:
    27
    а где параметры a?
    a.add('param1=');
    a.add('param2=');
    a.add(param2='');
    a.add('3333');
     
    #3 Refqs, 15 Jul 2010
  4. Artist

    Artist Member

    Joined:
    10 Jul 2010
    Messages:
    89
    Likes Received:
    5
    Reputations:
    0
    Я же написал что Utf8ToAnsi не катит.Параметр 'a' пустой.
     
    #4 Artist, 15 Jul 2010
  5. Refqs

    Refqs Banned

    Joined:
    20 Feb 2010
    Messages:
    139
    Likes Received:
    56
    Reputations:
    27
    мда, а зачем на сервер отправлять пустой post запрос?
     
    #5 Refqs, 15 Jul 2010
  6. Artist

    Artist Member

    Joined:
    10 Jul 2010
    Messages:
    89
    Likes Received:
    5
    Reputations:
    0
    Это просто пример, я получаю страницу входа и мне этого достаточно чтоб показать что символы отображаются не правильно.
     
    #6 Artist, 15 Jul 2010
  7. Refqs

    Refqs Banned

    Joined:
    20 Feb 2010
    Messages:
    139
    Likes Received:
    56
    Reputations:
    27
    есть ещё utf8encode()
    попробуй его
     
    #7 Refqs, 15 Jul 2010
  8. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    Щас 5 минут, вспомню как решить ;)
     
    #8 fenixelite, 15 Jul 2010
  9. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    PHP:
    var
          a : TStringStream;
          temp : string;
    begin
      a     := TStringStream.Create(temp);
          IdHTTP1.Get('http://vkontakte.ru', a);
          Memo1.Lines.Add(a.DataString);
     
    #9 fenixelite, 15 Jul 2010
  10. Artist

    Artist Member

    Joined:
    10 Jul 2010
    Messages:
    89
    Likes Received:
    5
    Reputations:
    0
    Спасибо все помогло.Если можно дайте ссылку на статью по потокам для новичков...
     
    #10 Artist, 15 Jul 2010
  11. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    #11 fenixelite, 15 Jul 2010
(You must log in or sign up to post here.)