//取结果集
function TMTSServer.MTS_GetDataSet(const AiHosCode: WideString;
AiTermInfo, AiBuffer01, AiBuffer02: OleVariant;
out AoBuffer01,
AoBuffer02, AoMsg: OleVariant): OleVariant;
begin
Result := -1;
Try
With MTS_SelectQuerydo
begin
Close;
SQL.Clear;
SQL.Text := AiBuffer01[0];
Open;
AoBuffer01 := MTS_SelectDataSetProvider.Data;
If IsEmpty then
AoMsg := '下载成功:记录集为空'
else
AoMsg := AiBuffer01[0];
end;
UserLog(AiHosCode, rdTermInfo, AoMsg);
Result := 0;
Except
On E:Exceptiondo
begin
AoMsg := AiBuffer01[0] + ':' + E.Message;
UserLog(AiHosCode, rdTermInfo, AoMsg);
end;
end;
end;
]