delphi - 嵌入文件到delphi exe应用程序中(不作为应用程序的单独文件)

Question

我想将文件(任何类型)嵌入到我的exe应用程序中，并能够在远程提取以使用它，我知道如何通过嵌入到资源中来做到这一点，但我不想放置对于应用程序目录中的文件，我想将所有文件(如 .rec)存储到我的 exe 中，在 c# 中，可以存储为文本文件，然后通过 FileStream 读取它，但在 Delphi 中，资源文件与 exe 文件是分开的。 有什么解决方案可以做到这一点吗？非常感谢!

Answer 1

您应该创建一个 .rc 文件并将其添加到您的项目中。 RC文件的内容如下:

FIXED48                 IMAGE           ..\Resources\Fixed48x48.png
MENU16                  IMAGE           ..\Resources\Menu16x16.png
TICK            SOUND       ..\Resources\Tick.wav
PING            SOUND       ..\Resources\Ping.wav

现在，完成构建后，您可以使用 TResourceStream 加载这些文件之一:

procedure TdmReportGeneral.InsertLogo(Memo: TStringList; View: TfrView);
var
    S:    TResourceStream;
begin
    if (View is TfrPictureView) and (View.Name = 'Logo') then begin
        S := TResourceStream.Create( 0, 'FIXED48', 'IMAGE' );
        try
            // do something useful... TfrPictureView(View).Picture.MetaFile.LoadFromStream( S );
        finally
            S.Free();
        end;
    end;
end;