SMS gönderme uygulaması

[7805]

s.a  arkadaşlar kurumsal işletmelerde  genelde  toplu sms  veya sadece tek kişiye  özel sms  gönderme işlemleri  yapılıyor  bende böyle  bir  uygulama  yapmak istiyorum acaba nasıl yaparız  eskiden yaptım ama  unuttum ..  hatırladığım kadarı ile  sms gönderme için servis sağlayıcı şirketlerin her programlama  diline uygun modül tarzı şeyleri  vardı onu delphiye entegre edip yapılıyordu

[hi_selamlar]

(31-01-2023, Saat: 22:45)7805 Adlı Kullanıcıdan Alıntı: s.a  arkadaşlar kurumsal işletmelerde  genelde  toplu sms  veya sadece tek kişiye  özel sms  gönderme işlemleri  yapılıyor  bende böyle  bir  uygulama  yapmak istiyorum acaba nasıl yaparız  eskiden yaptım ama  unuttum ..  hatırladığım kadarı ile  sms gönderme için servis sağlayıcı şirketlerin her programlama  diline uygun modül tarzı şeyleri  vardı onu delphiye entegre edip yapılıyordu

Merhabalar,

Link'lerden başlayabilirsiniz.

https://www.delphican.com/showthread.php...407&page=2
https://www.delphican.com/showthread.php?tid=652
https://www.delphican.com/showthread.php?tid=6349
https://www.delphican.com/showthread.php?tid=4631

Kolay gelsin.

[ahmet6513]

sms aldığınız firmaya göre apileri değişir

delphi destekleri çoğu firmada mevcut örnek gelen api üzerinden firmanın isteğine göre veri post etmen yeterli

web servis yada rest yapıları olabilir

[7805]

(01-02-2023, Saat: 14:55)ahmet6513 Adlı Kullanıcıdan Alıntı: sms aldığınız firmaya göre apileri değişir

delphi destekleri çoğu firmada mevcut örnek gelen api üzerinden firmanın isteğine göre veri post etmen yeterli

web servis yada rest yapıları olabilir

acaba hangi firmanın apı lerini tavsiye edersiniz eski konuları inceledim hatta birkaç örnek uygulama indirdim ama açamadım ??

[hi_selamlar]

(01-02-2023, Saat: 19:50)7805 Adlı Kullanıcıdan Alıntı:

(01-02-2023, Saat: 14:55)ahmet6513 Adlı Kullanıcıdan Alıntı: sms aldığınız firmaya göre apileri değişir

delphi destekleri çoğu firmada mevcut örnek gelen api üzerinden firmanın isteğine göre veri post etmen yeterli

web servis yada rest yapıları olabilir

acaba hangi  firmanın apı lerini tavsiye  edersiniz  eski konuları inceledim hatta birkaç örnek uygulama indirdim ama açamadım ??

Merhabalar,

Hemen hemen tüm SMS firmaları gönderim mantıkları aynıdır. Get/XML/Json


Bu işlemden önce DEMO hesap açıp kullanıcı adı ve şifre almanız gerekli.
https://www.iletimerkezi.com/panel/auth/signup

Örnek;

function xmlpost(url, postdata: string): String;
var
IdHTTP1: TIdHTTP;
str1:TStringList;
begin
 try
   try
     IdHTTP1:=TIdHTTP.Create(nil);
     str1:=TStringList.Create;
     str1.Text:=postdata;
     result:=IdHTTP1.Post(url, str1);
   except
   end;
 finally
   FreeAndNil(str1);
   FreeAndNil(IdHTTP1);
 end;
end;

Procedure Tfrmsmsgonder.Send;
there is
  xsml:String;
  user, pass, message, numbers, title: string;
  donenMesaj : String;
begin
 xsml:= '<request>'+
   '<authentication>'+
'<username>'+SMSKullaniciAdiniz+'</username>'+
'<password>'+SMSSifreniz+'</password>'+
   '</authentication>'+
   '<order>'+
