Знатоки

[Iufy*fjvklJw789]

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

[Hermein]

делаю прогу и там есть, что-то типа связь с автором
в мемо они пишут текст а потом отправляют мне по почте
но сообщения приходят криво, а точнее нет ни 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');
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]сайт.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;

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