age.OuvrirImage (NomFichier: string);. Picture.LoadFromFile (NomFichier); (imgImage.Picture.Width, imgImage.Picture.Height); AnalyseImage;
. CalculerHistogramme;. ChangeStatus ('prкt');. ProgressBar.Position: = 0;;
TfrmMDIImage.FormClose (Sender: TObject; var Action: TCloseAction);: = caFree;;
TfrmMDIImage.AfficheImage;, Y: Integer;. Picture.Bitmap.Width: = CalcImage.TailleX;. Picture.Bitmap.Height: = CalcImage.TailleY;
. ChangeStatus ('Affichage de l'' image');. ProgressBar.Max: = CalcImage.TailleX - 1; X: = 0 to CalcImage.TailleX - 1 do.ProgressBar.Position: = X; Y: = 0 to CalcImage.TailleY - 1 do.Canvas.Pixels [X, Y]: = CouleurToColor (CalcImage.Image [X, Y]);;
. CalculerHistogramme;
. FinCalcul;;
LimiteCouleur (Couleur: Double): Byte;: = Round (Max (Min (255, Couleur), 0)); end;
TfrmMDIImage.FormDestroy (Sender: TObject);. Destroy;
. Extract (Self); end;
TfrmMDIImage.FormCreate (Sender: TObject);: = True;: = TCalcImage.Create; end;
TfrmMDIImage.ChangerDimensionsImage (X, Y: Integer);. Picture.Bitmap.Width: = X;. Picture.Bitmap.Height: = Y;. ChangeDimensions (X, Y);
{TODO: Barres de dйfilement};
TfrmMDIImage.imgImageMouseMove (Sender: TObject;: TShiftState; X, Y: Integer);: = X - (imgImage.Width - imgImage.Picture.Width) div 2 if (X <0) or (X> imgImage.Picture.Width) then X: = -1;: = Y - (imgImage.Height - imgImage.Picture.Height) div 2; if (Y <0) or (Y> imgImage. Picture.Height) then Y: = -1;
. ChangeCoordonneesCurseur (X, Y);;.
ІІІ. Результати роботи програми, та перспективи Використання
. Аналіз отриманий даніх
В
Рис 2. Основними вікно програми
Завантажуємо оригінал:
В В
Зображення готове до аналізу. Так само завантажуємо и зображення з прихованим повідомленням. Для цього Було використан СПЕЦІАЛЬНІ програми для ПРИХОВАНЕ даних до BMP форматах. br/>В
Пріступаймо до аналізу збережений.
Для цього в меню Filters Обираємо Analyze de Immage, та Обираємо гістограму.
В
После, цього запускається форма для гістограмі по Кольорах. Де мі ї будемо Проводити аналіз наших збережений. <В
Обираємо зображення оригінал. Знизу в нас представляється гістограма по Кольорах даного зображення, что має чітко вираженими структуру. Діло в тому что ВСІ зображення BMP формату мают стовпчикових структуру як показано на рис.3. <В
Рис. 3
После цього Обираємо зображення з прихо...
