Fórum O que há de errado neste código (gravar BLOB) ? #350867

Amigos,

Peguei esse código aq na lista, mas não consegui fazer funcionar ...
Quando executo essa rotina dá o erro ´Access violation ...´

procedure Tfrm.Button1Click(Sender: TObject);
var
Arquivo: string;
bs: TStream;
fs: TMemoryStream;
begin
Arquivo := ´D:\DIR\A1.TXT´;

CDS.Edit;

fs := TMemoryStream.Create;
bs := CDS.CreateBlobStream(CDS.FieldByName(´NOTAS´), bmWrite);
try
fs.LoadFromFile(Arquivo);
fs.SaveToStream(bs);
finally
CDS.Post;
bs.Free;
fs.Free;
end;
end;

Obrigado,
Francisco.