Re: ?

Wed, 26 Jul 2006 03:17:47 -0700 

>    А чем стандартный PacketWriter не устроил ?
> Или ты без датасета под провайдером работаешь ?
> Колись давай :)

procedure AppendDataPacket(DestCDS: TCustomClientDataSet; SourceCursor: 
TSQLCursor);
var
  FDSWriter: TDataPacketWriter;
  Packet: OleVariant;
  RecsOut: Integer;
begin
  if not Assigned(SourceCursor) or not Assigned(DestCDS) then
    Exit;

  RecsOut := -1;
  FDSWriter := TDataPacketWriter.Create;
  try
    FDSWriter.GetDataPacket(DestCDS, SourceCursor, RecsOut, Packet);
    DestCDS.AppendData(Packet, True);
  finally
    FDSWriter.Free;
  end;
end;

TDataPacketWriter - уже работает с YA,ORa

Ответить