Konu: TURKCELL İLE SMS
Turkcell den sms göndermek istiyorum.
Bununla ilgili kod örneği varmı ?
Teşekkürler.
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
Turkcell den sms göndermek istiyorum.
Bununla ilgili kod örneği varmı ?
Teşekkürler.
ben yaptım.
Turatel diye bir firma var. Turkcell altyapısını kullanıyor.
onlara sms için data gönderiyorum
c# da yazdım. Fox un içinden direk çağırabiliyorum.
işine yararsa yardım ederim
Yardımcı olursan sevinirim.
Mail adresim : birlesik35@hotmail.com
SANA BUGUN C# SOURCE GONDERECEĞİM
tm. bekliyorum.
illa tcell ilemi olmak zorunda ? ben baska bir firma ile bu calismayi yaptim gayette iyi calisiyor
*Form1.SendSms() Method kodlarim
If _vfp.StartMode = 0
m.gcData = [D:\soykan\mysoftware\depomatik\data]
Endif
Select * From Addbs(m.gcData)+[sms] Where ;
firma=This.cSmsFirma Into Cursor crsSMS Readwrite NOFILTER
Local lcUrl,lcUsrName,lcPasswd,lcPageMulti,lcPageSingle,lcOriginator
Local lcSendReport,lcReportPage,lcCreditPage,lcFirma
Local lcOrigXml,lcReportXml,lcCreditXml,lcMultiXml,lcSingleXml,lcSendXml
*-m.lcUsrName = Alltrim(crsSMS.UsrName)
*-m.lcPasswd = Alltrim(crsSMS.Passwd)
m.lcPageMulti = Alltrim(crsSMS.PageMulti)
*- used
m.lcPageSingle = Alltrim(crsSMS.PageSingle)
*-m.lcOriginator =Alltrim(crsSMS.Originator)
m.lcSendReport = Alltrim(crsSMS.SendReport)
m.lcReportPage = Alltrim(crsSMS.ReportPage)
m.lcCreditPage = Alltrim(crsSMS.CreditPage)
m.lcFirma = Alltrim(crsSMS.firma)
m.lcOrigXml = Alltrim(crsSMS.OrigXml)
m.lcReportXml = Alltrim(crsSMS.ReportXml)
m.lcCreditXml = Alltrim(crsSMS.CreditXml)
m.lcMultiXml = Alltrim(crsSMS.MultiXml)
m.lcSingleXml = Alltrim(crsSMS.SingleXml)
m.lcSendXml = Alltrim(crsSMS.SendXml)
Local lcNumbers,lcMessage
lcNumbers = Alltrim(This.txtRecipents.Value)
lcMessage = Alltrim(This.edtMessage.Value)
lcMessage = Chrtran(This.edtMessage.Value,"şığüöçŞİĞÜÖÇ","siguocSIGUOC")
lcMessage = Chrtran(This.edtMessage.Value,"&","&")
lcMessage = Chrtran(This.edtMessage.Value,"&"," ve ")
lcMessage = Chrtran(This.edtMessage.Value,"<","<")
lcMessage = Chrtran(This.edtMessage.Value,">",">")
lcMessage = Chrtran(This.edtMessage.Value,"'","'")
lcMessage = Chrtran(This.edtMessage.Value,'""',""")
lcMessage = Left(This.edtMessage.Value,160) && sadece 160 karakter gider
*-WAIT WINDOW lcMessage
Update crsSMS Set SingleXml = Strtran(SingleXml,"cusername",This.cSmsUsrName);
WHERE 'cusername' $ SingleXml
Update crsSMS Set SingleXml = Strtran(SingleXml,"cpassword",This.cSmsUsrPwd);
WHERE 'cpassword' $ SingleXml
Update crsSMS Set SingleXml = Strtran(SingleXml,"coriginator",This.cSmsOriginator);
WHERE 'coriginator' $ SingleXml
Update crsSMS Set SingleXml = Strtran(SingleXml,"csenddate","");
WHERE 'csenddate' $ SingleXml
Update crsSMS Set SingleXml = Strtran(SingleXml,"cendsenddate","");
WHERE 'cendsenddate' $ SingleXml
Update crsSMS Set SingleXml = Strtran(SingleXml,"cmesaj",m.lcMessage);
WHERE 'cmesaj' $ SingleXml
Update crsSMS Set SingleXml = Strtran(SingleXml,"cnumbers",m.lcNumbers);
WHERE 'cnumbers' $ SingleXml
If Set("Safety")="ON"
Set Safety Off
Endif
Local lcSingleXml
lcSingleXml= "FreeSMS.Xml" &&Fullpath("D:\soykan\mysoftware\depomatik\chbakiye_single.xml")
Strtofile(crsSMS.SingleXml,m.lcSingleXml)
*-MODIFY COMMAND (m.lcSingleXml)
Local httpOb
Try
Wait Window Nowait "SMS Gönderiliyor......"
httpOb = Createobject("MSXML2.ServerXMLHTTP")
httpOb.Open("POST", m.lcPageSingle, .F.)
httpOb.setRequestHeader("Content-Type","text/xml;charset=UTF-8")
httpOb.Send(Filetostr(m.lcSingleXml))
Wait Clear
Catch
Messagebox("Oluşan Hata : " + httpOb.responseText, 64,"Sms Gönderim Hatası")
Endtry
*- response detection
Local lcReportMsg,lcMessageCaption
lcReportMsg = httpOb.responseText
lcMessageCaption="Soyk@nSoft SMS Sender"
*- responses for TurkiyeSMS
Do Case
Case m.lcFirma ="TURKIYESMS"
Do Case
Case Left(m.lcReportMsg,2)="10"
Messagebox("Mesaj Başarıyla Gönderildi..Mesaj ID: " + m.lcReportMsg +Chr(13)+ ;
"Giden Mesaj Metni..: " + m.lcMessage,64,m.lcMessageCaption)
*- insert log to the log table
If _vfp.StartMode =0
m.gcKullanici = 'DEVELOPER'
Endif
m.LcPcName=Left(Sys(0), Rat("#", Sys(0))-2)
*- insert log to the log table
Insert Into (Addbs(m.gcData)+'smslog') (smsid,tarih,msgtext,firma,username,pcname) ;
Values(m.lcReportMsg,Datetime(),m.lcMessage,Thisform.cSmsFirma,m.gcKullanici,m.LcPcName)
Case Left(m.lcReportMsg,2)="20"
Messagebox("20-Mesaj Metni Boş !",16,m.lcMessageCaption)
Case Left(m.lcReportMsg,2)="30"
Messagebox("30-Kullanıcı Adı/Şifre Hatalı Parammetreleri Kontrol Edin !",16,m.lcMessageCaption)
Case Left(m.lcReportMsg,2)="40"
Messagebox("40-SMS İletilemedi !",16,m.lcMessageCaption)
Case Left(m.lcReportMsg,2)="50"
Messagebox("50- XML Boş ",16,m.lcMessageCaption)
Case Left(m.lcReportMsg,2)="60"
Messagebox("60- Kredi Yetersiz !",16,m.lcMessageCaption)
Case Left(m.lcReportMsg,2)="70"
Messagebox("70- Gönderim Tarihi Mevcut Tarihten Küçük !",16,m.lcMessageCaption)
Case Left(m.lcReportMsg,2)="80"
Messagebox("80- Bitim Tarihi Sistem Tarihinden Küçük !",16,m.lcMessageCaption)
Case Left(m.lcReportMsg,2)="90"
Messagebox("90- Yanlış Originator Seçimi !",16,m.lcMessageCaption)
Endcase
Case m.lcFirma ="MUTLUCELL"
Do Case
Case Left(m.lcReportMsg,1)="$"
Messagebox("Mesaj Başarıyla Gönderildi..Mesaj ID: " + m.lcReportMsg +Chr(13)+ ;
"Giden Mesaj Metni..: " + m.lcMessage,64,m.lcMessageCaption)
*- insert log to the log table
If _vfp.StartMode =0
m.gcKullanici = 'DEVELOPER'
Endif
m.LcPcName=Left(Sys(0), Rat("#", Sys(0))-2)
*- insert log to the log table
Insert Into (Addbs(m.gcData)+'smslog') (smsid,tarih,msgtext,firma,username,pcname) ;
Values(m.lcReportMsg,Datetime(),m.lcMessage,Thisform.cSmsFirma,m.gcKullanici,m.LcPcName)
Case Left(m.lcReportMsg,2)="20"
Messagebox("20-Mesaj Metni Boş Yada Hatalı!",16,m.lcMessageCaption)
Case Left(m.lcReportMsg,2)="21"
Messagebox("21- Originator Hatası !",16,m.lcMessageCaption)
Case Left(m.lcReportMsg,2)="22"
Messagebox("22- Kredi Yetersiz !",16,m.lcMessageCaption)
Case Left(m.lcReportMsg,2)="23"
Messagebox("23-Kullanıcı Adı/Şifre Hatalı Parammetreleri Kontrol Edin !",16,m.lcMessageCaption)
Case Left(m.lcReportMsg,2)="25"
Messagebox("25- SMSC Stopped...Birazdan Yeniden Deneyin!",16,m.lcMessageCaption)
Case Left(m.lcReportMsg,2)="24"
Messagebox("24- Size Ait Başka İşlem Var !",16,m.lcMessageCaption)
Endcase
Case m.lcFirma ="KAYNAKSMS"
Case m.lcFirma ="SPOTINBOX"
Endcase
*-Erase (m.lcSingleXml)
Use In "CrsSms"