'<sender>'+SMSMesajBasliginiz+'</sender>'+
'<sendDateTime></sendDateTime>'+
'<message><text><![CDATA['+SMSGonderilecekMesajinizinIcerigi+']]></text>'+
'<receipts>'+
'<number>'+SMSGonderilecekGSMNumarası+'</number>'+
'</receipents>'+
'</message>'+
       '</order>'+
     '</request>';

 donenMesaj:=xmlpost('http://api.iletimerkezi.com/v1/send-sms',xsml);

 ShowMessage(donenMesaj); // Donen mesaj içeriğini görmeniz için 
end;

https://www.a2psmsapi.com/en/samples/delphi-sms-send/


Kolay gelsin.

[ozcanm]

(02-02-2023, Saat: 09:00)hi_selamlar Adlı Kullanıcıdan Alıntı:

(01-02-2023, Saat: 19:50)7805 Adlı Kullanıcıdan Alıntı: acaba hangi  firmanın apı lerini tavsiye  edersiniz  eski konuları inceledim hatta birkaç örnek uygulama indirdim ama açamadım ??

Merhabalar,

Hemen hemen tüm SMS firmaları gönderim mantıkları aynıdır. Get/XML/Json


Bu işlemden önce DEMO hesap açıp kullanıcı adı ve şifre almanız gerekli.
https://www.iletimerkezi.com/panel/auth/signup

Örnek;

function xmlpost(url, postdata: string): String;
there is
IdHTTP1: TIdHTTP;
str1:TStringList;
begin
 try
   try
     IdHTTP1:=TIdHTTP.Create(nil);
     str1:=TStringList.Create;
     str1.Text:=postdata;
     result:=IdHTTP1.Post(url, str1);
   except
   end;
 finally
   FreeAndNil(str1);
   FreeAndNil(IdHTTP1);
 end;
end;

Procedure Tfrmsmsgonder.Send;
there is
  xsml:String;
  user, pass, message, numbers, title: string;
  donenMesaj : String;
begin
 xsml:= '<request>'+
   '<authentication>'+
'<username>'+SMSKullaniciAdiniz+'</username>'+
'<password>'+SMSSifreniz+'</password>'+
   '</authentication>'+
   '<order>'+
'<sender>'+SMSMesajBasliginiz+'</sender>'+
'<sendDateTime></sendDateTime>'+
'<message><text><![CDATA['+SMSGonderilecekMesajinizinIcerigi+']]></text>'+
'<receipts>'+
'<number>'+SMSGonderilecekGSMNumarası+'</number>'+
'</receipents>'+
'</message>'+
       '</order>'+
     '</request>';

 donenMesaj:=xmlpost('http://api.iletimerkezi.com/v1/send-sms',xsml);

 ShowMessage(donenMesaj); // Donen mesaj içeriğini görmeniz için 
end;

https://www.a2psmsapi.com/en/samples/delphi-sms-send/


Kolay gelsin.

Merhaba Hocam,

"Var" yerine "there is" kullanımı hangi sürümde var acaba?

   

[hi_selamlar]

(02-02-2023, Saat: 09:50)ozcanm Adlı Kullanıcıdan Alıntı:

(02-02-2023, Saat: 09:00)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,

Hemen hemen tüm SMS firmaları gönderim mantıkları aynıdır. Get/XML/Json


Bu işlemden önce DEMO hesap açıp kullanıcı adı ve şifre almanız gerekli.
https://www.iletimerkezi.com/panel/auth/signup

Örnek;

function xmlpost(url, postdata: string): String;
there is
IdHTTP1: TIdHTTP;
str1:TStringList;
begin
 try
   try
     IdHTTP1:=TIdHTTP.Create(nil);
     str1:=TStringList.Create;
     str1.Text:=postdata;
     result:=IdHTTP1.Post(url, str1);
   except
   end;
 finally
   FreeAndNil(str1);
   FreeAndNil(IdHTTP1);
 end;
