RizaA

Mas Aryo program SMSnya saya tambahi sedikt untuk membaca sms dari tabel lain seperti ini:
adoquery1.sql.text:='select a.pengirim, b.kode,b.deskripsi from SMS as a inner join datane as b;
while not adoquery1.eof do begin
txtnomor.text:=ubahkenomor(l.caption);
txtpesan.text:=adoquery1.fields[2].asstring;
trus klo dikirim ada pesan error list index out of bound(2) padahal udah bisa terkirim keHP tujuan tolong bantuannya, soalna buat referensi skripsiku untuk balas sms secara otomatis bls ke sastr_00@yahoo.com pleeeeeeeeaze,
thanks

Aryo Sanjaya

Halo agung,

Itu karena komponen TXComm belum kamu install.
- Download ini dulu:
http://www.bengkelprogram.com/download-ouxcom.zip

- Extract di suatu directory, misalnya C:ouxcom
- Buka Delphi
- Open file .dpk dari c:ouxcom
- Tekan install
- Masuk menu Tools > Environment Options > Library
- Tambahkan direktori c:ouxcom pada daftar Library Path
- Library sudah terinstall

Itu langkah-langkah install komponennya, kalo ada masalah lain, silakan dilaporkan lagi :)

Lutfi

Oh ya sekalian tambahin fungsi nerima SMS otomatis, pake

AT CNMI=2,2,2,1,1

kalo' ada sms yang masuk, modem akan kirim response

CMT : ,index
PDU

jadi inbox HP tidak akan penuh, karena semua sms langsung dikirim ke kompi.

redcode

mas aku masih belajar nih
mau tanya aku kemaren gagal install component variant, trus aku pake commport.
udah bisa jalan sih tapi function untuk koneksi yang aku buat masih blon berhasil.
Apa commport itu hanya perlu pada 1(satu) form aja atau bisa digunakan 2 atau lebih comport?
untuk form kedua tidak masalah tapi setelah form ke 3 baru bermasalah.

tolong ya mas?
kalau bisa saya minta artikel yang menjelaskan fungsi2 dan procedure program mas Aryo buat belajar.

Krishy

MsComm nya kadang kok gak bisa di install yho mas, dari pada pusing trus aku pake TOxygenSMS aja.kalo boleh tau knapa tuh mas

Aryo Sanjaya

Halo Tri,

Misalnya digunakan secara web based, aku rasa tidak bisa langsung. Misalnya di PHP/ASP, sangat riskan untuk diterapkan mengakses hardware secara langsung.
Dengan ASP kita bisa menciptakan ActiveX untuk mengakses COM, tapi menurutku sangat riskan.

Salah satu yang bisa dilakukan adalah dengan melakukan bridging.

Misalnya ada request untuk mengirim SMS dari web, maka request tersebut oleh PHP/ASP disimpan ke database/file.

Selanjutnya kamu bikin aplikasi tambahan, misalnya dengan Delphi. Aplikasi tersebut dijalankan di server, dan selalu mengecek isi file/database. Kalau ada request masuk, maka SMS tersebut dikirimkan.

Cukup simple kan, menurutku sih

Untuk sender ID, setauku itu harus sepengetahuan operator seluler yang bersangkutan, jadi harus ada ijin.

Sebenernya kita kan berlangganan SMS kepada operator tersebut. Nah, kalo ingin sender ID berupa nama, kita bisa pesan pada operator yang bersangkutan. Harus bayar, mestinya

ninda

salam kenal mas aryo,
saya skrng coba perintah at+cind dan hasilnya saya tampilkan di form !
nah, tetapi saya ingin menampilkan informasi tadi setiap 1 detik !
jadi saya bikin looping berdasarkan timer ! nah saya bingung mas, gimana caranya ?
ada contoh nya ga mas?

thanks,

rinnoA

to mas lutfi
saya pemula untuk delphi saya mo nanya tentang delphi
aq mo naya ada peringatan ‘ list index out of bound (2)’ itu terjadi karena pada n pada pada tombol cek sms aq kasih skrip:

