如何在运行时正确初始化Code​​c（Turbo Power Lock Box 3）？

Question

我使用以下程序对流进行编码。

procedure SaveEncodedStream(Strm:TStream; LicFileName:String);
var
   C:TCodec;
    CL:TCryptographicLibrary;
    Sg:TSignatory;
    KFS,DFS:TFileStream;
    Dir:String;
begin
   CL:=TCryptographicLibrary.Create(nil);
   C:=TCodec.Create(nil);
  SG:=TSignatory.Create(nil);

   Dir :=  ExtractFilePath(ParamStr(0));
   KFS:=TFileStream.Create(Dir+PublicKeyFile,fmOpenRead);
   DFS:=TFileStream.Create(LicFileName,fmCreate);

  try
  C.CryptoLibrary:=CL;
  C.BlockCipherId := 'native.RSA';
  C.ChainModeId := 'native.CBC';
  C.AsymetricKeySizeInBits := 1024;
  SG.Codec:=C;
  SG.LoadKeysFromStream(KFS,[partPublic]);
  C.EncryptStream(Strm,DFS);
 finally
  CL.Free;
  C.Free;
  SG.Free;
  KFS.Free;
  DFS.Free;
 end;
end;

上收到“错误模式”错误

C.EncryptStream(Strm,DFS);致电

进入代码我发现它甚至不会尝试加载密钥，因为Codec未初始化。当我在组件上放置组件时 - 一切正常。但我不需要Form或DataModule。

Answer 1

没有找到摆脱DataModule的解决方案。看起来组件需要一个正确初始化自己。因此，作为解决方法，我创建了全局DataModule，其中所有组件都在设计模式下配置。我在SaveEncodedStream中使用该模块：

uses 
  ... EncryptDataModule;
 ...
var 
   BeenHere:Boolean = false;
 ...
procedure SaveEncodedStream(Strm:TStream; LicFileName:String);
 var
   KFS,DFS:TFileStream;
   Dir:String;
begin

   Dir :=  ExtractFilePath(ParamStr(0));
   KFS:=TFileStream.Create(Dir+PublicKeyFile,fmOpenRead);
   DFS:=TFileStream.Create(LicFileName,fmCreate);

   try
    DataModule.SG.LoadKeysFromStream(KFS,[partPublic]);
    if BeenHere then DataModule.C.Reset;  
    DataModule.C.EncryptStream(Strm,DFS);
    BeenHere:=true; 
  finally
   KFS.Free;
   DFS.Free;
  end;
end;