GAMMU merupakan software sms gateway yang cukup bagus dan terkenal . Selain mudah penggunaannya, perangkat modem gsm yang support cukup banyak mulai dari nokia, siemen dan Sonny ericsson. Untuk sony ericsson saya dah nyoba dan penggunaannya sangat mudah. Selain itu perangkat lain yang lebih cocok untuk dijadikan sms gateway dengan software gammu seperti modem gsm itegno. GAMMU bahkan sudah menyediakan service online untuk proses update data sms ke database. Database yang di support GAMMU adalah MySQL.
Ada beberapa pihak yang menginginkan program SMSgateway nya menggunakan database yang lain seperti SQLserver, Oracle dll. Apakah bisa? Jawabnya bisa, dengan menggunkan sediki program tambahan (delphi atau vb) kita bisa membuat service atau program yang memanfaatkan gammu dan sqlserver sebagai databasenya.
Sebenarnya kita bisa membuat software sms gateway sendiri tanpa harus menggunakan GAMMU, syaratnya kita harus mengetahui terlebih dahulu instruksi atau perintah yang dikirim dari pc ke perangkat modem gsm dan sebaliknya. Perintah itu diberi istilah AT-Command. Jika sudah memiliki AT-Command , kita bisa membuat aplikasinya dengan menggunakan bahasa pemrograman apapun yang penting program tersebut telah menyediakan fungsi untuk komunikasi baik ke port RS232 atau pun USB. Tapi jika terlalu pusing untuk membuatnya, gammu masih dapat dimanfaatkan untuk dipadukan dengan program khusus yang kita buat, sehingga kita dapat memanfaatkan database lain selain MySQL.
Algoritma pemrograman
Logic dari program ini adalah bagai mana kita mengeksekusi program gammu dengan parameter yang kita sediakan dan selanjutnya output dari program gammu tangkap dan ditrace. Hasil dari tracing selanjutnya dimasukan ke database yang kita inginkan.
Salah satu fungsi yang dibutuhkan adalah kita harus membuat fungsi atau procedure yang dapat mengeksekusi perintah dos dan outputnya kita simpan di objek teks misalkan untuk didelpi ke objek stringlist. Berikut ini adalah kode nya :
procedure GetConsoleLineOutput(const CommandLine:string;stoutput:TStringList);
var SA: TSecurityAttributes;
SI: TStartupInfo;
PI: TProcessInformation;
StdOutFile, AppProcess, AppThread : THandle;
RootDir, WorkDir, StdOutFileName:string;
const
FUNC_NAME = 'GetConsoleOuput';
begin
try
StdOutFile:=0;
AppProcess:=0;
AppThread:=0;
// Initialize dirs
RootDir:=ExtractFilePath(ParamStr(0));
WorkDir:=ExtractFilePath(CommandLine);
// Check WorkDir
if not (FileSearch(ExtractFileName(CommandLine),WorkDir)<>'') then
WorkDir:=RootDir;
// Initialize output file security attributes
FillChar(SA,SizeOf(SA),#0);
SA.nLength:=SizeOf(SA);
SA.lpSecurityDescriptor:=nil;
SA.bInheritHandle:=True;
// Create Output File
StdOutFileName:=RootDir+'output.tmp';
StdOutFile:=CreateFile(PChar(StdOutFileName),
GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,
@SA,
CREATE_ALWAYS, // Always create it
FILE_ATTRIBUTE_TEMPORARY or // Will cache in memory
// if possible
FILE_FLAG_WRITE_THROUGH,
0);
// Check Output Handle
if StdOutFile = INVALID_HANDLE_VALUE then
raise Exception.CreateFmt('Function %s() failed!' + #10#13 +
'Command line = %s',[FUNC_NAME,CommandLine]);
// Initialize Startup Info
FillChar(SI,SizeOf(SI),#0);
with SI do begin
cb:=SizeOf(SI);
dwFlags:=STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
wShowWindow:=SW_HIDE;
hStdInput:=GetStdHandle(STD_INPUT_HANDLE);
hStdError:=StdOutFile;
hStdOutput:=StdOutFile;
end;
// Create the process
if CreateProcess(nil, PChar(CommandLine), nil, nil,
True, 0, nil,
PChar(WorkDir), SI, PI) then begin
WaitForSingleObject(PI.hProcess,INFINITE);
AppProcess:=PI.hProcess;
AppThread:=PI.hThread;
end
else
raise Exception.CreateFmt('CreateProcess() in function %s() failed!'
+ #10#13 + 'Command line = %s',[FUNC_NAME,CommandLine]);
CloseHandle(StdOutFile);
StdOutFile:=0;
finally
// Close handles
if StdOutFile <> 0 then CloseHandle(StdOutFile);
if AppProcess <> 0 then CloseHandle(AppProcess);
if AppThread <> 0 then CloseHandle(AppThread);
// Delete Output file
if FileExists(StdOutFileName) then DeleteFile(StdOutFileName);
end;
end;
Prosedure pembacaan SMS
untuk membaca SMS dari Modem GSM atau Handphone , dengan memanfaatkan prosedur di atas menggunakan GAMMU adalah sebagai berikut :
var st:string;
i,k:integer;
stlines:tstringlist;
begin
{
try
stlines:= tstringlist.Create;
GetConsoleLineOutput('gammu --geteachsms',stlines);
if stlines.count>0 then
begin
k:=stlines.IndexOf('SMS message');
if k>1 then
begin
dec(k);
for i:=k to stlines.count-5 do
begin
lblog.Items.Add(stlines[i]);
end;
end;
end;
finally
stlines.Free;
end;
readsmssavetoinbox;
end;
Selanjutnya untuk penyimpanan data ke database disediakan procedure readsmssavetoinbox :
procedure Tfmmain.readsmssavetoinbox;
var strsql,sender,msg:string;
smslines : tstringlist;
tgl:string;
i,beginpos,k:integer;
begin
try
smslines:= tstringlist.Create;
GetConsoleLineOutput('gammu --geteachsms',smslines);
if smslines.Count>0 then
begin
beginpos:=smslines.IndexOf('SMS message');
if beginpos>1 then
begin
dec(beginpos);
//for i:=beginpos to smslines.count-1 do
i:=beginpos;
while not i<=smslines.count-5 do
begin
if i>=smslines.count-5 then break;
if pos('"Inbox"',smslines[i])>0 then
begin
sender:= copy(smslines[i+5],20,length(smslines[i+5]));
if sender<>'' then sender:= StringReplace(sender,'"','',[rfReplaceAll, rfIgnoreCase]);
sender:= StringReplace(sender,'''','''''',[rfReplaceAll, rfIgnoreCase]);
msg:=smslines[i+8];
tgl:= trim(copy(smslines[i+3],pos(',',smslines[i+3])+1,pos('+',smslines[i+3])-2-(pos(',',smslines[i+3]))));
strsql:='insert into inbox(inbox_sender,inbox_message,inbox_date) values (''' + sender + ''',''' + msg + ''','''+ tgl + ''')';
execsql(strsql);
end;
i:=i+10;
end;
delsms;
end;
end;
finally
smslines.Free;
end;
end;
Execsql adalah procedure untuk mengeksekusi sql yang ada.
Simpan prosedure diatas diprogram looping dengan memanfaatkan timer atau mebuat program services.
Selamat mencoba.