Kirim SMS Gratis lewat Internet

Tahukah teman-teman bahwa dengan internet kita bisa mengirim SMS gratis ke semua operator. Dijamin gratis tis tis…

Caranya adalah dengan memanfaatkan situs-situs yang memberikan layanan SMS gratis salah satunya adalah http://www.kusms.com/

Setelah kita buka situsnya kita lihat halaman seperti diatas. Tinggal isi saja nomor penerima, isi pesan dan kode verifikasi dan kirim. selesai.. gratis tis tis..

tapi sayangnya teman yang anda kirimi tidak akan tahu siapa anda dan tidak dapat membalas ke nomor hp anda jika anda tidak menyertakan nama anda.

Memanfaatkan library microsoft speech untuk mengubah tulisan menjadi suara

Iseng-seng ni, ingin mengubah tulisan teks menjadi suara..
Haloo teman-teman, pernah kepikir ngga, mbuat aplikasi yang bs ngubah tulisan menjadi suara. He2x ternyata mudah dan berikut ini sourcecode nya
[pascal]
uses
Comobj;

procedure TForm1.Button1Click(Sender: TObject);
var
voice: OLEVariant;
begin
voice := CreateOLEObject(‘SAPI.SpVoice’);
voice.Speak(‘Hello World!’, 0);
end;
[/pascal]
contoh, download di sini