如何在运行时正确初始化编解码器(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);调用

进入代码后，我发现它甚至不会尝试加载键，因为编解码器没有初始化。当我在表单上放置组件时，一切都正常。但我不需要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;