Cita:
Empezado por jafera
Yo lo hago así:
Código Delphi [-]procedure TF_Material.DBEdit1Change(Sender: TObject);
var
jpg:TJpegImage;
foto:TMemoryStream;
begin
PageControl1.ActivePage := TabSheet1;
If SysUtils.FileExists('C:\Trens_1.0\Temp\Temporal.jpg') then
SysUtils.DeleteFile ('C:\Trens_1.0\Temp\Temporal.jpg');
If F_Moduldades.MaterialFoto.AsString <>'' then
begin
Jpg:=TJpegImage.create;
Foto:=TMemoryStream.create;
try
F_Moduldades.MaterialFoto.SaveToStream(Foto);
Foto.Seek(0,soFromBeginning);
Jpg.LoadFromStream(Foto);
Jpg.SaveToFile('C:\Trens_1.0\Temp\Temporal.jpg');
Image1.Picture.Assign(Jpg);
finally
Foto.Free;
Jpg.Free;
end;
end
else
Image1.Picture.Assign(nil);
end;
Saludos
|
Hola, disculpa,,, con el codigo que indicastes, pasas una foto que esta almacenada en una Tabla del SQL Server al componente TImage???