请教关于DELPHI 5.0 Midas 编程的问题

Question

N层结构返回过程或函数不难！可参照“32bit深度历险”中的MtsDemo。如果返回的是数据集可用Delphi的Iprovider做为返回的结口对它的操作类似TQuery.但客户端要用到delphi的dbclient.dll它好像是要“许可协议的” ：）我找到一个办法。M$的OLE DB
好像也可以如果有谁知道请告知！
function FileToVariant(FileName: String): OleVariant; 
var 
  AStream: TFileStream; 
  MyBuffer: Pointer; 
begin 
  AStream:=TFileStream.create(FileName,fmOpenRead); 
  try 
    aStream.Seek(0, soFromBeginning); 
    Result:=VarArraycreate([0, AStream.size-1], VarByte); 
    MyBuffer:=VarArrayLock(Result); 
    AStream.ReadBuffer(MyBuffer^, AStream.Size); 
    VarArrayUnlock(Result); 
  finally 
    AStream.Free; 
  end; 
end; 
procedure VariantToFile(FileName: String; var AVariant: OleVariant); 
var 
  AStream: TFileStream; 
  MyBuffer: Pointer; 
  Size: Integer; 
begin 
  AStream:=TFileStream.create(FileName,fmCreate); 
  try 
    aStream.Seek(0, soFromBeginning); 
    Size:=VarArrayHighBound(AVariant,1)+VarArrayLowBound(AVariant,1)+1; 
    MyBuffer:=VarArrayLock(AVariant); 
    AStream.WriteBuffer(MyBuffer^, Size); 
    VarArrayUnlock(AVariant); 
  finally 
    AStream.Free; 
  end; 
end;