na googleach bylo cos takiego :)
oto kod a raczej caly unit dla tokena:
unit token_unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP, StdCtrls, Buttons, OleCtrls, SHDocVw, Menus, ExtCtrls,
TFlatEditUnit;
type
TForm2 = class(TForm)
WebBrowser1: TWebBrowser;
IdHTTP1: TIdHTTP;
BitBtn1: TBitBtn;
Timer1: TTimer;
kod: TFlatEdit;
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Scroll:Integer;
Form2: TForm2;
odbior,odbior1,nadanie : TStringStream;
zaw : string;
token,s,url : string;
i : integer;
implementation
uses panel_glowny, testy;
{$R *.dfm}
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
IF KOD.Text<>'' THEN BEGIN
zaw:=form1.tresc.text;
for i:=1 to length(zaw) do
if zaw[i]=' ' then zaw[i]:='+';
nadanie.WriteString( 'token='+token+
'&SENDER='+form1.podpis.Text+
'&RECIPIENT='+form1.Numer.text+
'&SHORT_MESSAGE='+zaw+
'&pass='+kod.Text+
'&CHK_RESP=FALSE&respInfo=1');
IdHTTP1.Request.contenttype:='application/x-www-form-urlencoded';
IdHTTP1.Request.Referer:='http://sms.idea.pl';
try
IdHTTP1.Post('http://213.218.116.131/sendsms.aspx',nadanie,odbior);
idhttp1.Get('http://213.218.116.131/sendsms.aspx',odbior); //<-zastosować możnagdy
chce się mieć pewność dostarczenia sms'a.
except
on exception do
begin
showmessage('Wystąpiły problemy z połączeniem!');
end else form1.status.Caption:='brak hasla tokena sprobuj ponownie!!!'
end;
//form1.status.Caption:=
idhttp1.Get('http://213.218.116.131/sendsms.aspx',odbior); //<-zastosować możnagdy chce się
mieć pewność dostarczenia sms'a.
if pos('Twój SMS został wysłany.',odbior.DataString)<>0 then form1.status.caption:='SMS
DOSTARCZONY'
else if pos('Podano błędne hasło, SMS nie został wysłany',odbior.DataString)<>0 then
form1.status.Caption:='BLEDNY TOKEN'
ELSE IF POS('Z Bramki SMS możesz wysyłać wiadomości tylko do Użytkowników sieci Idea. SMS
nie został wysłany',ODBIOR.DataString)<>0 THEN FORM1.status.Caption:='ZLY NUMER. PODAJ
NUMER SIECI IDEA'
ELSE IF POS('Użytkownik nie ma aktywnej usługi E-mail SMS STANDARD, SMS nie został wysłany',
ODBIOR.DataString)<>0 THEN FORM1.status.Caption:='Użytkownik nie ma aktywnej usługi E-mail
SMS STANDARD'
ELSE IF POS('Przysługujący odbiorcy limit krótkich wiadomości tekstowych,przesyłanych w
ciągu doby został wyczerpany, SMS nie został wysłany',ODBIOR.DataString)<>0 THEN
FORM1.status.Caption:='PRZEKROCZONY LIMIT BRAMKI'
ELSE FORM1.status.Caption:='SMS NIE ZOSTAL WYSLANY';
form1.tresc.Text:='';
end ELSE IF KOD.Text='' THEN FORM1.status.Caption:='BRAK KODU TOKENA, SMS NIE ZOSTAL
WYSLANY';
END;
procedure TForm2.FormShow(Sender: TObject);
begin
odbior:=TStringStream.Create('');
odbior1:=TStringStream.create('');
nadanie:=TStringStream.Create('');
form2.IdHTTP1.Request.referer:='sms.idea.pl';
form2.IdHTTP1.Request.contenttype:='application/x-www-form-urlencoded';
form2.IdHttp1.get('http://213.218.116.131',odbior);
token := Copy(odbior.DataString, Pos('token=',odbior.DataString)+6,100);
token := Copy(token, 1, Pos('"', token)-1);
s:=token;
url:=('http://213.218.116.131/rotate_token.aspx?token='+s);
try
WebBrowser1.Navigate(url);
//kod.Text:=url;
Except
showmessage('Wystąpił błąd podczas wczytywania obrazka Idei!');
end;
end;
procedure TForm2.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
webbrowser1.OleObject.Document.Body.Style.OverflowX := 'hidden';
webbrowser1.OleObject.Document.Body.Style.OverflowY := 'hidden';
webbrowser1.OleObject.document.body.leftmargin:='0';
webbrowser1.OleObject.document.body.rightmargin:='0';
webbrowser1.OleObject.document.body.topmargin:='0';
webbrowser1.OleObject.document.body.bottommargin:='0';
end;
procedure TForm2.Timer1Timer(Sender: TObject);
var
I:Integer;
S,ScrollText:String;
Begin
ScrollText:=' THIS IS A SENDSMS ';
Inc(Scroll);
If Scroll>Length(ScrollText)-10 then
Scroll :=0;
For I:=1 to 200 do
S:=S+ScrollText[I+Scroll];
Form2.Caption:=S;
Application.Title:=S;
end;
end.
Mozecie mnie skarcic ale nie chcialo mi sie wklejac procedur :P
