ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

PHP код:


		
			
unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, PngImageList, ImgList, IdHTTP, IdBaseComponent, IdComponent,

  IdTCPConnection, IdTCPClient, StdCtrls, ExtCtrls, IdCookieManager;



type

  TForm1 = class(TForm)

    Image1: TImage;

    kap: TEdit;

    Button1: TButton;

    IdTCPClient1: TIdTCPClient;

    IdHTTP1: TIdHTTP;

    PngImageList1: TPngImageList;

    PngImageCollection1: TPngImageCollection;

    Button2: TButton;

    Kod: TComboBox;

    nomer: TEdit;

    text: TEdit;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);



  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



 var public_key, S:string;

{$R *.dfm}



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='+kap.Text);

Data.Add('public_key='+public_key);

Data.Add('submit.x=0');

Data.Add('submit.y=0');

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

Data.Free;

if Pos('<p><b><span style="color: green">Спасибо, Ваше сообщение принято!</span></b></p>', S)<>0 then

Label1.Caption:='ДА :)'

else

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



end;



end.

Народ я уже все волосы на голове выдрал помогите не отправляет смс !!!!!!!!
Может всё дело в :

PHP код:


		
			
Data.Add('submit.x=0');

Data.Add('submit.y=0');

я незнаю что место 0 ставить??????