Problema cargando Imagen desde base de Datos

[[enecumene]]

Saludos Compañeros, estoy teniendo problemas para cargar una imagen en un TJvImage desde un campo BLOB en la base de datos, lo mas cerca que he podido encontrar en el foro es esto:

Código Delphi [-]
Var B: TJPEGImage;
     MS: TMemoryStream;
begin
              B := TJPEGImage.Create;
              MS := TMemoryStream.Create;
              ZTable1FOTO2.SaveToStream(MS);
              B.LoadFromStream(MS);
              Foto.Picture.Assign(B);
              MS.Free;
              B.Free;
end;

Pues no me funciona, me tira este error:

---------------------------
Debugger Exception Notification
---------------------------
Project TimerPunch.exe raised exception class EJPEG with message 'JPEG error #42'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Existe una mejor manera una Imagen BLOB en un TJvImage o TImage?, Trabajo con Delphi 7 y Firebird 2.0.

Saludos.

[roman]

Buscando en google por "JPEG error #42" encuentro esto:

Or using streams and forgetting to rewind the stream?

Y parece que puede ser por ahí. Luego de ZTable1FOTO2.SaveToStream(MS) usa MS.Seek para volver al principio del Stream. Es posible que B.LoadFromStream(MS) no lo haga por su cuenta de manera que está leyendo el stream desde el final.

// Saludos

[[enecumene]]

Gracias Roman, Ahora estoy teniendo este error:

---------------------------
Debugger Exception Notification
---------------------------
Project TimerPunch.exe raised exception class EJPEG with message 'JPEG error #53'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

y le agregue lo siguiente:

Código Delphi [-]
MS.Seek(80,0);

Saludos.

[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.