Arsip: Help - Problem kirim sms dengan Comport

more 14 years ago
batozai
selamat pagi delphier.....
mohon bantuan para delphier terhadap source aku ini :
var
sPDU,sAT,ss : String;
for i:= 1 to 5 do
begin
sPDU := fsmsConvertText('','','',lsTelp,'','','',sPesan,lpanjangoctet);
sAT := 'AT+CMGS='+IntToStr(lpanjangoctet)+chr(13);
comport.WriteStr(sAT);
comport.WriteStr(sPDU);
comport.WriteStr(chr(26));
comport.ReadStr(ss,100);
mmo1.Lines.Add(#13);
mmo1.Lines.Add(ss);
end;
disini aku berusaha mengirim sms dengan modem gsm mengunakan komunikasi com dengan AT Command. hp yang aku gunakan adalah nokia 3110c. komponen yang aku gunakan adalah TComPort by Dejan Crnila versi 4 http://sourceforge.net/projects/comport/
permasalahan Tcomport yang terjadi :
- ketika mengirim sms, sms hanya terkirim sejumlah 2 kali bukan 5 kali ( total perulangan)
- kadang2 sms tidak terkirim sama sekali
pengunaan Tcomport dilakukan pada windows 7 dan windows xp
perbandingan :
karena menggunakan Tcomport tidak sukses aku gunakam componen activex mscomm32.ocx
hasilnya semua proses diatas berhasil. sms dikirm sejumlah perulangan.
pengujian dengan mscomm32.ocx dilakukan di windows xp.
permasalahannya sekarang, mscomm32.ocx tidak bisa di install di windows 7.
so distribusi aplikasi sangat susah.
asumsi disini fungsi fsmsConvertText() berfungsi dengan baik menggenerate kode PDU.
mohon bantuan para master2 delphi, adakah kesalahan dari source code diatas ?
atau ada bagian yang perlu ditambahkan, agar pengiriman sms berhasil semua. rencana digunakan untuk mengirim sms masal
terima kasih banyak atas bantuan para delphier
semoga Tuhan membalas kebaikan para delphier :)
more 14 years ago
mas_kofa
persis spt yang aku alami...waktu pake ComPort sering gagal kirim sms (tanpa error message)
lalu aku ganti ouxcom.....beres bisa kirim massal sms......

more 14 years ago
batozai
thanks mas kofa.....
kalo boleh tahu komp auxcom itu berbayar tidak ???
dima kira2 linknya
matur suwun
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Monitoring Proses Printing
by jimbot in Tip n Trik Pemrograman more 16 years ago - Tanya SQLite
by w4h703 in Tip n Trik Pemrograman more 17 years ago - jumlah komponen maksimal dalam sebuah project
by d4mnf1y32 in Hal umum tentang Pascal Indonesia more 12 years ago - Edit Firebird lewat dbgrid gagal ??????
by delphi_warrior in FireBird more 16 years ago - Tentang String Grids???
by akudana in Hal umum tentang Pascal Indonesia more 15 years ago - resize image
by sulth4n in Multimedia & Graphic Enhancement more 18 years ago - scrollbar jadi bunder
by Cip_rud in Form Enhancement & Graphical Controls more 16 years ago - Upload File di Webservice ?
by purnama in Network, Files, I/O & System more 18 years ago - Gempa bumi, MasyaAllah.. mereka mengecam Islam dan Ina
by DelphiExpert in Hal umum tentang Pascal Indonesia more 18 years ago - menghentikan proses looping
by kabuki_enemy in Tip n Trik Pemrograman more 17 years ago