Kompresi Citra dengan Delphi
Kompresi Citra adalah aplikasi kompresi data yang dilakukan terhadap citra digital dengan tujuan untuk mengurangi redundansi dari data-data yang terdapat dalam citra sehingga dapat disimpan atau ditransmisikan secara efisien. Untuk membuat programnya, desain form seperti gambar di samping. Gunakan toolbar lalu klik kanan pada toolbar->newbutton->pada image index plih gambar sesuai tool yang akan di fungsikan. Dibawah ini source code lengkapnya : unit view; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ImgList, ToolWin, ComCtrls, ExtDlgs, ExtCtrls, IniFiles, JPEG, StdCtrls, ShlObj; type TfrmVIEW = class(TForm) dlgOPENPIC: TOpenPictureDialog; sbrVIEW: TStatusBar; tbrVIEW: TToolBar; imlVIEW: TImageList; tbnOpen: TToolButton; tbnBROWSE: TToolButton; tbnSAVE: TToolButton; tbnSEP1: TToolButton; tbnEIGHTH: TToolButton; tbnQUARTER: TToolButton; tbnHALF: TToolButton; tbnFULL: TToolButton; tbnAUTO: TToolB
