кодировка
LDV © (2010-06-24 12:38:00)
начал разбираться с indy на пирмере авторизации в контакте.
проблема в следующем. после авторизации получаю исходный код
страницы. в ней все кириллические символы заменены знаками вопроса.
в чем проблема? стоит delphi7 + indy10
LDV (2010-06-24 12:40:00) [1]
procedure TForm1.Button3Click(Sender: TObject);
var
PageProfile: AnsiString;
begin
IdHTTP1
IdHTTP1.AllowCookies := True;
IdHTTP1.HandleRedirects:= True;
try
PageProfile := IdHTTP1.Get('
http://vkontakte.ru/login.php?email=test@mail.ru&pass=test');
except
end;
if Pos('logout', PageProfile)0 then
ShowMessage('Àâòîðèçàöèÿ
óäàëàñü')
else
ShowMessage('Àâòîðèçàöèÿ
íå
óäàëàñü');
//
Memo1.Text := PageProfile;
end;
Наверх 
ЧАТ |
Орешник |
|
