Guardar Imagenes zeoslib+lazarus

[keine1lust]

1.
declarar el uso de unidad DB y componente Zeos

Código Delphi [-]
unit freg_per;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons,
  StdCtrls, MaskEdit,ExtCtrls, ExtDlgs,conexionesbd, ZDataset,DB;

es importante declarar la unidad DB ya que el contiene las constantes para el manejo de varibles tipo blob ejemplo: ftBlob, ptInput si no la declaran el compilador no reconocerá dichas variables

2. este codigo es el que te da la guia de zeoslib:

Código Delphi [-]
Var TheStream : TMemoryStream;
Begin
  TheStream := TMemoryStream.Create;
  Try
    Image1.Picture.Bitmap.Savetostream(TheStream);
    With qryBlobInsert do 
    Begin
      Sql.Text := 'INSERT INTO EVENTS (EventNo,EVENT_PHOTO) VALUES (100,:ThePicture)';
      Params.Clear;
      Params.CreateParam(ftBlob,'ThePicture', ptInput);
      ParamByName('ThePicture').LoadfromStream(TheStream,ftBlob);
      ExecSQL;
    End;
  Finally
    TheStream.Free;
  End;
End;

en mi caso lo adapte a lo que necesitaba:

Código Delphi [-]
 TheStream := TMemoryStream.Create;
  Try
    Image1.Picture.Jpeg.Savetostream(TheStream);

    conexiodb.Conectar_Mysql; //llamo a la base de datos para conectarme
    sqlejecuta:=TZQuery.Create(nil);//creo un nuevo objeto

    With sqlejecuta do
    Begin
      Connection:= Conexion;
      Sql.Text:='INSERT INTO personal(cedula,nom_comp,direccion,telf_movil,'+
                'tlf_local,cargo,foto,departamento_iddepart,'+
                'parametro_idparametro,'+
                'tip_empleado_idtip_emp,id_user) '+
                'VALUES('+mcedula+','+ mnom_comp+','+mdireccion+
                ','+mtelf_movil+','+ mtlf_local+','+mcargo+',:foto'+
                ','+middepart+','+midparametro+','+midtip_emp+
                ','+QuotedStr(tid_user)+')';
      Params.Clear;
      Params.CreateParam(ftBlob,'foto', ptInput);
      ParamByName('foto').LoadfromStream(TheStream,ftBlob);
      ExecSQL;
    End;
  Finally
    TheStream.Free;
  End;

   MessageDlg('Registro almacenado con exito',mtInformation,[mbOK], 0);

   end     
Conexion.Disconnect;

de igual forma como hice el insert lo adapto para hacer update

hice una pequeña combinación ya que por el momento tengo que investigar mas sobre el uso de Params

si alguien me puede sugerir como optimizar el código o que sea mas presentable para otros programadores se los agradecería

[Casimiro Noteví]

[ecfisa]

Hola keine1lust.

Primero que nada te agradezco que hayas compartido tu código

Siempre que sea posible, es aconsejable el uso de parámetros, entonces mi sugerencia es: Tratar de parametrizar todas las inserciones.

No he usado los componentes Zeos, aunque tengo entendido que son similares a los IBX, basándome en eso, con un TIBQuery lo haría de este modo:

Código Delphi [-]
var
  MS: TMemoryStream;
