[[kurono]]

amigos les cuento que e probado varios codigo de los link los cuales en si son todos parecidos y en todos el codigo me da error en una linea del codigo

Código Delphi [-]

procedure guardar(FileName, FieldName: string);
var
   blob, myFileStream : TStream;
begin
   blob := cds.CreateBlobStream(cds.FieldByName(FieldName), bmWrite);
  try
     blob.Seek(0, soFromBeginning);
     myFileStream := TFileStream.Create(FileName, fmShareDenyWrite);
  try
     blob.CopyFrom(myFileStream, myFileStream.Size) ;
  finally
     myFileStream.Free ;
 end;
   finally
     blob.Free ;
 end;
end;

la parte tachada en negrita es donde me da el error y el cds lo declare como TDataSet