unit1.pas

bin form to tex form

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    btn1: TBitBtn;
    dlgOpen1: TOpenDialog;
    btn2: TBitBtn;
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function IsBinDfm(const ADfmFileName: string): Boolean;
var
  mBinStream: TMemoryStream;
  mBuff: array[0..2] of byte;
begin
  mBinStream := TMemoryStream.Create;
  try
    mBinStream.LoadFromFile(ADfmFileName);
    mBinStream.Read(mBuff, 3);
 //前三字节: $FF, $0A, $00
    if (mBuff[0] = $FF) and (mBuff[1] = $0A) and (mBuff[2] = $00) then
      Result := True
    else
      Result := False;
  finally
    mBinStream.Free;
  end;
end;

procedure DfmBin2Txt(ADfmFileName: string);
var
  inFileStream: TMemoryStream;
  outFileStream: TFileStream;
begin
  inFileStream := TMemoryStream.Create;
  inFileStream.LoadFromFile(ADfmFileName);
  try
    outFileStream := TFileStream.Create(ADfmFileName, fmCreate);
    try
      try
        inFileStream.Seek(0, soFromBeginning);
        ObjectResourceToText(inFileStream, outFileStream);
      except
        raise Exception.Create('This dfm is bin, error on trans bin to txt.');
      end;
    finally
      outFileStream.Free;
    end;
  finally
    inFileStream.Free;
  end;
end;
procedure TForm1.btn1Click(Sender: TObject);
var sf:string;
begin
if dlgOpen1.Execute then
begin
  sf:=dlgOpen1.FileName;
 if IsBinDfm(sf)  then
 begin
  DfmBin2Txt(sf)
 end;
end;

end;

procedure TForm1.btn2Click(Sender: TObject);
begin
if Self.ClassType=TForm1 then

ShowMessage(Self.ClassName);
end;

end.