end;

Procedure Tfrmsmsgonder.Send;
there is
  xsml:String;
  user, pass, message, numbers, title: string;
  donenMesaj : String;
begin
 xsml:= '<request>'+
   '<authentication>'+
'<username>'+SMSKullaniciAdiniz+'</username>'+
'<password>'+SMSSifreniz+'</password>'+
   '</authentication>'+
   '<order>'+
'<sender>'+SMSMesajBasliginiz+'</sender>'+
'<sendDateTime></sendDateTime>'+
'<message><text><![CDATA['+SMSGonderilecekMesajinizinIcerigi+']]></text>'+
'<receipts>'+
'<number>'+SMSGonderilecekGSMNumarası+'</number>'+
'</receipents>'+
'</message>'+
       '</order>'+
     '</request>';

 donenMesaj:=xmlpost('http://api.iletimerkezi.com/v1/send-sms',xsml);

 ShowMessage(donenMesaj); // Donen mesaj içeriğini görmeniz için 
end;

https://www.a2psmsapi.com/en/samples/delphi-sms-send/


Kolay gelsin.

Merhaba Hocam,

"Var" yerine "there is" kullanımı hangi sürümde var acaba?

Merhaba,

Hiç bir sürümde mevcut değil evet.
Uyarı için teşekkürler. Düzeltme yapıldı.

Kolay gelsin.

[elixir84]

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,IdHTTP;

