ANSAV 1.9.3 AIO (All In One)

January 28, 2008

Another great antivirus, especially for viruses spread in and from Indonesia.

Download link: http://rapidshare.com/files/87303969/ANSAV_1.9.3_AIO.rar

For virus makers, you just waste your time. You already impacted a lot of damages just for nothing. But, your sins are getting much and much bigger.


PCMedia AntiVirus RC24 Plus Update Build 1

January 28, 2008

Added 145 virus database, like Kalong, Hokage, Tati, etc.

Download link: http://rapidshare.com/files/87294075/PCMAV_RC24_Update_Build1.rar


Father, Touch My Heart / Bapa, Sentuh Hatiku

January 24, 2008

Everytime I hear this song, it really touch my heart.

———-

How much I loved everything that was done
Never alone to run this life
always be with me

How much I realize in my this life
You always give the best plan
because of love

Father touch my heart
Change my life to be a brand new one
Like a pure gold
You mold my vessel of heart
Father teach me to understand
a love that always give
Like a flowing water that never been stopped

Your love o my Lord
is never been stopped

———-

Betapa ku mencintai segala yang tlah terjadi
Tak pernah sendiri jalani hidup ini
selalu menyertai

Betapa ku menyadari di dalam hidupku ini
Kau selalu memberi rancangan terbaik
oleh karena kasih

Bapa sentuh hatiku
ubah hidupku menjadi yang baru
bagai emas yang murni
kau membentuk bejana hatiku
Bapa ajarku mengerti
sebuah kasih yang selalu memberi
bagai air mengalir yang tiada pernah berhenti

kasihmu ya Tuhan…
tak pernah berhenti..

Download song: http://rapidshare.com/files/86243252/01.Maria_Shandi_-_Sentuh_Hatiku.mp3

May the glory from our Lord Jesus Christ be with us always… 😉


Convert Between BMP and JPG With Delphi

January 23, 2008

Need to convert BMP to JPG or JPG to BMP with Delphi?
Don’t worry, this should help you out! 😉

// convert bmp to jpg

uses jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
bmp : TImage;
jpg : TJpegImage;
begin
bmp := TImage.Create(nil);
jpg := TJpegImage.Create;
bmp.picture.bitmap.LoadFromFile ( ‘c:\gambar.bmp’ );
jpg.Assign( bmp.picture.bitmap );
jpg.SaveToFile ( ‘c:\gambar.jpg’ );
jpg.Free;
bmp.Free;
end;

//convert jpg to bmp

uses
JPEG;

procedure JPEGtoBMP(const FileName: TFileName);
var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
jpeg := TJPEGImage.Create;
try
jpeg.CompressionQuality := 100; {Default Value}
jpeg.LoadFromFile(FileName);
bmp := TBitmap.Create;
try
bmp.Assign(jpeg);
bmp.SaveTofile(ChangeFileExt(FileName, ‘.bmp’));
finally
bmp.Free
end;
finally
jpeg.Free
end;
end;