Mega Code Archive
[] Müşterileriniz, sizin programınızdan sms göndersin
<![CDATA[
// 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('<MainmsgBody>');
str.add('<UserName>xxxxxx</UserName>'); // KULLANICI ADI
str.add('<PassWord>xxxxxx</PassWord>'); // KULLANICI ŞİFRESİ
str.add('<Mesgbody>'+memo1.Text+'</Mesgbody>'); // 160 KARAKTER MESAJ METNİ
str.add('<Numbers>'+edit1.Text+'</Numbers>'); // GSM NUMARALARI
str.add('<SDate></SDate>'); // başlama tarih ve saati
str.add('<EDate></EDate>'); // bitiş tarih ve saati
str.add('</MainmsgBody>');
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('<MainmsgBody>');
str.add('<UserName>xxxxxx</UserName>');
str.add('<PassWord>xxxxxx</PassWord>');
str.add('<Messages>');
str.add('<Message>');
str.add('<Msgbody> ÖDEME TUTARINIZ 45 MILYON TL DIR.</Msgbody>');
str.add('<Number>905552683525</Number>');
str.add('<SDate></SDate>');
str.add('<EDate></EDate>');
str.add('</Message>');
str.add('<Message>');
str.add('<Msgbody> ÖDEME TUTARINIZ 65 MILYON TL DIR.</Msgbody>');
str.add('<Number>90555xxxxxxx<Number>');
str.add('<SDate></SDate>');
str.add('<EDate></EDate>');
str.add('</Message>');
str.add('<Message>');
str.add('<Msgbody> ÖDEME TUTARINIZ 40 MILYON TL DIR.</Msgbody>');
str.add('<Number>90505xxxxxxx</Number>');
str.add('<SDate></SDate>');
str.add('<EDate></EDate>');
str.add('</Message>');
str.add('<Message>');
str.add('<Msgbody> ÖDEME TUTARINIZ 25 MILYON TL DIR.</Msgbody>');
str.add('<Number>90542xxxxxxx</Number>');
str.add(' <SDate></SDate>');
str.add('<EDate></EDate>');
str.add('</Message>');
str.add('<Message>');
str.add('<Msgbody> ÖDEME TUTARINIZ 35 MILYON TL DIR.</Msgbody>');
str.add('<Number>90532xxxxxxx</Number>');
str.add('<SDate></SDate>');
str.add('<EDate></EDate>');
str.add('</Message>');
str.add('</Messages>');
str.add('</MainmsgBody>');
str.SaveToFile('c:\sms.xml');
str.Free;
nmhttp1.Post('POST EDILECEK URL ADRESİ','c:\sms.xml');
end;
end.
]]>