Проблемы с кодировкой (delphi 7, Indy 10.5.7)

[oleg_498]

Возникла проблема с авторизацией вконтакте, а конкретно с кодировкой. При получении исходника страницы получаю одни знаки вопроса. Так же не проходит авторизация. Пароль на английском. День назад все работало, сегодня поменял Indy и произошли изменения в структуре сайта, возможно и в авторизации. Запутался в добавок в общем

IdHTTP1.Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
IdHTTP1.Request.AcceptLanguage := 'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
IdHTTP1.Request.AcceptCharSet := 'windows-1251,utf-8;q=0.7,*;q=0.7';
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP1.Request.Connection := 'keep-alive';
IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.3) Gecko/2008092417 Firefox/3.0.3';
data:=tstringlist.create;
PageProfile:=TStringList.Create;
data.Add('email='+edit1.text);
data.Add('pass='+edit2.text);
data.Add('vk=');
error:=false;
PageProfile.text:=IdHTTP1.Post('http://login.vk.com/?act=login', data);

Где и что нужно сделать с кодировкой? Или возможно есть ошибки, недочеты в коде?

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

про кодировки уже баянище прям.

[oleg_498]

Знаю, просмотрел множество способов. Почему то не помогает...

[Alter]

Используйте же потоки(так же может быть: сервер даёт сжатые данные; кодировка UTF-8 )

Решение с потоками, написал такую функцию

function StreamToText(S: TStream): string;
var
  Lst :TStrings;
begin // Stream To Text
 Result := '';
 if S <> nil then
 begin
  Lst := TStringList.Create;
   try
  if S.Size <= 0 then
    Exit;
     // 
  S.Position := 0;
  Lst.LoadFromStream(S);
  Result := Lst.Text;
   finally
  Lst.Clear;
  FreeAndNil(Lst);
   end;
 end;
end;

Использовать

var
  Text :TStrings;
  M :TMemoryStream;

// ...........

 M := TMemoryStream.Create;
  try
 FHttp.Post('http://login.vk.com/?act=login', data, M);
 Text := StreamToText(M);
  finally
 M.Clear;
 FreeAndNil(M);
  end;

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

Alter, а кто мешал сразу TStringStream брать?

[Alter]

Никто , я только предложил.

[oleg_498]

Нашел решение здесь: http://programmersforum.ru/showthread.php?t=81670
Пепел Феникса, спасибо что хоть там верно ответил.