Creación de jpg en RunTime
 

Saludos, foristas,

A todas, todas, cómo puedo crear un TImage con archivo jpg en tiempo de ejecución. Este es el código, se crea dentro de un scrollbox un componenete Image con sus características y su archivo jpg.

Código Delphi [-]
 With TImage.Create(Self) do
 Begin
   Picture.Graphic:=TJpegImage.Create; //aqui error......
   Parent:=ScrollBox1;
   Top:=(ScrollBox1.ControlCount)*(Height+4);
   Left:=ScrollBox1.Left+110;
   Cursor:=crHandPoint;
   Stretch:=True;
   Height:=112;
   Width:=94;
   xa:='sin_foto.jpg';
   if DirectoryExists('c:\ejemplo\') then
   Begin
     Try
       if FileExists(xa) then Picture.Graphic.LoadFromFile(xa);
     except
       Picture.Graphic.LoadFromFile('sin_foto.jpg');
     end;
   end
   else
   Begin
     showmessage('No existe directorio...');
   end;
 end;

Gracias, por la atención.....

Siempre que tengas una duda sobre un error, es muy importante que digas cuál es el error. El mensaje de error es la primer guía para encontrar la solución.

PD: Agregá la unit JPeg en el uses de tu unit.

Código Delphi [-]
uses
  JPeg;

Saludos!

El error es que me da un access violation, pero lógicamente si no tienes la jpeg en la uses, nunca podrás ver nada. Lo probraré, estoy fuera de casa, pero estoy casi seguro que se trata de eso. Pido disculpas por no ser explícito y por el descuido que tuve. Gracias.... probraré.

Bueno, como veras no poner el error puede llevarnos por cualquier camino :D


Por otro lado, veo que lo que quieres hacer cargar un JPeg en un TImage, mas que crear un JPeg en Runtime, para eso, simplemente utilizando la unit JPeg queda registrado el TJpegImage y puedes cargarlo así de fácil:

Código Delphi [-]
uses
  JPeg;

procedure Tt.FormCreate(Sender: TObject);
begin
 with TImage.Create(Self) do
 begin
   Parent := Self;
   Picture.LoadFromFile('C:\000.PRUEBA\Mis imágenes\photo.jpeg');
 end;
end;

Saludos!

Muchísimas gracias, por el apoyo prestado a todos los participantes. Nuevamente gracias...:D