hexview.pas

是一个delphi的流程制作软件

//----------------------------- HexView ----------------------------------------
//
// Display utility for showing IStream contents as a hex dump
// Requires HexDump unit.
//
// Grahame Marsh
// Freeware for UNDU - you get it for free I make no promises
// [e-mail]
//------------------------------------------------------------------------------

unit HexView;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  HexDump, ActiveX, StdCtrls, Buttons, ExtCtrls;

// This record holds data taken from an IStream interface and the
// associated hex dump component
type
  THexInfo = record
    HexDump : THexDump;
    Memory : pointer;
    Size : integer
  end;

type
  THexDumpForm = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FHexDump : THexDump;
    FMemory : pointer;
    FSize : integer;
    procedure FreeMemory;
  public
    procedure SetData (Where : pointer; Size : integer);
    procedure SetStream (Stream : IStream);
  end;

var
  HexDumpForm: THexDumpForm;

implementation

{$R *.DFM}

procedure THexDumpForm.FreeMemory;
begin
  if Assigned (FMemory) then
  begin
    FreeMem (FMemory, FSize);
    FSize := 0;
    FMemory := nil
  end
end;

procedure THexDumpForm.SetData (Where : pointer; Size : integer);
begin
  FreeMemory;
  FHexDump.Address := Where;
  FHexDump.DataSize := Size
end;

procedure THexDumpForm.SetStream (Stream : IStream);
var
  StatStg : TStatStg;
  Readed  : integer;
  NewPos  : Int64;
begin
  FreeMemory;
// Get size of stream
  Stream.Stat (StatStg, STATFLAG_NONAME);
  FSize := StatStg.cbSize;
  GetMem (FMemory, FSize);
// Get data
  Stream.Seek (0, 0, NewPos);
  Stream.Read (FMemory, FSize, @Readed);
// Set hexdump viewer with info
  FHexDump.Address := FMemory;
  FHexDump.DataSize := FSize
end;

procedure THexDumpForm.FormCreate(Sender: TObject);
begin
  FHexDump := CreateHexDump (Self)
end;

procedure THexDumpForm.FormDestroy(Sender: TObject);
begin
  FreeMemory;
  FHexDump.Free
end;

end.