Cómo leer una imagen de una tabla en sql server...

[ronimaxh]

Gracias amigos por la ayuda me da un error:

Código Delphi [-]
 [Error] Consulta_Padron.pas(164): Missing operator or semicolon

Este es el código:

Código Delphi [-]
procedure TfrmConPadron.Button1Click(Sender: TObject);
var
  jpg:TJPEGImage;
  stream:TMemoryStream;
begin
  stream:=TMemoryStream.Create;
  jpg:=TJPEGImage.Create;
  frmConPadron.Image1.Picture:=nil;
  try
   // en esta linea es que me da el error
   frmdata.blofield(frmdata.st_foto.fieldbyname('imagen')).SaveToStream(stream);
   stream.Seek(0, soFromBeginning);
   jpg.LoadFromStream(stream);
   frmConPadron.Image1.Picture.Assign(jpg);
  finally
   stream.Free;
   jpg.Free;
  end;
end;

[ronimaxh]

Distinguidos amigos, sólo me falta la solución de ese error anterior, agradezco a cualquier colega que me de una ayuda con esto.

[olbeup]

procedure TfrmConPadron.Button1Click(Sender: TObject);
var
jpg:TJPEGImage;
stream:TMemoryStream;
begin
stream:=TMemoryStream.Create;
jpg:=TJPEGImage.Create;
frmConPadron.Image1.Picture:=nil;
try
// en esta linea es que me da el error
frmdata.blofield(frmdata.st_foto.fieldbyname('imagen')).SaveToStream(stream);
stream.Seek(0, soFromBeginning);
jpg.LoadFromStream(stream);
frmConPadron.Image1.Picture.Assign(jpg);
finally
stream.Free;
jpg.Free;
end;
end;

Utiliza mejor una función como esta

Código Delphi [-]
function GetFieldToJPG(FieldName: String): TJPEGImage;
var
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  Result := TJPEGImage.Create;

  with frmData do
  begin
    try
      TBlobField(FieldByName(FieldName)).SaveToStream(Stream);
      Stream.Position := 0;
      if (Stream.Size > 0) then
        Result.LoadFromStream(Stream)
      else
        Result := nil;
    finally
      Stream.Free;
    end;
  end;
end;


procedure TfrmConPadron.Button1Click(Sender: TObject);
begin
  frmConPadron.Image1.Picture.Assign(GetFieldToJPG('IMAGEN'));
end;

Un saludo

P.D.: A la hora de escribir código en delphi me gusta que sea elegante y atractiva.

[ronimaxh]

Gracias amigo, lo tomare encuenta sobre el código atractivo, probare la función y luego les comentaré

[ronimaxh]

He resuelto el problema elegí la funcion del colega, gracias a todos por la ayuda.