Parsi Coders
بارگذاری و یا نمایش تصویر فرمت jpg (دلفی) - نسخه قابل چاپ

+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: بارگذاری و یا نمایش تصویر فرمت jpg (دلفی) (/showthread.php?tid=3214)



بارگذاری و یا نمایش تصویر فرمت jpg (دلفی) - Amin_Mansouri - 06-12-2013

درود
برای نمایش تصویر با فرمت 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.
 


RE: بارگذاری و یا نمایش تصویر فرمت jpg (دلفی) - Amin_Mansouri - 06-12-2013

اگر بخواهید فرمت 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.
 


RE: بارگذاری و یا نمایش تصویر فرمت jpg (دلفی) - mo_coders - 08-23-2013

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