[Помогите!] Знатоки

[Iufy*fjvklJw789]

делаю прогу и там есть, что-то типа связь с автором
в мемо они пишут текст а потом отправляют мне по почте
но сообщения приходят криво, а точнее нет ни 1 буквы, а только вопросительные знаки....
как исправить ???
delphi XE

[Hermein]

Цитата: Сообщение от Iufy*fjvklJw789 делаю прогу и там есть, что-то типа связь с автором в мемо они пишут текст а потом отправляют мне по почте но сообщения приходят криво, а точнее нет ни 1 буквы, а только вопросительные знаки.... как исправить ??? delphi XE

во-первых смени кодировку на utf - 8 на выход(post):
function Utf8ToAnsi(const S: UTF8String): string;

или вот что-то типо этого:

var s:TStringStream;
data:TStringList;
begin
s:=TStringStream.Create;
data:=TStringList.Create;
try
  Data.Add('vb_login_username=');
  Data.Add('vb_login_password=');
  Data.Add('do=login');
  IdHTTP1.Post('http://www.сайт.ru/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;

________________________________________________
Помог-поставь спасибо!