// Programınıza artı değer kazandırabilmek için artık bütün yazılım firmalarının yaptığı gibi
// sizde programlarınızdan SMS gönderebilirsiniz.
// Ticari yazılım üretiyor iseniz; kullanıcı, müşterilerine ödemelerini hatırlatabilir.
// Özel günlerini kutlayabilir, yada ürün tanıtımı yapabilirler.
// Üye programları yazıyor iseniz;kullanıcı, üyelerine toplu duyurularda bulunabilir.
// kullanıcılar bu yöntem ile aynı anda binlerce cep telefonuna kısa mesaj geçebilirler.
// Tüm dünya tarafından benimsenmiş, en hızlı ve en ekonomik reklam
// ve duyuru yöntemini sizde programlarınıza mutlaka ekleyin.
//****************************
// AYRINTILI BILGI ALMAK İÇİN kemalberkan@mynet.com 'E MAİL ATABİLİRSİNİZ.
// SORULARINIZ MUTLAKA CEVAPLANACAKTIR.
//****************************
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Psock, NMHttp;
type
TForm1 = class(TForm)
NMHTTP1: TNMHTTP;
Memo1: TMemo;
SpeedButton1: TSpeedButton;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SpeedButton1Click(Sender: TObject);
var str:tstringlist;
begin
str:=tstringlist.Create;
str.add('');
str.add('xxxxxx '); // KULLANICI ADI
str.add('xxxxxx '); // KULLANICI ŞİFRESİ
str.add(''+memo1.Text+' '); // 160 KARAKTER MESAJ METNİ
str.add(''+edit1.Text+' '); // GSM NUMARALARI
str.add('
str.add('
str.add(' ');
str.SaveToFile('c:\sms.xml');
str.Free;
nmhttp1.Post('POST EDILECEK URL ADRESİ','c:\sms.xml');
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
var str:tstringlist;
begin
str:=tstringlist.Create;
str.add('');
str.add('xxxxxx ');
str.add('xxxxxx ');
str.add('');
str.add('');
str.add(' ÖDEME TUTARINIZ 45 MILYON TL DIR. ');
str.add('905552683525 ');
str.add('
str.add('
str.add(' ');
str.add('');
str.add(' ÖDEME TUTARINIZ 65 MILYON TL DIR. ');
str.add('90555xxxxxxx');
str.add('
str.add('
str.add(' ');
str.add('');
str.add(' ÖDEME TUTARINIZ 40 MILYON TL DIR. ');
str.add('90505xxxxxxx ');
str.add('
str.add('
str.add(' ');
str.add('');
str.add(' ÖDEME TUTARINIZ 25 MILYON TL DIR. ');
str.add('90542xxxxxxx ');
str.add('
str.add('
str.add(' ');
str.add('');
str.add(' ÖDEME TUTARINIZ 35 MILYON TL DIR. ');
str.add('90532xxxxxxx ');
str.add('
str.add('
str.add(' ');
str.add(' ');
str.add(' ');
str.SaveToFile('c:\sms.xml');
str.Free;
nmhttp1.Post('POST EDILECEK URL ADRESİ','c:\sms.xml');
end;
end.