Регистрация на сайте - Работа с сетью в Delphi

Terikon · 16.03.2009, 17:27

Здраствуйте, помогите пожалуйста

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
s,sres:string;
Captcha:TMemoryStream;
begin
idHTTP1.Get('http://www.cproxy.com/Default.aspx?pg=13&amp;lg=3');
s:=idHTTP1.Get('http://www.cproxy.com/Default.aspx?pg=13&amp;lg=3');
sres:=copy(s,pos('ctl00_ContentPlaceHolderMain_ucRF_hidReg',s)+48,length(s)-pos('ctl00_ContentPlaceHolderMain_ucRF_hidReg',s)+52);
sres:=copy(sres,2,pos('/>',sres));
sres:=copy(sres,1,length(sres)-4);
s:=idHTTP1.Get('http://www.cproxy.com/Default.aspx?pg=13&amp;lg=3');
sres:=copy(s,pos('"ctl00_ContentPlaceHolderMain_ucRF_imgRegPol"',s)+50,length(s)-pos('"ctl00_ContentPlaceHolderMain_ucRF_imgRegPol"',s)+50);
sres:=copy(sres,2,pos('" border',sres));
sres:=copy(sres,1,length(sres)-2);
captcha:=TMemoryStream.Create;
idhttp1.Get('http://www.cproxy.com/'+sres,captcha);
captcha.SaveToFile('captcha.png');
Image1.Picture.LoadFromFile('captcha.png');

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
Var
tr : TstringList;
begin
tr:=TstringList.Create;
tr.Add('ctl00$ContentPlaceHolderMain$ucRF$hidReg='+sres);  ____КАК СЮДА ДОБАВИТЬ ДАННЫЕ ИЗ idHTTP1.Get('http://www.cproxy.com/Default.aspx?pg=13&amp;lg=3');
s:=idHTTP1.Get('http://www.cproxy.com/Default.aspx?pg=13&amp;lg=3');
sres:=copy(s,pos('ctl00_ContentPlaceHolderMain_ucRF_hidReg',s)+48,length(s)-pos('ctl00_ContentPlaceHolderMain_ucRF_hidReg',s)+52);
sres:=copy(sres,2,pos('/>',sres));
sres:=copy(sres,1,length(sres)-4);
tr.Add('ctl00$ContentPlaceHolderMain$ucRF$txtRegEmail='+Edit1.Text);
tr.Add('ctl00$ContentPlaceHolderMain$ucRF$txtRegPol='+Edit2.Text);
tr.Add('ctl00$ContentPlaceHolderMain$ucRF$btnRegSubmit=Sign Up');
idHTTP1.Post('http://www.cproxy.com/Default.aspx?pg=13&amp;lg=3',tr);
end;

end.

Пепел Феникса · 16.03.2009, 17:43

а собственно в чем проблема?
глобальные перемнные не обьявить?

Terikon · 16.03.2009, 19:01

Можно пример, раньше я данные загружал в edit, но регистрация почемуто всё равно не проходила

Квэнди · 16.03.2009, 21:02

Сначала соберитесь с мыслями, сформулируйте нормально вопрос и оформите его в новой теме.
закрыто.

16.03.2009, 17:43	#2
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	а собственно в чем проблема? глобальные перемнные не обьявить? Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

16.03.2009, 21:02	#4
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	Сначала соберитесь с мыслями, сформулируйте нормально вопрос и оформите его в новой теме. закрыто. ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Регистрация	limon	PHP	1	17.10.2008 10:33
Регистрация сайта	Алла66	Помощь студентам	3	21.08.2008 19:33
Регистрация БД	Gladiator	БД в Delphi	1	05.06.2008 00:09
Регистрация на nnov.ru	delphin100	Свободное общение	3	25.04.2008 21:05

16.03.2009, 19:01	#3
Terikon Форумчанин Регистрация: 22.02.2009 Сообщений: 174	Можно пример, раньше я данные загружал в edit, но регистрация почемуто всё равно не проходила