TynSerial序列（还原）TFDMemTable

最新推荐文章于 2021-02-09 11:15:54 发布

weixin_30685029

最新推荐文章于 2021-02-09 11:15:54 发布

阅读量155

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/hnxxcxg/p/10972396.html

本文介绍了使用TFDMemTable进行数据查询和提交的具体方法，包括如何通过TynSerial序列化工具实现数据的序列化和反序列化，以及如何利用FHttp组件完成HTTP请求和响应处理。

TynSerial序列（还原）TFDMemTable

1）TFDMemTable查询数据

procedure TForm1.Qrys(accountno, sql, sql2: string; DataSet, DataSet2: TFDMemTable);
// TFDMemTable主从表查询
var
  url: SockString;
  i: integer;
  serial: TynSerial;
begin
  serial := TynSerial.Create;
  try
    url := 'querys';
    serial.WriteString('accountno', accountno);
    serial.WriteString('sql', sql);
    serial.WriteString('sql2', sql2);
    i := FHttp.Post(url, serial.Text, FDataType);
    if i = 200 then
    begin
      serial.Text := FHttp.Content;
      serial.ReadFDDataSet('dataset', DataSet);
      serial.ReadFDDataSet('dataset2', DataSet2);
    end
    else
      ShowMessage(i.ToString + ' error');
  finally
    serial.Free;
  end;
end;

　2）　TFDMemTable提交数据

function TForm1.Save(accountno, tablename: string; dataset: TFDMemTable): string;
// TFDMemTable提交
var
  url: SockString;
  i: Integer;
  serial: TynSerial;
begin
  serial := TynSerial.Create;
  try
    url := 'save2';
    serial.WriteString('accountno', accountno);
    serial.WriteString('tablename', tablename);
    serial.WriteFDDelta('delta', dataset);
    i := FHttp.Post(url, serial.Text, FDataType);
    if i = 200 then
    begin
      serial.Text := FHttp.Content;
      if serial.ReadBool('result') then
        dataset.MergeChangeLog
      else
        ShowMessage('提交失败');
    end
    else
      ShowMessage(i.ToString + ' error');
  finally
    serial.Free;
  end;
end;

转载于:https://www.cnblogs.com/hnxxcxg/p/10972396.html