руский храмоножка

[bulldog5293]

тогда почему при этом коде я получаю русский текст?
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.safonbux-msk.ru/login.php?r=',data,s);
s.position:=0;
if (Pos('login.php?r=',s.DataString) <> 0) or (Pos('',s.DataString) <> 0) then
ShowMessage('Авторизация прошла успешно')
else
ShowMessage('Авторизация провалилась');
memo1.Lines.LoadFromStream(s);
finally
s.Free;
data.Free;
end;
end;

[Korben5E]

ну уже интереснее, тут используется метод POST - там метод GET

в первом случае присваивается уже загруженное значение

во втором видимо открывается сокет для чтения потока и поток грузится в мемо видимо минуя некоторые внутренности компонента.

явно косяк в реализации компонента

[bulldog5293]

А вот так гетом
procedure TForm1.Button1Click(Sender: TObject);
var s:TStringStream;
begin
s:=TStringStream.Create;
data:=TStringList.Create;
try
Data.Add('vb_login_username=');
Data.Add('vb_login_password=');
Data.Add('do=login');
IdHTTP1.Get('http://www.safonbux-msk.ru/login.php?r=',s);
s.position:=0;
if (Pos('login.php?r=',s.DataString) <> 0) or (Pos('',s.DataString) <> 0) then
ShowMessage('Авторизация прошла успешно')
else
ShowMessage('Авторизация провалилась');
memo1.Lines.LoadFromStream(s);
finally
s.Free;
data.Free;
end;
end;
Эт получается мне нада ещё s какую-то держать, но как мне тогда зделать что бы в мемо выводилось только значение login.php?r='

[Korben5E]

я-же сказал - у меня нет компонента, я могу делать только теоретические выводы

[raxp]

Эт получается мне нада ещё s какую-то держать, но как мне тогда зделать что бы в мемо выводилось только значение login.php?r='

вы уже начали парсить, pos() вернет вам начало строки + кол-во известных и выбирайте в memo через copy()

OFFTOP >

я-же сказал - у меня нет компонента, я могу делать только теоретические выводы

я се в турбо-дельфи пакетный bpl сделал из версии indy tiburion 10.5.7 и установил либу.

[Korben5E]

Сообщение от raxp

вы уже начали парсить, pos() вернет вам начало строки + кол-во известных и выбирайте в memo через copy()

OFFTOP >
я се в турбо-дельфи пакетный bpl сделал из версии indy tiburion 10.5.7 и установил либу.

ну как только она лично мне будет нужна - я че нить придумаю

а пока я не могу дать челу внятный ответ - но однозначно что в GET происходит перекодировка текста.....