procedure TfUtama.SpeedButton6Click(Sender: TObject); {pada tombol Cek SMS}
var i:integer;
l:TListItem;
a:string;
begin
if not Konek then begin
ShowMessage(’Belum terkoneksi ke HP’);
exit;
end;
Timer1.Enabled := False;
lblSMS.Caption := ‘’;
ListSMS.Items.Clear;
SpeedButton6.Enabled := false;
CekSMS;
BacaSMS;
FilterDisplay;
for i := 0 to lvSMS.Items.Count - 1 do
lvSMS.Items[i].Selected := True;
PindahSMS;
while ADOQuery1.Active do
ADOQuery1.Close;
ADOQuery1.SQL.Text:=’Select a.pengirim,b.kode,b.deskripsi from SMS a ‘+
‘ inner join datane b on a.isi=b.kode where b.kode=a.isi ‘;
ADOQuery1.Open;
while not ADOQuery1.Eof do begin
l:=ListSMS.Items.Add;
l.Caption:=ADOQuery1.FieldValues[’Pengirim’];
while ADOQuery1.Active do
ADOQuery1.Close;
ADOQuery1.SQL.Text:=’Select a.pengirim,b.kode,b.deskripsi from SMS a ‘+
‘ inner join datane b on a.isi=b.kode where b.kode=a.isi ‘;
ADOQuery1.Open;
while not ADOQuery1.Eof do begin
a:=ADOQuery1.Fields[2].AsString;
ADOQuery1.Next;
end;
ADOQuery1.Next;
txtNomor.Text:=rubahKeNomor(l.Caption);
txtPesan.Text:=a;
{TabSheet4.Show;
txtPesan.SetFocus;}
end;
SpeedButton6.Enabled := True;
Timer1.Enabled := True;
Timer1.Enabled:=False;
if (KirimSMS(txtNomor.Text,txtPesan.Text)) then
begin
ShowMessage(’data terkirim’+txtNomor.Text );
end
else
begin
ShowMessage(’tidak terkirim’+txtNomor.Text);
end;
FilterDisplay;
Timer1.Enabled:=true;
end;

aq tambahi yang bercetak tebal n miring

selama itu belum terjadi error, setelah aq klik kirim sms

procedure TfUtama.SpeedButton7Click(Sender: TObject);
var c : string;
i : integer;
{a,
l: TListItem;}
begin
if txtNomor.Text = ‘’ then begin
ShowMessage(’Nomor harus diisikan’);
exit;
end;
if not Konek then begin
ShowMessage(’Belum terkoneksi ke HP’);
exit;
end;
Timer1.Enabled := False;
c := AnsiReplaceStr(txtNomor.Text, ‘,’, #13#10);
Item.Text := c;

for i := 0 to Item.Count - 1 do begin
c := trim(Item.Strings[i]);
if (KirimSMS(c, txtPesan.Text)) then
begin
ShowMessage(’Pesan sukses dikirim ke ‘ + c);
{l := ListSMS.Items.Add;
l.Caption := rubahKeNama(c);
l.SubItems.Add(DateTimeToStr(Now));
l.SubItems.Add(txtPesan.Text);
l.SubItems.Add(’PC’);
l.SubItems.Add(’Terkirim’);
l.SubItems.Add(’0′);}
{ADOConnection1.Execute(’insert into SMS(Pengirim,Tanggal,Isi,Jenis) values(’
+ QuotedStr(c) + ‘,’
+ QuotedStr(DateTimeToStr(Now)) + ‘,’
+ QuotedStr(copy(txtPesan.Text, 1, 160)) + ‘,’
+ QuotedStr(’Terkirim’) +’)');
ADOQuery1.SQL.Text := ’select max(id) as baru from SMS’;
ADOQuery1.Open;
l.SubItems.Add(ADOQuery1.FieldValues[’baru’]);}
{a := lvSMS.Items.Add;
a.Caption := l.Caption;
a.SubItems := l.SubItems;}

end
else
ShowMessage(’Pesan gagal dikirim ke ‘ + c);
end;
FilterDisplay;
Timer1.Enabled := True;
end;

terjadi error yang disorot pada Timer1.Enabled := True; tapi setelah aq cek ternyata pada FilterDisplay; dan ini procedure filterdisplaynya

procedure TfUtama.FilterDisplay();
var
i: integer;
a,
l: TListItem;
begin
lvSMS.Items.Clear;
for i := 0 to ListSMS.Items.Count - 1 do begin
l := ListSMS.Items.Item[i];
if ((l.SubItems[2] = ‘PC’) and (LokasiPC in LokasiDipilih)) or
((l.SubItems[2] = ‘Phone’) and (LokasiHP in LokasiDipilih)) then
if (l.SubItems[3] = arJenisSMS[Ord(JenisSMS)]) or (JenisSMS = jSemua) then
begin
a := lvSMS.Items.Add;
a.Caption := rubahKeNama(l.Caption);
a.SubItems := l.SubItems;
end;
end;
lbJumlah.Caption := ‘SMS: ‘ + IntToStr(lvSMS.Items.Count);
end;

apa yang salah pada “l.SubItems[2]�

tolong bantuannya klobisa dikasih tau skrip untuk mereplay sms otomatis

pleeeeeeeeeeaza
kirim ke sastr_00@yahoo.com

asep

kalo koneksi lewat modem bisa ga trs via tlp rumah media sms nya makasiah

kriss

buat mas ipank minta tolong kirim file Toxgen yg dah dicrack yach soalnya aku butuh banget buat skripsi. makasih sebelumnya.salam kenal.
emailku : antidinus@public.dinus.ac.id

Mengisi Komentar