rinnoA

to mas lutfi
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

eka

klo yg versi php ada tidak??

Aryo:

Aku nemu yang ini:

<?php $number="+123456789"; $message="Hello World"; if ($fh=fopen("com1:","w+")) { /* 'mode com1: BAUD=9600 PARITY=N data=8 stop=1 xon=off'; */ fputs($fh,"\rATZ\r"); sleep(1); fputs($fh,"AT+CMGF=1\r"); sleep(1); fputs($fh,"AT+CMGS=\"+{$number}\"\r"); sleep(1); fputs($fh,"{$message}\x1A\r"); fclose($fh); } else { echo "Failed to open port."; } ?>

Itu hanya berlaku untuk hape yang support Text Mode.
Bagi yang tidak support, masih tetap menggunakan cara yang sama, namun data yang dikirimkan harus berupa PDU.

supry vallano

aku mau nanya bisa nggak ya ngrim gambar dari komputer ke handphone. klo bisa ajarin dong mungkin ada situs nya juga. untuk balasan nya thank.s

Aryo:

Banyak sekali caranya, misalnya menggunakan aplikasi pihak ketiga, misalnya Oxygen Phone Manager: http://www.oxygensoftware.com/en/download

Atau aplikasi bawaan dari HP, misalnya Nokia PC Suite, Sony Ericsson File Manager, Siemens Data Suite. Biasanya bawaan dari waktu beli HP itu.

Atau fasilitas dari driver koneksi kamu, misalnya kamu pake Bluetooth, maka setelah driver terinstall dengan baik, akan ada fitur untuk mengirim file dari PC ke HP.

ardi

mas buat siemens m55 ga bisa ya?ada gak selain mfbus yg bisa buat siemens

Aryo:

FBUS cuman support Nokia

dindn

mas, ada sending sms menggunakan .net? Please... Gimana cara membaca port dari hp yang terkoneksi ke hp

Aryo:

Wah, untuk dot net masih belum bikin tuh. Tapi pada prinsipnya sama dengan aplikasi dari Delphi ini, asal saja kamu sudah bisa menggunakan komponen MS-Comm di dot net itu. Proses bacanya adalah dengan menerima data dari buffer MS-Comm itu. Silakan merefer ke artikel ini: http://msdn.microsoft.com/msdnmag/issues/02/10/netserialcomm/

brain

ko pas di run custom messagebox creator missing???

Aryo:

Yah, berarti belum semua ActiveX yang disertakan kamu install. Jalankan saja file .bat yang disertakan, agar dia otomatis menginstall beberapa file .ocx/.dll yang dibutuhkan aplikasi.

ine

ikutan nimbrung donk...

Aryo:

yoi, dipersilakan

Benny AD

Wuih, euih cakep euy! Bagi dong software nya kalo udah jadi! Kita butuh banget nih

Aryo:

Itu kan udah jadi toh Ben, tapi masih menggunakan komponen FBUS, yang notabene cuma support hape Nokia.
Sedang diusahakan untuk membuat yang versi AT Command, sehingga lebih global hape yang disupportnya.

Brampi

Mas-mas yg pintar2 saya mau nanya tentang program SMS. apakah utk Nokia 8210 atau 3310 bisa support AT command ? mhn pnjlsannya. atau utk hp yg model lama apa saja yg bisa support AT Command? makasih atas pencerahannya salam, BRG

Aryo:

Aku gak yakin yang 8210, tapi 3310 belum support AT Command. Nampaknya 8210 juga belum tuh.
Untuk hape lama, hmm, gunakan saja Siemens C35i, lama banget tuh, tapi lumayan handal untuk coba-coba SMS-an.
Kalo ada yang lebih tinggi lagi, misalnya Siemens ME45 atau yang laen, tentu lebih bagus lagi.

maulid heryanto

maaf nih aku bingung mengenai SMS SAR,aku dah coba tapi untuk koneksi ke HP gagal terus,gimana yah caranya:apa kabel datanya harus konektor com,saya coba pake USB gagal terus,apa harus pake virtual ????gimana caranya please tolongin aku perlu banget

Aryo:

Sudah aku jawab pertanyaan kamu ini yang di:
http://bengkelprogram.com/data-artikel-116.0.bps

Mengisi Komentar