ini mungkin artikel PART 1. ingin lanjutannya? silakan kasih comment.

thank you

thanks

apa perlu saya share dengan anda ? hmmm … mungkin nanti atau sebentar lagi.

thanks.


unit MSProject_Intf;

end.


Begini caranya :

1. Download FastCGI header file for pascal  … linknya kemana yah kemaren ??

2. nah ini … blom dicobain!!. ntar yah ?

3. kalo ada yg udah bisa mohon share deh..

4. Kalo saya dah bisa tak terusin ini artikel

Ok. thanks

untuk project ini masih berjalan. blom selesai, jadi saya tulis minimal requirmentnya aja dulu.

• Saya gunakan lazarus sebagai IDE development
• Namanya server jadi pasti harus mandiri. karena di linux mestinya aplikasi ini ada sebuah Daemon
• SMS Server ini harus juga bisa di connect oleh client, sebagai user interface (Client bisa Webbase, desktop linux, windows, maupun MAC – itu pula kenapa saya pilih lazarus!! =P )
• harus di develop dulu sebuah component lazarus yang reusable. mungkin suatu saat di jadikan OpenSource ?.
• Kemampuan server SMS ini minimal harus bisa;

1. SendSMS,
2. ReceiveSMS,
3. SendUSSD,
4. SIMToolkit,
5. KeyPadControl
6. Connect to DB

• Trus apalagi ? eh..gitu dulu deh.!

tapi ini aq pake .net!!

langsung aja yah .. Ubuntu 8, versi lazarus defaultnya adalah lazarus 0.9.24, jadi kalo mo install versi 0.9.26 kita harus tahu dependencies paketnya dulu, atau paket yang harus ada ketika kalo lazarus mo diinstall. caranya bisa gini nih:

1. ketik apt-get update (ini untuk update repository info)  tentu saja setelah kita ketik sudo su

2. ketik apt-get install lazarus, sehingga tamplil seperti gambar berikut. ingat ! jangan di tekan “Yes” karena itu berarti melakukan instalasi lazarus 0.9.24 juga, sedangkan kita hanya butuh informasi paket yang di perlukan saja.

nah… tuh kelihatan kan paket apa yang belom ada untuk install lazarus ?.

3. Ketik apt-get install … … seperti terlihat di gambar berikut. list ini didapatkan dari informasi pada point no 2. bisa di ketik satu-satu atau di copy aja. tapi hati2 karena character di atas mengandung #13 yang berarti enter atau execusi perintah.

4. Download lazarus 0.9.26 dari sini kita gunakan paket nya debian. download semua aja yah ?.

5. Install semua paket yang telah didownload. paket-paket tersebut punya depencencies juga antara mereka jadi sebaiknya satukan aja perintahnya menjadi

> gdebi nama-paket1 nama-paket2 … … , dst.

6. dah .. selesai. shortcut ada di menu application > programming > lazarus.  ….. ga tampil ?

bagaimana buat webservice pake lazarus ?. okey . kita tunggu posting saya berikutnya. sekarang waktunya ngerjain next project …. (rahasia!!!).

eh iya ini screenshotnya lazarus.

Banyak komponen punya TurboPower masuk sana. Indy ada juga . tapi ga default.


TNewMessageReceived = Procedure (Sender: TObject; From, Content: String) of Object;

pada kelas TSmsGateway kita buat variable menjadi

FOnNewMessageReceived: TNewMessageReceived;

dan tentu saja pada section published kita deklasikan property seperti

property OnNewMessageReceived: TNewMessageReceived read FOnNewMessageReceived write FOnNewMessageReceived;

Kemudian kita buat event trigerring menggunakan TThread, kenapa pake thread ? .. coba deh buat pake timer !. lihatlah bedanya?


TSmsThread = class(TThread) // background monitoring event
private
FSmsGateway: TSmsgateaway; // ini udah ada di artikel saya sebelumnya
protected
procedure execute; override;
public
constructor Create(aSmsGateway: TSmsgateaway);
end;

pada procedure execute kita isi seperti ini :

procedure TSmsThread.execute;
const
secs = 3;
var
I: Integer;
begin
inherited;
I := 0;
while not Terminated do
begin
Inc(I);
if I >= Secs then
begin
I := 0;
FSmsGateway.DetectNewMessage(FSmsGateway);
end;
Sleep(1000); // 1 detik, secs = 3. jadi cek modem setiap 3 x 1 = 3 detik
end;
end;

Kemudian kita lihat procedure DetectNewMessage, yang bisa berisi input AT Command seperti TE+CNMI akan tetapi karena banyak perbedaan penggunaan perintah ini, di masing-masing modem maka saya lebih suka pake AT+CMGL=0 atau AT+CMGL=”REC UNREAD” tergantung dari AT+CMGF nya. sehingga isi dari procedure DetectNewMessage adalah