begin
  ...
  with sqlejecuta do
  begin
    Connection:= Conexion;
    Close;
    SQL.Clear;
    SQL.Add('INSERT INTO PERSONAL(CEDULA,NOM_COMP,DIRECCION,TELF_MOVIL,');
    SQL.Add('TLF_LOCAL,CARGO,FOTO,DEPARTAMENTO_IDDEPART,');
    SQL.Add('PARAMETRO_IDPARAMETRO,TIP_EMPLEADO_IDTIP_EMP,ID_USER)');
    SQL.Add('VALUES(:CEDULA,:NOM_COMP,:DIRECC,:MOVIL,:FIJO,:CARGO,');
    SQL.Add(':FOTO,:DEPTO_ID,:PARAM_ID,:TIP_EMPL,:USER_ID)');
    ParamByName('CEDULA').AsString:= mcedula;
    ParamByName('NOM_COMP').AsString:= mnom_comp;
    ParamByName('DIRECC').AsString:= mdireccion;
    ParamByName('MOVIL').AsString:= mtelf_movil;
    ParamByName('FIJO').AsString:= mtlf_local;
    ParamByName('CARGO').AsString:= mcargo;
    ParamByName('DEPTO_ID').AsString:= middepart;
    ParamByName('PARAM_ID').AsString:= midparametro;
    ParamByName('TIP_EMPL').AsString:= midtip_emp;
    ParamByName('USER_ID').AsString:= tid_user;
    MS:= TMemoryStream.Create;
    try
      Image1.Picture.Bitmap.SaveToStream(MS);
      MS.Position:= 0;
      ParamByName('FOTO').LoadFromStream(MS, ftBlob);
    finally
      MS.Free;
    end;
    ExecSQL;
    ...

De este modo funciona correctamente (con IBX), ojalá sea igual para Zeos y la sugerencia te resulte útil.

Saludos

[Casimiro Noteví]

[keine1lust]

Código Delphi [-]
 

Var  MS : TMemoryStream;

begin

conexiodb.Conectar_Mysql;
    sqlejecuta:=TZQuery.Create(nil);

      with sqlejecuta do
  begin
    Connection:= Conexion;
    Close;
    SQL.Clear;
    SQL.Add('INSERT INTO PERSONAL(CEDULA,NOM_COMP,DIRECCION,TELF_MOVIL,');
    SQL.Add('TLF_LOCAL,CARGO,FOTO,DEPARTAMENTO_IDDEPART,');
    SQL.Add('PARAMETRO_IDPARAMETRO,TIP_EMPLEADO_IDTIP_EMP,ID_USER)');
    SQL.Add('VALUES(:CEDULA,:NOM_COMP,IRECC,:MOVIL,:FIJO,:CARGO,');
    SQL.Add(':FOTO,EPTO_ID,:PARAM_ID,:TIP_EMPL,:USER_ID)');
    ParamByName('CEDULA').AsString:= Trim(trif.Text);
    ParamByName('NOM_COMP').AsString:= Trim(tnom_per.Text);
    ParamByName('DIRECC').AsString:= Trim(mdir.Text);
    ParamByName('MOVIL').AsString:= Trim(tmovil.Text);
    ParamByName('FIJO').AsString:= Trim(tntlf.Text);
    ParamByName('CARGO').AsString:= Trim(tnom_cargo.Text);
    ParamByName('DEPTO_ID').AsInteger := middepart;
    ParamByName('PARAM_ID').AsInteger:= midparametro;
    ParamByName('TIP_EMPL').AsInteger:= midtip_emp;
    ParamByName('USER_ID').AsString:= tid_user;    
    MS:= TMemoryStream.Create;
    try
      Image1.Picture.Bitmap.SaveToStream(MS);
      MS.Position:= 0;
      ParamByName('FOTO').LoadFromStream(MS, ftBlob);
    finally
      MS.Free;
    end;
        try
      ExecSQL;
      MessageDlg('Registro Almacenado con exito',mtInformation,[mbOK], 0);
      exit;
     except
      on  E: Exception do
        begin
        //showmessage('Problemas con query ['+text+']');
        MessageDlg('Problemas de conexion con la base de datos',mtWarning,[mbOK], 0);
        exit;
       end;
     end;

      end;

Muchas gracias ecfisa funciona perfecto ya solo agregue otra excepcion a ExecSQL; y antes con Parametros no me funcionaba era por esta linea:

Código Delphi [-]
Params.CreateParam(ftBlob,'foto', ptInput);

como escribi anteriormente tengo que leer mas sobre el uso de parámetros de nuevo muchas Gracias estoy haciendo esto para tratar pasar un sistema hecho en vfp a pascal ya me falta los reportes que actualmente los estoy haciendo en fortesreport4lazarus claro ya poco a poco haré un código mas limpio