Delphi Form（DFM）To Text

Question

如何將Delphi的DFM表單從二進制格式轉換爲使用C＃的文本格式？

Answer 1

最好的方法可能是撥打CONVERT.EXE，這是Delphi附帶的一個命令行應用程序。 Here's an example in 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是對象的所有二進制表示之後。

正確的方法做的工作就是寫自私的C＃命令行實用程序（不再需要任何外部扶養的），基於二進制DFM文件本身的格式的知識。

如果格式沒有公開，做了顛倒工程應該是可行的：

• ObjectResourceToText源代碼可以（Classes.pas）。
• 轉換器（從二進制到文本，反之亦然）生成工具所需的輸入也可用。