cds.data:=dsp.data赋值有时会出现AV错误剖析

如果QUERY没有查询到任何数据，cds.data:=dsp.data赋值会触发AV错误。

大家知道，DATASNAP有许多远程方法就是返回OLEVARIANT类型的数据，当远程方法没有返回任何数据的时候，cds.data:=远程方法函数赋值的时候，同样会触发AV错误。

那么怎样解决此类问题呢？

1）中间件远程方法作如下处理

function TServerMethods1.QuerySql(const accountNo, sql: WideString): OleVariant;
var
d: TfrmDB;
begin
Result := null;  // 默认返回NULL
if (accountNo = ‘‘) or (sql = ‘‘) then
Exit;

2）客户端调用远程方法作如下处理

function TdmSys.QuerySQL(const sql: string; cds: TClientDataSet; accountno: string = ‘0‘): Boolean;
var
v: OleVariant;
m: TServerMethods1Client;
begin
Result := False;
try
waitInfo.Show;
waitInfo.Update;

if appInfo.tier = 3 then
begin
if ConnectAppServer and (sql <> ‘‘) and (cds <> nil) then
begin
m := TServerMethods1Client.Create(SQLConnection1.DBXConnection);
v := m.QuerySQL(accountno, sql);
m.Free;
if not VarIsNull(v) then  // VarIsNull(v) 判断远程方法是否有返回数据
begin
cds.Data := v;
Result := True;
end;
end;

cds.data:=dsp.data赋值有时会出现AV错误剖析