procedure TSmsgateaway.DetectNewMessage(Sender: TObject);
var
sres : String;
Strings: TStrings;
msTemp: TMessageSpec;
begin
if SerrialUsed = False then // antisipasi penggunaan modem bersamaan !!
begin
msTemp := FMessageSpecs;
FMessageSpecs := msRECUNREAD; // set property untuk sms blom terbaca
try
RetrieveSMS; // perintah at+cmgl ada disini yg langsung tersimpan di TCollectionItem
if Assigned(FOnNewMessageReceived) then // jika terjadi event maka otomatis masuk
FOnNewMessage(Self,FSmsList.Item[0].sender,FSmsList.Item[0].body); // kesini
except on ex:ESynaSerError do
FMessageSpecs := msTemp;
end;
FMessageSpecs := msTemp;
end;
SerrialUsed := False;
end;

nah … sudah selesai, silakan coba!!,

yang akan saya jabarkan disini adalah sedikit pengetahuan (Sedikiiiiit sekali) tentang pembuatan webservice menggunakan asp.net dengan codebehind delphi, tentu saja!, untuk aksesnya atau client web bisa menggunakan apa saja baik itu asp .net sendiri maupun php, asp, coldfusion, java, dll atau intraweb delphi (namanya juga XML khan bisa dimakan oleh siapa saja toh ?? tapi pokoknya web, karena judulnya ketahuan khan?). nah ikutan langkahnya sebagai berikut :

1. Delphi berapa yg anda punya nih ? (yg penting ada asp.net bisa 8, turbo 2006 for .net, ato 2007 lebih bagus tapi mahal he..h.ehh) mbah emarcadero di murahin donk !! khan saya cucu!!

2. Download atsms library nya di sini

3. Install komponen atsms dengan cara klik menu component -> installed .net component … wait for a second yah ??

4. Nah muncul tuh ! component .net yg di load oleh IDE, sekarang pada category tulis terserah maumu ! misalnya “ATSMS” kemudian klik tombol select an assembly … cari file atsms.dll yang tadi kamu download trus open. maka terlihat di list adalah serialdriver dengan category (ATSMS) yg anda tulis tadi !

5. Sekarang mulai pembuatan webservice application! pada menu delphi .net klik menu file -> new -> other pilih delphi for .net project dan pilih ASP.Net Web Service application maka muncul dialog untuk nama aplikasi beserta folder yang otomatis berapa di baway wwwroot milik IIS. silakana kasih nama misal sms_ws

6. Terlihat sekarang tampilan file webservice1.asmx. cari komponen serialdriver yg berada pada tab ATSMS, double klik aja tuh!

7. Sekarang tekan F12, maka hal yang familiar bagi programmer delphi terlihat ya toh ?? pada section public secara default delphi membuat function helloword seperti ini

[WebMethod]
function HelloWorld: string;

dengan isi seperti ini

8. contoh helloword biarin aja dulu.. kita tambahin aja [WebMethod] menjadi [WebMethod(description='Function yang Menghasilkan output "Hello Word"')]

9. Sekarang ketik function sebagai berikut

[WebMethod(Description='function kirim SMS, string result adalah message yg terjadi')]
function SendSMS(Nomor,Pesan:String): String; // lalu tekan ctrl+shift+c

10. lalu ketik isi function menjadi seperti ini

11. nah sekarang silakan di tekan F9, hasilnya terlihat dua function yang kita buat tadi beserta comment, dan bisa langsung anda coba tanpa kita membuat aplikasi di sisi web service client !!,

12. Selamat mencoba !! eh … blom mau tahu cara akses dari client ? ntar tunggu ya ? buka puasa dulu emhmmm…aemm

Tapi dengan adanya AJAX (Asynchronous Javascript And XML), yaitu suatu technic pencampuran pemrograman, masalah diatas bisa di atasi! ..

nah sekarang bagaimana mengatasi masalah raw printing pada aplikasi webbase ??.

kalo kita pernah buat aplikasi untuk sistem inventory (Kasir) webbase saya kira pertanyaan diatas pernah juga timbul srimulat …. eh salah… muncul !!! hi..hi..

.. salah satu jawabannya mungkin adalah activex !! walaupun ini bukan jawaban mutlak tapi setidaknya bisa melengkapi.. ya kan ? iya dong ! he.he.. cuma ini juga menimbulkan masalah baru. apa itu ? activex hanya bisa di jalankan di browser IE (internet explorer punyae mikocok !). jadi … yah ga papa lah kan setidaknya melengkapi ya..tho ???

berikut adalah cara-cara saya membuat activex nya … ya !! anda benar. tentu saya pake delphi !! (isone iku thok!! he..he.. )

1. Berhubung udah hampir jam 3 dinihari !! … maka tulisan ini berlanjut aja yah .. saya mo tidur dulu . ngantuk nih!!