6 respuestas en este tema

[TiammatMX]

Jóvenes compañer@s, les tengo una pregunta.

OK, Tengo una tabla de MSSQLServer, un TClientDataSet y un TADOQuery apuntando a ésta, y dentro de la tabla un campo Image. Hasta aquí, todo perfecto.

Ahora, dentro de mi aplicación tengo un componente TDBImage, apuntando al ClientDataSet y al campo que deberá contener la imagen. El problema me surge por que no puedo insertar la imagen en el campo vía un TADOQuery (obviamente por que solo admite números, alfanuméricos y así) e intentando por casi todos los medios he llegado a ésto:

delphi

          DtaMdlVrt.clndsDts.Edit;
//          dbimgMpa.PasteFromClipboard;
          dbimgMpa.Picture.LoadFromFile(sArchv);
          DtaMdlVrt.clndsDts.Post;

Lo cual es una medida desesperada. El archivo al que apunta sArchv existe, lo lee y carga un TImage que tengo como "área de prueba", pero al momento de transferirlo al TDbImage es cuando de plano se niega, me guarda un hermoso valor NULL y ni siquiera se muestra en el componente TDbImage.

¿Alguna propuesta, ayuda, consejo o chiste que me pueda ayudar a resolver éste detalle, problema o como quieran llamarlo?

[enecumene]

Pues se me ocurre que debes pasar la imagen como stream (o fileStream?) y guardarlo así mismo a través de parámetros en la Consulta.

[TiammatMX]

Pues se me ocurre que debes pasar la imagen como stream (o fileStream?) y guardarlo así mismo a través de parámetros en la Consulta.

La propuesta es interesante, ¿tendrás algún ejemplito para orientarme?

[enecumene]

Así de rápido se me ocurre lo siguiente:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 fStream:TFileStream;
 Binario: TStrings;
 
 begin
  OpenDialog1.Filter:='All Files(*.*)|*.*';
  if OpenDialog1.Execute then
    fStream := TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
    Binario := TStrings.Create;
     try
      Binario.LoadFromStream(fStream);
      //aqui la comsulta
     finally
       fStream.Free;
       Binario.Free;
    end;
 end;

No lo he probado, no sé si funcionará llamar a la variable Binario de Tipo TStrings como parámetro en la consulta, seguro te servirá como referencia.

Saludos.

[Rolphy Reyes]

Saludos.

Puede que este articulo te sirva.

[TiammatMX]

Resuelto, tantito por bastante suerte en encontrar una manera rápida y fácilmente implementable.

Les platico cómo lo hice.
1.- Hice un Stored Procedure dentro de la base de datos, tal como se muestra en éste código:

sql

-- =============================================
-- Author:        <Felipe Eduardo Ortiz López>
-- Create date: <20100826>
-- Description:    <Guarda la imagen del mapa en la tabla maestra de incidencias.>
-- =============================================
ALTER PROCEDURE [dbo].[spInsrtrMpa]
@IncID INT,
@MncID INT, 
@Mpa Image
AS
BEGIN
  UPDATE MstInc SET UbcGrf = @Mpa WHERE (NmrInc = @IncID) AND (ClvMnc = @MncID)
  RETURN(@@ERROR)
END

2.- Inserté un TADOStoredProcedure, el cual procedí a llenar con los datos pertinentes para aprovechar el nuevo procedimiento almacenado de la base de datos.

3.- Codifiqué un par de llamadas a funciones, llenado de parámetros..., y listo, funciona suave como la seda.

delphi

// 20100825 FEOL Se añade la funcionalidad de guardar la imagen del mapa de la zona referida.
  Image1.Picture.LoadFromFile(frmVslInc.TrnsfrrMpa(Trim(StrNumInc)));
  DtaMdlVrt.ADOstrdprcdrMpa.Parameters[0].Value := StrToInt(StrNumInc);
  DtaMdlVrt.ADOstrdprcdrMpa.Parameters[1].Value := StrToInt(dbedtMnc.Text);
  DtaMdlVrt.ADOstrdprcdrMpa.Parameters[2].Assign(Image1.Picture);
  DtaMdlVrt.ADOstrdprcdrMpa.ExecProc;
  DtaMdlVrt.ADOstrdprcdrMpa.Parameters[0].Value := 0;
  DtaMdlVrt.ADOstrdprcdrMpa.Parameters[1].Value := 0;
  DtaMdlVrt.ADOstrdprcdrMpa.Parameters[2].Value := '';
// EOM

Listo, aparentemente no era nada del otro mundo, pero si nos ponemos estrictos y "exquisitos", no hay documentación suficiente sobre éste tema en ningún lado.

[egostar]

Que bien amigo felipe.mx, lo bueno es que ahora si, YA HAY documentación suficiente para futuras consultas

Salud OS