[Delphi]/[Pascal] Задай вопрос, получи ответ

#10

29.04.2010, 21:18

JnK

Участник форума

Регистрация: 30.03.2007

Сообщений: 121

С нами: 10060964

Репутация: 52

Цитата:

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

Программа работает но с отправкой на сервер данных запутался ,не могу сообразить !!! Помогите пожалуйста юнному программисту !!!!!

PHP код:


		
			
....



procedure TForm1.Button1Click(Sender: TObject);



var FS:TFileStream;

begin

  IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; YPC 3.0.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)';

  S:=IdHTTP1.Get('http://www.sms.tele2.ru/');



  public_key:=Copy(S, Pos('public_key', S)+35, 32);

  FS:=TFileStream.Create('captcha.png',FMCreate);

  

  IdHTTP1.Get('http://www.sms.tele2.ru/get_rni.php?public_key='+public_key, FS);

  FS.Free;

  Image1.Picture.LoadFromFile('captcha.png');

end;



procedure TForm1.Button2Click(Sender: TObject);

var 

  Data:TStringList;

begin

  Data:=TStringList.Create;

  Data.Add('do=send');

  Data.Add('smstext='+text.Text);

  Data.Add('phone_cod='+Kod.text);

  Data.Add('number='+nomer.Text);

  Data.Add('sms_text='+text.Text);

  Data.Add('private_key='+public_key);  // Это капча

  Data.Add('public_key='+public_key);  // А это Хеш наверное её )

  

  S:=IdHTTP1.Post('http://www.sms.tele2.ru/', Data);



  if Pos('green', S)<>0 then

    Label1.Caption:='ДА :)'

  else

    Label1.Caption:='Нет;)'

  Data.Free;  // список освобождать кто будет?

end;





end.

PHP код:


		
			
Data.Add('private_key='+public_key);  // Это капча

Data.Add('public_key='+public_key);  // А это Хеш наверное её )

У тебя капча и ключ одно и тоже.

Последний раз редактировалось JnK; 29.04.2010 в 21:23..

Похожие темы

Тема

Автор

Раздел

Ответов

Последнее сообщение

[Wi-Fi, BT] Задай вопрос - получи ответ!

Alexsize

Беспроводные технологии/Wi-Fi/Wardriving

2569

10.05.2026 13:27

[jQuery] - Задай вопрос, получи ответ

Isis

PHP

25.12.2009 03:25