Стеганография LSB BMP - Delphi - Ответ 9109382

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtDlgs, ExtCtrls;
 
type
 
 
    TForm1 = class(TForm)
    Button1: TButton;
    MainMenu1: TMainMenu;
    SaveDialog1: TSaveDialog;
    OpenPictureDialog1: TOpenPictureDialog;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label1: TLabel;
    ListBox1: TListBox;
    Button2: TButton;
    Image1: TImage;
    Button3: TButton;
    Edit1: TEdit;
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
     private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;   Bitmap: TBitmap; bmpfile:file of byte;
    pointer:integer;
  btr,btw,i:byte;  z:dword;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.N5Click(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.Button2Click(Sender: TObject);          //proverka konteynera
var                                                      //
   fileheader: TBitmapfileheader;                        //
   infoheader: TBitmapinfoheader;                        //
   s: TFilestream;                                       //
   begin                                                 //
   s := TFileStream.Create(openpicturedialog1.filename, fmOpenRead);
     try
     s.Read(fileheader, SizeOf(fileheader));
     s.Read(infoheader, SizeOf(infoheader));
   finally
    s.Free;
  end;
  listbox1.Items.Clear;
   listbox1.Items.Add('Filesize:    ' + IntToStr(fileheader.bfSize));
   listbox1.Items.Add('Width:       ' + IntToStr(infoheader.biWidth));
   listbox1.Items.Add('Height:      ' + IntToStr(infoheader.biHeight));
   listbox1.Items.Add('BitCount:    ' + IntToStr(infoheader.biBitCount));
   listbox1.Items.Add('type:    ' + IntToStr(fileheader.bfType));
   listbox1.Items.Add('compr:    ' + IntToStr(infoheader.biCompression));
   listbox1.Items.Add('sdvig k 1 baytu:    ' + IntToStr(fileheader.bfOffBits));
   if (fileheader.bfType<>$4d42) then       //
    begin                                   //  proverka na BMP
     ShowMessage('Eto ne BMP');             //
     exit;                                  //
    end;
 
   if infoheader.biPlanes <> 1  then
   begin                                   //  ÷èñëî ïëîñêîñòåé äîëæíî áûòü =åäèíèöå
     ShowMessage('Mnogo ploskostey');      //
     exit;                                 //
   end;                                    //
 
    if (infoheader.biBitCount <> 24) then
    begin                                  //  kol-vo bit na piksel`
     ShowMessage('Ne 24 bita na piksel`'); //
     exit;                                 //
    end;                                   //
 
    if  (infoheader.biCompression <> 0 )  then//
    begin                                  //  est` li kompressiya
     ShowMessage('Est` kompressiya');      //
     exit;                                 //
    end;                                   //
 
 
 
end;
 
 
 
 
 
 
procedure TForm1.N2Click(Sender: TObject);    //menu open
begin
openpicturedialog1.Execute;
 assignfile(bmpfile,openpicturedialog1.filename);
end;
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);     //main buton
var t:string;
begin
      if (RadioButton1.Checked = True) then i:=$FE else           //
      begin                                                      //
       if (RadioButton2.Checked = True) then i:=$FC else         //
        begin                                                    //  proverka bitov
         ShowMessage('Choose bit-change');                       //
         exit;                                                   //
        end;                                                     //
      end;                                                       //
    // Edit1.Text:='Ïðèñâàèâàåì òåêñò';
    // t:=edit1.text;
 
 
   end;
 
 
end.