Показать сообщение отдельно
  #7  
Старый 15.08.2010, 21:51
Аватар для pesi
pesi pesi вне форума
Активный
 
Регистрация: 12.09.2008
Сообщения: 275
Репутация: 43
По умолчанию

Вообще тут не стоило помогать....
Код:
var
	SL: TStringList;
	Otvet: String;
	Ur: String;
begin
	Otvet:= IdHTTP1.get(url); 
	SL:= TStringlist.Create;
	SL.Add('username=' +''); 
	SL.Add('password=' + ''); 
	Otvet:= IdHTTP1_Pay.Post('' +url +'login.php', SL);
	Otvet:= IdHttp1_Pay.Get('' +url +'nek.php'); 
	Ur:= PosSrc(Otvet);
	Otvet:= IdHttp1_Pay.Get('' + url +Ur);
	SL.Free;
end;
Ответить с цитированием