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

[Voody]

Посылаю запрос серверу через Post или Get (Indy). В ответе все русские буквы в виде знаков вопроса. Как можно исправить?

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

нужно смотреть какая кодировка приходит(часто бывает utf8)
в Дельфи есть функция

function Utf8ToAnsi(const S: UTF8String): string;

ей и воспользуйтесь

[Voody]

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

нужно смотреть какая кодировка приходит(часто бывает utf8)
в Дельфи есть функция

function Utf8ToAnsi(const S: UTF8String): string;

ей и воспользуйтесь

где узнать в какой кодировке приходит.
я увидел только такое:

<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />

Utf8ToAnsi не помогло

[Квэнди]

покажите код, какую версию среды,indy используете ?

[Voody]

Borland Delphi Pro Secon Edition 7.2
Indy 10-ая версия. Точнее не скажу, не знаю, где посмотреть. Но скачал по вашей инструкции (kvendi.pp.ru) буквально неделю назад.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdCookieManager, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    HTTP: TIdHTTP;
    CM: TIdCookieManager;
    Memo1: TMemo;  
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var
  Http  : TidHttp;
  CM    : TidCookieManager;
  Data  : TStringList;
  StrPage  :  String;

begin
  try   //идет успешная авторизация
    Http := TIdHTTP.Create(Self);
    Data := TStringList.Create;
    CM := TidCookieManager.Create(Http);
    Http.AllowCookies := true;
    Http.CookieManager := CM;
    Http.HandleRedirects := true;

    Data.Add('vb_login_username=rankor');
    Data.Add('vb_login_password=qwerty');
    Data.Add('do=login');   
    StrPage := Http.post('http://www.сайт.tv/login.php?do=login', Data);
  
  finally
    Data.Free;   
  end;


  if (Pos('usercp.php',StrPage) <> 0) or (Pos('rankor',StrPage) <> 0) then
    ShowMessage('Авторизация прошла успешно')
  else
    ShowMessage('Авторизация провалилась');

  Memo1.Lines.Text := StrPage; //в Memo текст страницы записывается

end;

end.

вот в Memo я и вижу, что вместо русских букв знаки вопроса.
Попробовал Memo1.Lines.Text :=Utf8ToAnsi(StrPage); - никакой разницы.

[Квэнди]

не используйе с последними версиями Indy в get запросах строковые типы. Используйте Tstream-ы

[Voody]

Сообщение от Квэнди

не используйе с последними версиями Indy в get запросах строковые типы. Используйте Tstream-ы

Не совсем понял... Тут же не Get, а Post запрос. И при чем тут поток?
Можно примерчик вашего совета?

[Квэнди]

примерно так:

var s:TStringStream;
data:TStringList;
begin
s:=TStringStream.Create;
data:=TStringList.Create;
try
  Data.Add('vb_login_username=rankor');
  Data.Add('vb_login_password=qwerty');
  Data.Add('do=login');
  IdHTTP1.Post('http://www.сайт.tv/login.php?do=login',data,s);
  s.position:=0;
  if (Pos('usercp.php',s.DataString) <> 0) or (Pos('rankor',s.DataString) <> 0) then
    ShowMessage('Авторизация прошла успешно')
  else
    ShowMessage('Авторизация провалилась');
  memo1.Lines.LoadFromStream(s);
finally
  s.Free;
  data.Free;
end;

[Voody]

Спасибо, теперь русские буквы нормально