soap 做, 是可以返回 Variant 数据集的 比方 ISoapDataSet function GetData(条件): Variant; function ApplyUpdates(Delta: Variant): Variant;实现, new 一个 DataSetProvider, dataset 指明用的 query TSoapDataSet function GetData: Variant; result := DSP.Data; function AppplyUpdates var ErrorCount: Integer; begin result := DSP.ApplyUpdates(Delta, 0, ErrorCount);
//上面只发生一个错就退出, 在DSP的 OnUpdateError 事件中把 error message 放到 FMessage 里 if ErrorCount <> 0 then raise Exception.Create(FMessage); end;
比方
ISoapDataSet
function GetData(条件): Variant;
function ApplyUpdates(Delta: Variant): Variant;实现, new 一个 DataSetProvider, dataset 指明用的 query
TSoapDataSet
function GetData: Variant;
result := DSP.Data; function AppplyUpdates
var
ErrorCount: Integer;
begin
result := DSP.ApplyUpdates(Delta, 0, ErrorCount);
//上面只发生一个错就退出, 在DSP的 OnUpdateError 事件中把 error message 放到 FMessage 里
if ErrorCount <> 0 then raise Exception.Create(FMessage);
end;