type
 TForm1 = class(TForm)
   Label1: TLabel;
   edttelefon: TEdit;
   edtmesaj: TMemo;
   btngonder: TButton;
   Label2: TLabel;
   edtkulladi: TEdit;
   edtsifre: TEdit;
   Label3: TLabel;
   edtbaslik: TEdit;
   Label4: TLabel;
   btnkontrol: TButton;
   procedure btngonderClick(Sender: TObject);
   procedure btnkontrolClick(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

function xmlget(url: string): String;
var IdHTTP1: TIdHTTP;
begin
try
IdHTTP1:=TIdHTTP.Create(nil);
IdHTTP1.Disconnect;
result:=IdHTTP1.get(url);
finally
FreeAndNil(IdHTTP1);
end;
end;

function trtoeng(deger: string): string;
begin
deger:=StringReplace(deger,'ı','i',[rfReplaceAll]);
deger:=StringReplace(deger,'İ','I',[rfReplaceAll]);

deger:=StringReplace(deger,'ş','s',[rfReplaceAll]);
deger:=StringReplace(deger,'Ş','S',[rfReplaceAll]);

deger:=StringReplace(deger,'ğ','g',[rfReplaceAll]);
deger:=StringReplace(deger,'Ğ','G',[rfReplaceAll]);

deger:=StringReplace(deger,'ç','c',[rfReplaceAll]);
deger:=StringReplace(deger,'Ç','C',[rfReplaceAll]);

deger:=StringReplace(deger,'ü','u',[rfReplaceAll]);
deger:=StringReplace(deger,'Ü','U',[rfReplaceAll]);

deger:=StringReplace(deger,'ö','o',[rfReplaceAll]);
deger:=StringReplace(deger,'Ö','O',[rfReplaceAll]);
Result:=deger;
end;

procedure TForm1.btngonderClick(Sender: TObject);
var
url,sonuc:string;
begin
url:='http://www.goldmesaj.com.tr/api/v1/SendSMS?';
url:=url+'username='+edtkulladi.text+'&password='+edtsifre.text+'&alfanumerik='+StringReplace(edtbaslik.text,' ','%20',[rfReplaceAll,rfIgnoreCase])+'&gsm='+edttelefon.text+'&mesaj='+trtoeng(edtmesaj.Text);
url:=StringReplace(url, ' ', '%20',[rfReplaceAll, rfIgnoreCase]);
sonuc:=xmlget(url);
with Application do
 begin
   NormalizeTopMosts;
   MessageBox(pwidechar(widestring(sonuc)), 'Sms Gönder', MB_OK);    // [smbOK]
   RestoreTopMosts;
 end;
end;

procedure TForm1.btnkontrolClick(Sender: TObject);
var
url,sonuc:string;
begin
url:='http://www.goldmesaj.com.tr/api/v1/Kredi?username='+edtkulladi.text+'&password='+edtsifre.text;
sonuc:=xmlget(url);
with Application do
 begin
   NormalizeTopMosts;
   MessageBox(pwidechar(widestring(sonuc)), 'Kredi', MB_OK);    // [smbOK]
   RestoreTopMosts;
 end;
end;

end.

Kullanıcı adı: GOLD
Şifre: 123GOLD123
ALFENUMERİK:TEST
https://www.goldmesaj.com.tr/
http://apiv1.goldmesaj.net/Help

[RAD Coder]

Rest API ile daha basit bir şekilde kullanılabilir.

   

[ahmet6513]

(01-02-2023, Saat: 19:50)7805 Adlı Kullanıcıdan Alıntı:

(01-02-2023, Saat: 14:55)ahmet6513 Adlı Kullanıcıdan Alıntı: sms aldığınız firmaya göre apileri değişir

delphi destekleri çoğu firmada mevcut örnek gelen api üzerinden firmanın isteğine göre veri post etmen yeterli

web servis yada rest yapıları olabilir

acaba hangi  firmanın apı lerini tavsiye  edersiniz  eski konuları inceledim hatta birkaç örnek uygulama indirdim ama açamadım ??

kullandığım kod aşağıda incelemek istersen 

iletisimmakinesi.com ben bu firmaya entegre etmiştim ama arkadaşların bahsettiği gibi geneli web servis yada rest yapıdır. işlemi yapan function HRM_SMS_Gonder web servis yada rest api kullanmadıysan ondan biraz karışık gelmiştir. en güzeli bir firma var ise delphi örnek kodlarını isteyin oradaki yapıya göre kodlamanızı düzeltin.

takıldığınız yer olursa sorarsınız. çok karmaşık bir işlem değil


 

phoneNumbers:='['+Fat_QTel.AsString+']';
        originatorId:=IntToStr(integer(SMSFIRMA.Items.Objects[SMSFIRMA.ItemIndex]));
       url:='https://live.iletisimmakinesi.com/api/SMSGatewayWS/functions/sendSMS';
       str := TStringList.Create;
       str.Clear;
       str.Add('token='+token_no);
       str.Add('phoneNumbers='+phoneNumbers);
       str.Add('templateText='+Fat_QMesaj.AsString);
       str.Add('originatorId='+originatorId);
       str.Add('isUTF8Allowed=false');
       str.Add('validityPeriod=60');
       str.Add('isRepeatingDestinationAllowed =false');
       Response := HRM_SMS_Gonder(url,str);
       doc := CoDOMDocument60.Create;
       doc.async := false;
       doc.loadXML(response);
       root := doc.documentElement;
       nodes := root.selectNodes('//CODE');
       node:=nodes.item[0];

function TAnaf.HRM_SMS_Gonder(url:string;veri:tstringlist):widestring;
var
 response:tstringstream;
 test : string;
 SSL1: TIdSSLIOHandlerSocketOpenSSL;
begin


 Screen.Cursor:=crHourGlass;
 Response:= TStringStream.Create('');
 try
   SSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
   SSL1.SSLOptions.Method := sslvSSLv23;
   IdHTTP1.Disconnect;
   IdHTTP1.IOHandler := SSL1;
   IdHTTP1.Post(url,veri,response);
   result:=response.DataString;
 except
   on e: exception do begin
     ShowMessage(e.ToString);
   end;
 end;

 Response.Free;
 Application.ProcessMessages;
 Screen.Cursor:=crDefault;
 SSL1.Free;
end;