fjcg02
22-11-2009, 15:27:18
Hola amigos,
Creo que el título es bastante explicativo.
Condiciones: Delphi 7 y Firebird 2.0
tengo este código,
procedure TFormMain.SalvarConfiguracionA(Sender: TForm);
var Stream: TMemoryStream;
begin
Stream:= TMemoryStream.Create();
with DM1.SQLSPUsuarioConf do
begin
ParamByName('PUsuario').AsString:= wUsuario;
ParamByName('PObjeto').AsString:= Objeto;
cxGridDBTableViewX.StoreToStream(Stream, [], '');
Stream.Seek(0,0);
ParamByName('PValorA').LoadFromStream(Stream, ftBlob);
ExecProc;
end;
Stream.Free;
end;
en la tabla el campo blob está definido como BLOB, Bynary y tamaño 10.000
El error que me da es el siguiente al hacer el ExecProc
arithmetic exception, numeric overflow or string truncation.
Alguna pista ?
Gracias por su atención
Creo que el título es bastante explicativo.
Condiciones: Delphi 7 y Firebird 2.0
tengo este código,
procedure TFormMain.SalvarConfiguracionA(Sender: TForm);
var Stream: TMemoryStream;
begin
Stream:= TMemoryStream.Create();
with DM1.SQLSPUsuarioConf do
begin
ParamByName('PUsuario').AsString:= wUsuario;
ParamByName('PObjeto').AsString:= Objeto;
cxGridDBTableViewX.StoreToStream(Stream, [], '');
Stream.Seek(0,0);
ParamByName('PValorA').LoadFromStream(Stream, ftBlob);
ExecProc;
end;
Stream.Free;
end;
en la tabla el campo blob está definido como BLOB, Bynary y tamaño 10.000
El error que me da es el siguiente al hacer el ExecProc
arithmetic exception, numeric overflow or string truncation.
Alguna pista ?
Gracias por su atención