Hola Estoy tratando de hacer eso mismo en una base de datos SQL server 2005, pero al cargar la imagen para presentarla en un objeto DBImage, me marca error, estoy usando el BDE, este es mi codigo:
Dm.Query2.Close;
Dm.Query2.SQL.Clear;
Dm.Query2.SQL.Add('Insert Into PrendaFoto(IdGpoPrenda, IdPrenda, Foto)');
Dm.Query2.SQL.Add(' Values(:IdGpoPrenda, :IdPrenda, :Foto)');
Dm.Query2.ParamByName('IdGpoPrenda').AsInteger := Dm.TUniformes.FieldByName('idGpoPrenda').AsInteger;
Dm.Query2.ParamByName('IdPrenda').AsInteger := Dm.TUniformes.FieldByName('idPrenda').AsInteger;
Dm.Query2.ParamByName('Foto').LoadFromFile( OpenPictureDialog1.FileName, ftBlob );
Dm.Query2.ExecSQL;
Dm.Query2.Close;
Existe alguna restriccion de tamaño, formato o que pasa?
este es el error que me manda:
---------------------------
Debugger Exception Notification
---------------------------
Project Uniformes.exe raised exception class EInvalidGraphic with message 'Bitmap image is not valid'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
Gracias de antemano
Cita:
Empezado por subzero
Hola amigo, prueba con esto quizas te sea de apoyo
*****
with query do
begin
close;
sql.clear;
sql.Add('UPDATE NOMBRE_TABLA');
sql.Add('SET CAMPO_FOTO = :fto');
sql.Add('WHERE CODIGO = :vlr');
ParamByName('vlr').AsString := '' + codigo_planta + '';
ParamByName('fto').LoadFromFile(OPDFoto.FileName, ftBlob);
ExecSQL;
end;
*****
Esto lo hago desde delphi 7...
|