Delphi 12中TClientDataSet LoadFromStream报Mismatch in datapacket错误

错误根源 #

你当前的代码错误在于将ftDataSet类型的字段内容通过AsString转换为字符串，再用TStringStream加载。ftDataSet存储的是二进制数据集数据包，并非文本字符串，AsString的转换过程会破坏原始二进制数据的结构，导致后续lCDS2.LoadFromStream无法识别正确的数据包格式，从而抛出"Mismatch in datapacket"错误。TStringStream是用于处理文本流的工具，完全不适合处理二进制数据包。

解决方案 #

方案一：直接访问嵌套数据集（推荐，无需额外流操作） #

ftDataSet类型的字段对应TDataSetField类，可直接获取其关联的嵌套数据集，无需通过流中转：

function TDataModuleBewerkLanguage.IsOldLanguageFormat(const AFile: String): Boolean;
var
  lCDS1 : TClientDataSet;
  lNestedDS : TDataSet;
begin
  lCDS1 := TClientdataSet.Create(nil);
  try
    lCDS1.LoadFromFile(AFile);  
    if not (lCDS1.FieldByName(sTranslate) is TDataSetField) then
      Raise Exception.Create('TT_TRANSLATE no dataset field');
    
    lNestedDS := TDataSetField(lCDS1.FieldByName(sTranslate)).DataSet;
    lNestedDS.Open; // 确保嵌套数据集处于打开状态
    try
      Result := (lNestedDS.FieldCount <= 3);
    finally
      lNestedDS.Close;
    end;
  finally
    lCDS1.Free;
  end;
end;

方案二：用二进制流加载到新的TClientDataSet #

如果需要将嵌套数据集加载到独立的TClientDataSet实例中，使用TMemoryStream（二进制流）替代TStringStream：

function TDataModuleBewerkLanguage.IsOldLanguageFormat(const AFile: String): Boolean;
var
  lCDS1,
  lCDS2 : TClientDataSet;
  lMS   : TMemoryStream;
  lDataField : TDataSetField;
begin
  lCDS1 := TClientdataSet.Create(nil);
  lCDS2 := TClientdataSet.Create(nil);
  lMS := TMemoryStream.Create;
  try
    lCDS1.LoadFromFile(AFile);  
    if not (lCDS1.FieldByName(sTranslate) is TDataSetField) then
      Raise Exception.Create('TT_TRANSLATE no dataset field');
    
    lDataField := TDataSetField(lCDS1.FieldByName(sTranslate));
    // 将嵌套数据集的二进制数据包保存到内存流
    lDataField.DataSet.SaveToStream(lMS);
    lMS.Position := 0;
    lCDS2.LoadFromStream(lMS);
    Result := (lCDS2.FieldCount <= 3);
  finally
    lMS.Free;
    lCDS2.Free;
    lCDS1.Free;
  end;
end;

关键说明 #

• 永远不要将ftDataSet、ftBlob等二进制类型字段的内容通过AsString转换为字符串，这会破坏原始数据结构。
• 处理二进制数据必须使用TMemoryStream或其他二进制流类，避免使用TStringStream这类文本流工具。

内容的提问来源于stack exchange，提问作者Jan Doggen