Delphi Form (DFM) К тексту

Question

Как я могу преобразовать формы DFM Delphi из двоичного формата в текстовый формат, используя C #?

Answer 1

Лучше всего позвонить CONVERT.EXE, приложению командной строки, входящему в Delphi. Вот пример в Delphi . Вы можете сделать то же самое в C #.

Answer 2

Я использую эти четыре метода для проверки формата файла DFM и преобразования следующим образом:

function IsDFMStreamBinary( AStream: TMemoryStream ): Boolean;
{ Returns true if dfm file is in a binary format }
var
  F: TMemoryStream;
  B: byte;
begin
  B := 0;
  F := TMemoryStream.Create;
  F.LoadFromStream( AStream );
  try
    F.read( B, 1 );
    Result := B = $FF;
  finally
    F.Free;
  end;
end;

function DfmFile2Stream( const ASrc: string; ADest: TStream ): Boolean;
{ Save dfm to stream }
var
  SrcS: TFileStream;
begin
  SrcS := TFileStream.Create( ASrc, fmOpenRead or fmShareDenyWrite );
  try
    ObjectResourceToText( SrcS, ADest );
    Result := True;
  finally
    SrcS.Free;
  end;
end;

procedure Txt2DFM( ASrc, ADest: string );
{ Convert Text to DFM }
var
  SrcS, DestS: TFileStream;
begin
  SrcS := TFileStream.Create( ASrc, fmOpenRead );
  DestS := TFileStream.Create( ADest, fmCreate );
  try
    ObjectTextToResource( SrcS, DestS );
  finally
    SrcS.Free;
    DestS.Free;
  end;
end;

function Dfm2Txt( const ASrc, ADest: string ): boolean;
{ Convert a binary DFM to text }
var
  ASrcS, ADestS: TFileStream;
begin
  ASrcS := TFileStream.Create( ASrc, fmOpenRead );
  ADestS := TFileStream.Create( ADest, fmCreate );
  try
    ObjectResourceToText( ASrcS, ADestS );
    Result := True;
  finally
    ASrcS.Free;
    ADestS.Free;
  end;
end;

Answer 3

Двоичный файл DFM в Delphi, в конце концов, является двоичным представлением объекта .

. Правильный способ выполнить работу - написать эгоистичную утилиту командной строки C # (больше не нужнолюбая внешняя зависимость), основанная на знании формата самого двоичного файла DFM.

Если формат не раскрывается, выполнение обратной инженерии должно быть осуществимым:

• ObjectResourceToText доступен исходный код (Classes.pas).
• Преобразователи (из двоичного в текстовый и наоборот) вгенерировать входные данные, необходимые из инструментов, также доступны.