delphi sms gateway

[Permenkaret]

gan ane bikin program wat sms gateway pk delphy ...tapi ane bingung cara buat auto replynya.........toloong bntuannya gan,,,:loveindonesia



unit WLD;



interface



uses

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

Dialogs, StdCtrls, CPort, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB,

Mask;



type

TForm1 = class(TForm)

ComPort1: TComPort;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label6: TLabel;

Label7: TLabel;

Timer1: TTimer;

Label8: TLabel;

Label9: TLabel;

Timer2: TTimer;

Label10: TLabel;

ComPort2: TComPort;

Button4: TButton;

Button5: TButton;

Label11: TLabel;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DS: TDataSource;

Button6: TButton;

Button7: TButton;

GroupBox1: TGroupBox;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Label12: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Label13: TLabel;

Label14: TLabel;

Button8: TButton;

Button9: TButton;

Edit3: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure close_prog(Sender: TObject; var Action: TCloseAction);

procedure Timer2Timer(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure receive(Sender: TObject; Count: Integer);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Edit3Change(Sender: TObject);



private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

data,data1,kirim1,ANWAR,balas: string;

const ENTER:char=#$0D;

CONST KIRIM: char=#$1A;





implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

comport1.ShowSetupDialog;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

if button2.Caption='START CONNECTION' then

begin

button2.Caption:='STOP CONNECTION';

comport1.Open;

comport2.Open;

timer1.Enabled:=true;

end

else

begin

button2.Caption:='START CONNECTION';

timer1.Enabled:=false;

comport2.Close;

comport1.Close;

end

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

comport1.ReadStr(data,3);

label2.Caption:=data;

if strtoint(data)60) and (strtoint(data)83 then

begin

label5.Caption:='Bahaya';

end;

label7.Caption:=timetostr(now);

label9.Caption:=datetostr(now);

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

comport1.Close;

timer1.Enabled:=false;

timer2.Enabled:=true;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

ANWAR:='081288807034';

timer1.Enabled:=false;

timer2.Enabled:=false;

end;



procedure TForm1.close_prog(Sender: TObject; var Action: TCloseAction);

begin

comport1.Close;

timer1.Enabled:=false;

timer2.Enabled:=true;

end;



procedure TForm1.Timer2Timer(Sender: TObject);

begin

if timer1.Enabled = false then

begin

Form1.AlphaBlendValue:=Form1.AlphaBlendValue-1;

end;

if Form1.AlphaBlendValue = 0 then begin

application.Terminate;

end;

end;



procedure TForm1.Button4Click(Sender: TObject);

begin

comport2.ShowSetupDialog;

end;



procedure TForm1.Button5Click(Sender: TObject);

var wait,r:string;

begin

comport2.Open;

balas:='';

kirim1:='AT'+ENTER+'AT+CMGF=1'+ENTER+'AT+CMGS='+AN WAR+ENTER+'WARNING BAHAYA .......BANJIR AKAN MELANDA WILYAH JAKARTA 1 JAM LAGI WKWKWKWKWKWKWKWKWK'+KIRIM;

comport2.WriteStr(KIRIM1);

label11.Caption:=balas;

end;



procedure TForm1.receive(Sender: TObject; Count: Integer);

var rx:string;

begin

comport2.ReadStr(rx,1);

balas:=balas+rx;

end;





procedure TForm1.Button6Click(Sender: TObject);

var data:variant;

s:string;

begin

dbnavigator1.BtnClick(nbnext);

s:=adotable1.Fields[2].AsString;

label11.Caption:=s;

end;



procedure TForm1.Button7Click(Sender: TObject);

var s:string;

begin

dbnavigator1.BtnClick(nbprior);

s:=adotable1.Fields[2].AsString;

label11.Caption:=s;

end;



procedure TForm1.Button8Click(Sender: TObject);

begin

adotable1.Append;

adotable1.FieldByName('Nama').AsString:=edit1.Text ;

adotable1.FieldByName('NoTelp').AsString:=edit2.Te xt;

if MessageDlg('Tambahkan Kontak?',mtConfirmation,mbOKCancel,0)= mrok then

begin

adotable1.Post;

end

else

adotable1.Cancel;

end;



procedure TForm1.Button9Click(Sender: TObject);

begin

adotable1.Edit;

if MessageDlg('Yakin Hapus Kontak '+adotable1.Fields[1].AsString+' ?',mtConfirmation,mbOKCancel,0)= mrok

then

begin

adotable1.Delete;

end

else

adotable1.Cancel;

end;





procedure TForm1.Edit3Change(Sender: TObject);

begin

adotable1.Locate('Nama',edit3.Text,[]);

end;



end.











:melon:http://static.kaskus.us/images/smilies/bingungs.gifhttp://static.kaskus.us/images/smilies/bingungs.gifhttp://static.kaskus.us/images/smilies/bingungs.gifhttp://static.kaskus.us/images/smilies/bingungs.gif:tanya: shttp://static.kaskus.us/images/smilies/bingungs.gifhttp://static.kaskus.us/images/smilies/bingungs.gifhttp://static.kaskus.us/images/smilies/bingungs.gifhttp://static.kaskus.us/images/smilies/bingungs.gif

</div>