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
m := DataModule1.IBQueryCliente.CreateBlobStream(DataModule1.IBQueryClienteFOTO, bmWrite);
f:= TFileStream.Create(ExtractFilePath(ParamStr(0))+'imagen.jpg', fmOpenRead);
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