0

Delphi-7基本的にzipファイルを作成し、5つの機能を持つコンポーネントに取り組んでいます（以下）

1]フォルダ

2] 画像

3]テキストファイル

4]アプリケーションディレクトリまたはアプリケーションデータディレクトリにzipファイルのフォルダーを作成します

5] Zipファイルを作成するかどうか

コンポーネントはフォームにドロップされます。これで、ユーザーが実際にコンポーネントの機能を有効にすることを決定できる別のアプリケーション ( settingAppl ) ができました。5ユーザーが選択した設定を に保存したので、すべて正常に動作していますregistry。レジストリを使用するのではなく (レジストリ *.reg をコンポーネントと共に送信するのが良い考えかどうかはわかりません)、settingApplが 5 つの設定を書き込むDAT ファイルAbout.com_fileof_delphiを使用しました。5つの設定を読み取れるように、コンポーネントを持つアプリケーションと一緒にファイルを送信する必要があります。

ファイルがアプリケーション ディレクトリにない場合にどうすればよいか困っているので、コンポーネントに 5 つの設定を直接設定する方法はありますか?

Eureka log のように、これと似たようなことを行う方法を誰か教えてもらえますか? つまり、 eureka logs で設定を行う場合、プログラマーは最終的なアプリケーションと一緒にファイルを含めたり送信したりする必要はありません

ここに画像の説明を入力

4

1 に答える 1

2

@davidと@KenWhiteのアイデアを検討した後（これは私が考えていたアイデアよりもはるかに単純でした..またより良い（方法））私はpublishedこのようなコンポーネントにプロパティを導入しました

private
  { Private declarations }
  FFolderzip  ,Fimagezip,Ftextzip      : Boolean;
  FMessagebo : string;
published
   { Published declarations }
   {component Properties}
   {#1.Folder Zip}
   property ZipFolder : Boolean read FFolderzip  write FFolderzip  default False;
   {#2.Send imagezip ?}
   property ZipImage : Boolean read Fimagezip   write Fimagezip   default False;
   {#3.text files}
   property ZipText : Boolean read Ftextzip   write Ftextzip   default False;
   {#4.message}
   property ZipMessage: String read FMessagebo write FMessagebo ; 
    ....
 end;

次に、プロパティにアクセスします

   procedure TForm1.Button1Click(Sender: TObject);
    var
       bZipFolder,bZipImage,bZipText: boolean;
       sMessage : string;
   begin
       bZipFolder:=zipperCom1.ZipFolder ;
       bZipImage :=zipperCom1.ZipImage; 
       bZipText  :=zipperCom1.ZipText; 
       sMessage  :=zipperCom1.ZipMessage;
    end;

追加の参照用のソース：-

1] ADDWriteToReadOnlyProps

2] Delphi-プロパティ

于 2012-06-22T12:16:43.807 に答える