在Dll中使用 TFDQuery 的 LoadFromStream 方法注意问题

今天又遇到一怪事,  FDQuery 在服务器 savestream 传回了客户端。 客户端接收后 loadfromstream 接收都正常。  但当我把客户端封装成 dll 时，loadfromstream 就会报错：  Invalid class typecast .

 

{-------------------------------------------------------------------------------}
procedure TFDStorage.Open(AResOpts: TObject; AEncoder: TObject;
  const AFileName: String; AStream: TStream; AMode: TFDStorageMode);
begin
  FResOpts := AResOpts as TFDBottomResourceOptions;
  FEncoder := AEncoder as TFDEncoder;
  ASSERT((AStream <> nil) or (AFileName <> '') or
         (FResOpts <> nil) and (FResOpts.PersistentFileName <> ''));
  FMode := AMode;

.....

....

跟踪后发现停在这个转换上（红字）
unit FireDAC.Stan.Storage;  这个单元

 

折腾了半天，最后发现， 问题出在从外界传入的 TFDQuery 实例（即使用TFDMemTable也是一样），必须在dll内部create，才能正常使用， 而create则必须引用单元 FireDAC.dApt

哎，这种搞得太隐蔽了