爲TRichEditViewer導入外部RTF文件？

Question

我在Inno Setup腳本的自定義頁面上使用TRichEditViewer。是否可以將外部RTF文件讀入變量，並將該變量用作查看器的內容？或者我必須在腳本中保留實際的RTF代碼？

任何幫助感激地收到。

Answer 1

您應該可以使用LoadStringFromFile將RTF文件讀入字符串。從英諾documentation：

原型：

功能LoadStringFromFile（常量文件名：字符串; VAR S：AnsiString類型）：布爾值;

說明：

加載指定的二進制或非Unicode文本文件到指定的字符串。如果成功則返回True，否則返回False。

你應該能夠定義ANSI Inno Setup的或AnsiString類型變量string類型變量的Unicode Inno Setup的使用類似爲：

var 
#ifndef UNICODE 
    rtfstr: string; 
#else 
    rtfstr: AnsiString; 
#endif 

然後在代碼：

LoadStringFromFile('filenamehere.rtf', rtfstr); 

A然後使用類似於下面的代碼。在這個例子中假設oRichViewer是TRichEditViewer對象：

oRichViewer.UseRichEdit := True; 
oRichViewer.RTFText := rtfstr; 

這應該有把rtfstr的，我們從文件中較早裝入TRichEditViewer效果。

Answer 2

如果您不想在顯示文件之前將.rtf文件複製到臨時文件夾中，並且希望在編譯時使用RTF內容填充變量 - 您可以使用Inno Setup Preprocessor。

首先，創建一個宏ReadFileAsStr：

#pragma parseroption -p- 

#define FileHandle 
#define FileLine 
#define FileName 
#define Result 
#sub ProcessFileLine 
    #define FileLine = FileRead(FileHandle) 
    #if Len(Result) > 0 && !FileEof(FileHandle) 
    #expr Result = Result + "#10#13 + \n" 
    #endif 
    #if FileLine != '\0' 
    #expr Result = Result + "'" + FileLine + "'" 
    #endif 
#endsub 
#sub ProcessFile 
    #for {FileHandle = FileOpen(FileName); \ 
    FileHandle && !FileEof(FileHandle); ""} \ 
    ProcessFileLine 
    #if FileHandle 
    #expr FileClose(FileHandle) 
    #endif 
#endsub 

#define ReadFileAsStr(str AFileName) \ 
    Result = '', FileName = AFileName, ProcessFile, Result 

並使用它：

var 
    rtfstr := {#emit ReadFileAsStr("path_to.rtf")}; 

這適用於大多數RTF文件，但裏面RTF一些字符可以打破這個代碼。要解決此問題，您需要轉義'，並且可能是ProcessFileLine子中的一些其他字符。