Parsi Coders

درود
برای نمایش تصویر با فرمت jpg شما باید از عنصر یا کنترل image استافده کنید.
برای نمایش تصاویر jpg باید در uses دلفی از jpeg استفاده کنید.
uses
Windows, Messages, SysUtils,jpeg, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

و اگر بخواهید تصیر بصورت resize نشده و تصویر واقی نمایش داده شود میتونید از دستور image1.AutoSize:=true; استفاده کنید.
در سورس زیر که نوشتم میتونید به راحتی یک عکس رو با تعداد کمترین کد خط load کنید.

کد:
unit Unit1;

interface

uses

  Windows, Messages, SysUtils,jpeg, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Image1: TImage;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

image1.AutoSize:=true;

Image1.picture.loadfromfile('C:\Users\Amin\Downloads\Compressed\fal hafez\images\fals\38.jpg');

end;

end.

اگر بخواهید فرمت jpg رو بصورت انلاین load کنید بحث فرق میکنه
با سورس زیر میتونید لوگوی انجمن پارسی کدرز رو داخل عنصر image به نمایش بزارید :

کد:
unit Unit1;

interface

uses

  Windows, Jpeg, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  IdHTTP, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Image1: TImage;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

    Http: TIdHTTP;

    Stream: TStream;

    JpegImg: TJPEGImage;

begin

    Http:= TIdHTTP.Create(nil);

    try

      Stream:= TMemoryStream.Create;

      try

         Http.Get('http://parsicoders.com/logo.jpg', Stream);

         JpegImg:= TJPEGImage.Create;

         try

           Stream.Position:= 0;

           JpegImg.LoadFromStream(Stream);

           Image1.Picture.Assign(JpegImg);

         finally

           JpegImg.Free;

         end;

      finally

        Stream.Free;

      end;

    finally

      Http.Free

    end;

end;

end.

تشکر بابت سورس ها[img=21x21]images/smilies/smile.gif[/img]

Amin_Mansouri

Amin_Mansouri

mo_coders