delphi 如何读取写入TDataSet.Field的打包记录(ftpd)

7ajki6be 于 12个月前发布在其他

关注(0)|答案(1)|浏览(93)

我们有一个遗留数据集，其中一个字段（最后一个）用于保存打包记录。
我们现在需要访问这些数据，我想把它阅读回一个打包的记录会很简单--但不是那么简单。
设计/编写代码的人早就走了，所以我只剩下我能发现的东西。
我目前掌握的情况是-
写入的打包记录格式为：

TRecordStru = packed record
       RecData1 : integer ;
       RecData2 : array [0..9] of char ;
       RecData3 : array [0..9] of char ;
       RecData4 : integer ;
       RecData5 : array [0..9] of char ; 
       RecData6 : integer ;
    end;

字符串
创建打包记录的代码为：

with myRecord do // TRecordStru
begin
  RecData1 := Num1   ; // integer
  StrPLCopy(RecData2,StrData2,sizeof(RecData2)) ; // mm/dd/yyyy
  StrPLCopy(RecData3,StrData3,sizeof(RecData3)) ; 
  RecData4 := Num2   ; // integer 
  StrPLCopy(RecData5,StrData5,sizeof(RecData5)) ; 
  RecData6 := Num6   ; // integer 
end;

型
为字段创建数据的代码：

...
var
  tmpData : string
...    
tmpData := spaces(sizeof(myRecord)); // TRecordStru
move(myRecord,tmpData[1],sizeof(myRecord));
...

型
以及将数据保存到字段的代码：

...FieldByName('myField').AsString := VarToStr(Value)+#0 ; // variant

型
为了阅读回它，我尝试了以下方法：
FieldByName('myField').DataType报告的DataType是ftBytes。
我可以使用以下方法将数据放入缓冲区：

FieldByName('myField').GetData(myBuffer)

型
myBuffer定义为：

myBuffer : array of byte;

型
初始化如下：

getmem(myBuffer,260) ;

型
我可以看到数据在那里，可以手动解析，但有没有一个“正确”的方法来做到这一点？

delphi

来源：https://stackoverflow.com/questions/77353509/how-to-read-a-packed-record-written-to-a-tdataset-field-ftbytes

1条答案

按热度按时间

chy5wohz1#

我会用这样的东西。也许再加些检查。

type
  PRecordStru = ^TRecordStru;

// ...

function RecToVar(const pSource: PRecordStru): Variant;
var
  pValue: PByte absolute pSource;
  i: Integer;

begin
  Result := Null;
  if ( nil = pSource ) then exit;

  try
    Result := VarArrayCreate([0, SizeOf(TRecordStru) - 1], varByte);
  except
    exit;
  end;

  for i := 0 to SizeOf(TRecordStru) - 1 do
  begin
    Result[i] := pValue[i];
  end;
end;

function VarToRec(const vSource: Variant; const pTarget: PRecordStru): Boolean;
var
  pValue: PByte absolute pTarget;
  i: Integer;

begin
  Result := ( pTarget <> nil )
    and VarIsArray(vSource)
    and ( 1 = VarArrayDimCount(vSource) )
    and ( SizeOf(TRecordStru) - 1 = VarArrayHighBound(vSource, 1) );

  if ( not Result ) then exit;

  for i := 0 to SizeOf(TRecordStru) - 1 do
  begin
    pValue[i] := vSource[i];
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  r: TRecordStru;

begin
  r.RecData1 := 1;
  r.RecData2 := '2222222222';
  r.RecData3 := '3333333333';
  r.RecData4 := 4;
  r.RecData5 := '5555555555';
  r.RecData6 := 6;

  MyDataSet.Append();
  // ...
  MyDataSet.FieldValues['myField'] := RecToVar(@r);
  MyDataSet.Post();
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  r: TRecordStru;

begin
  if ( VarToRec(MyDataSet.FieldValues['myField'], @r) ) then
  begin
    // ...
  end;
end;

字符串

赞(0）回复(0）举报 12个月前

我来回答

delphi 如何读取写入TDataSet.Field的打包记录(ftpd)

1条答案

相关问题

热门标签

最新问答