Problema cargando Imagen desde base de Datos

[roman]

¿Por qué MS.Seek(80,0)? ¿De dónde sale ese 80?

Yo pondría MS.Seek(0, soFromBeginning)

// Saludos

[[enecumene]]

Empezado por roman

¿Por qué MS.Seek(80,0)? ¿De dónde sale ese 80?

Yo pondría MS.Seek(0, soFromBeginning)

// Saludos

De la ayuda de Delphi:

The following example deletes the stream from position 60 within the blob stream to the end.

procedure TForm1.Button1Click(Sender: TObject);

var
Stream1: TBlobStream;
begin
Table1.Edit;
if Table1.State = dsEdit then
begin
Stream1 := Table1.CreateBlobStream(FieldByName('Notes', bmReadWrite);
try
Stream1.Seek(60, 0); { Move to byte 60}
Stream1.Truncate; { Delete from current position (60) to end of stream.}
Table1.Post;
finally
Stream1.Free;
end;
end;

end;

¡gracias Roman ahora sí me funcionó!.

Saludos.

[[enecumene]]

Vale, El amor duró poco, otra vez me sale el bendito "JEPG Error #42", y no le hecho más cambios salvo lo propuesto por Roman.

Ya no sé que hacer.

Saludos.

[[enecumene]]

Sigo con mi Odisea con este asunto lo que he hecho:

Función:

Código Delphi [-]
function CargarImagen(Campo:TBlobField): integer;
var
bS : TBlobStream;
buffer : Word;
hx : string;
begin
  Result := -1;
  bS := TBlobStream.Create(Campo, bmRead);
    try
      while (Result = -1) and
        (bS.Position + 1 < bS.Size) do
          begin
            bS.ReadBuffer(buffer, 1);
            hx := IntToHex(buffer, 2);
          if hx = 'FF' then begin
            bS.ReadBuffer(buffer, 1);
            hx := IntToHex(buffer, 2);
          if hx = 'D8' then Result := bS.Position - 2
            else if hx = 'FF' then
              bS.Position := bS.Position-1;
            end; //if
           end; //while
          finally
        bS.Free
      end; //try
end;

Aquí para cargar la imagen:

Código Delphi [-]
var
  bs: TBlobStream;
  Pic: TJPEGImage
begin
bS := TBlobStream.Create(ZTable1FOTO2, bmRead);
                try
                  bS.Seek(CargarImagen(ZTable1FOTO2),soFromBeginning);
                  Pic:=TJpegImage.Create;
                    try
                       Pic.LoadFromStream(bS);
                       Foto.Picture.Graphic := Pic;
                    finally
                       Pic.Free;
                    end;
                finally
                  bS.Free
                end;
end;

Resultado:

---------------------------
Debugger Exception Notification
---------------------------
Project TimerPunch.exe raised exception class EInvalidCast with message 'Invalid class typecast'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Me voy a tirar de la ventana!! .

Saludos.

[[enecumene]]

Ya, joder!!!, Desisto!!, he decidido solo guardar el nombre del archivo, no la ruta, solo "Imagen.Jpg", lo voy a cargar así:

Código Delphi [-]
Foto.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\FOTOS\'+ZTable1FOTO.AsString);

Ahora mi duda es la siguiente, ¿es factible en una pc Cliente en la red?, o sea, de esa manera puedo llamar la imagen desde la red?, porque el programa se correrá de esta manera:

\\PC\TimePunch\TimePunch.exe

también estuve pensando guardar la foto en un servidor web y llamarlo así:

Foto.Picture.LoadFromFile('Http://IP/FOTOS/Imagen.jpg');

Sé que no va a funcionar, pero existirá alguna forma de hacerlo?


Saludos.

[roman]

He estado haciendo algunas pruebas con ZEOS y MySQL y me ha funcionado tal como te dije al principio. Quizá el problema lo tengas desde el momento de guardar la imagen, que no se esté guardando correctamente.

En todo caso, por lo que he visto, ni siquiera es necesario usar streams ya que tanto los objetos TBlobField como los gráficos tienen soporte integrado para escribir y leer desde aquellos.

En resumen, me he armado con este par de funciones que me han dado buenos resultados:

Código Delphi [-]
{
  Transfiere el contenido del campo Field al objeto Picture
  El campo debe ser un BLOB con una imagen en formato JPEG
}
procedure FieldToPicture(Field: TField; Picture: TPicture);
var
  Jpeg: TJpegImage;

begin
  if Field is TBlobField then
  begin
    if Field.IsNull then
      Picture.Graphic := nil
    else
    begin
      Jpeg := TJpegImage.Create;

      try
        Jpeg.Assign(Field);
        Picture.Assign(Jpeg);
      finally
        Jpeg.Free;
      end;
    end;
  end;
end;

{
  Transfiere el contenido del objeto Picture al campo Field
  El campo debe ser un BLOB y Picture debe contener una imagen en formato JPEG
}
procedure PictureToField(Picture: TPicture; Field: TField);
begin
  if (Picture.Graphic is TJPegImage) or not Assigned(Picture.Graphic) then
  begin
    Assert(Field.DataSet <> nil);
    
    Field.DataSet.Edit;
    Field.Assign(Picture.Graphic);
  end;
end;

FieldToPicture se usaría para copiar la imagen de un campo Blob a un objeto TPicture, como lo es la propiedad Picture de un componente Image. Lo normal sería usarla en el evento AfterScroll del DataSet:

Código Delphi [-]
procedure TForm1.ZTable1AfterScroll(DataSet: TDataSet);
begin
  FieldToPicture(DataSet.FieldByName('foto'), Image1.Picture);
end;

aunque también iría bien en el AfterCancel para restaurar la imagen original en caso de cancelar la edición.

PictureToField es la inversa y copia el contenido del objeto Picture en el campo. La función se asegura de que Picture contenga un gráfico JPEG. Lo normal aquí sería usarla al cargar una imagen desde un archivo:

Código Delphi [-]
procedure TForm1.btnLoadPictureClick(Sender: TObject);
begin
  if OpenPictureDialog.Execute then
  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog.FileName);
    PictureToField(Image1.Picture, ZTable1.FieldByName('foto'));
  end;
end;

o bien, si queremos borrar la imagen:

Código Delphi [-]
procedure TfrmMain.btnClearPictureClick(Sender: TObject);
begin
  Image1.Picture.Graphic := nil;
  PictureToField(Image1.Picture, ZTable1.FieldByName('foto'));
end;

Como digo, me han funcionado bien con ZEOS y MySQL.

// Saludos

[[enecumene]]

Muchas gracias Roman, probaré las funciones mañana y te comento como me fue.

Saludos.