Mau nanya nich ? Gemana yach caranya kita nerjemahin file gambar, misal jenis bmp, sehingga kita bisa tahu lebar gambar serta data dari tiap pixel..... nuhun :idea: :?:

Coba buka link ini siapa tau bisa membantu: http://cikumiyu.multiply.com/journal/item/5/Grayscale_Bitmap_Selector

Mudah2n bisa membantu…. Create New Form lagi dengan properties formstyle fsMDIChild lagi sebagai tempat menampilkan citra dan tempatkan Komponen TImage,…dan komponen StatusBar untuk menampilkan Informasi image…. Kalau di listing bawah ini nama formnya Formcitra…. udah pernah saya cobain, kebetulan ada referensi juga,…. procedure TFormUtama.ButtonAmbilCitraClick(Sender: TObject); var fc: string; begin if (OpenPictureDialog.Execute) then begin if (FormCitra = nil) then Application.CreateForm(TFormCitra, FormCitra); FormCitra.Image.Picture.LoadFromFile( OpenPictureDialog.FileName); FormCitra.ClientHeight := FormCitra.Image.Picture.Height; FormCitra.ClientWidth := FormCitra.Image.Picture.Width; FormCitra.ClientHeight := FormCitra.Image.Picture.Height; case (FormCitra.Image.Picture.Bitmap.PixelFormat) of pf1bit : fc := 'biner'; pf8bit : fc := 'keabuan'; pf24bit : fc := 'true color'; end; StatusBar.SimpleText := OpenPictureDialog.FileName + ' (' + IntToStr(FormCitra.Image.Picture.Width) + 'x' + IntToStr(FormCitra.Image.Picture.Height) + ', ' + fc + ''; end; end; end. ini juga fungsi untuk baca nilai pixel image tapi yang grayscale (keabuan)… yang True Color (RGB) belum pernah coba. Kalo fungsi baca nilai pixel ini saya tempatkan di unit yang baru,.Tapi deklarasikan dulu (type Pmatrik = Array Of Array Of Real) di unit Form Utamanya… unit UnitBacaImage; interface uses Unit1,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls, Buttons, StdCtrls, ExtDlgs; Function BacaImage(x :Timage): Pmatrik; implementation Function BacaImage(x :Timage): Pmatrik; var h,w,i,j : integer; grey : PMatrik; PH :PbyteArray; begin h := x.Picture.Height; w := x.Picture.Width; setlength(grey,h,w); for i:= 0 to h - 1 do begin PH := x.Picture.Bitmap.ScanLine[i]; for j:= 0 to w - 1 do begin grey[i,j]:= PH[j]; End; End; BacaImage := Grey; end; end.

coba cari-cari lagi .. dah banyak kok di forum ini..

Alah Nuhun pisan....., tapi ada lagi nih focusnya kita pengen baca langsung data dari file gambar tanpa nampilin dulu citra di layar???? Please...

lha sama aja, loadnya pake TBitmap dan variannya. nggak usah dimasukin TImage atau digambar di Paintbox.. klo mo baca langsung bytestreamnya cari aja formatnya di wotsit