campo blob

[acertij022]

Hola delphiano tengo un gran problema al intentar colocar una imagen en interbase lo coloca en eesta parte del foro porque puedo insertar imagen por medio de ibexpert el codigo que uso es el siguiente:

Código Delphi [-]
procedure TFCliente.SpeedButton8Click(Sender: TObject);
var
  m, f: TStream;
begin
if FileExists(ExtractFilePath(ParamStr(0))+'imagen.jpg')then
  begin
  //stream a partir campo Blob que contendrá la imagen
  m := DataModule1.IBQueryCliente.CreateBlobStream(DataModule1.IBQueryClienteFOTO, bmWrite);
  //stream para acceder al archivo gráfico
  f:= TFileStream.Create(ExtractFilePath(ParamStr(0))+'imagen.jpg', fmOpenRead);
  //copiar de un stream a otro
  m.CopyFrom(f, f.Size);
  end;
DataModule1.IBQueryCliente.Post;
f.Free;
m.Free;
end;

y me tira el siguiente error:
Arithmetic exeption,numeric overflow, or string truncation Cannot transliterate character between character set

he creado en la base el campo foto de lasiguiente manera:
FOTO BLOB SUB_TYPE 0 SEGMENT SIZE 80
y he intentado tambien colocarlo como
FOTO BLOB teniendo el mismo error

[Julià T.]

si te sirve un ejemplo genérico ahí va:

Código Delphi [-]
function FileToBlob(aFile:string;aBlob:TBlobField):boolean;
begin
  Result:=False;
  if not FileExists(aFile) then exit;
  with TDataset(aBlob.GetParentComponent) do
  try
    Edit;
    aBlob.LoadFromFile(aFile);
  //Post; //no es conveniente hacerlo aqui ni olvidarse de el
    Result:=True;
  finally
  //nada que hacer aqui
  end;
end;