امتیاز موضوع:
  • 34 رای - 2.71 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
بارگذاری و یا نمایش تصویر فرمت jpg (دلفی)
#1
درود
برای نمایش تصویر با فرمت 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.
 
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
پاسخ
#2
اگر بخواهید فرمت 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.
 
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
پاسخ
#3
سپاس بابت سورس ها[img=21x21]images/smilies/smile.gif[/img]
پاسخ


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  دلفی و تلگرام h_mohamadi 2 1,528 04-24-2017، 12:14 AM
آخرین ارسال: shilanaseri
  رسم نمودار در اکسل از طریق دلفی Saeed7007 1 3,073 08-14-2014، 06:11 PM
آخرین ارسال: Amin_Mansouri
  سورس کد بدست اوردن اطلاعات هارد دیسک (دلفی) Amin_Mansouri 1 6,068 07-30-2014، 05:45 PM
آخرین ارسال: dehqan_mehdi
  ۳۵۰ سورس کد دلفی (دلفی رو از ابتدا تا حرفه ای شدن یاد بگیرید) Amin_Mansouri 11 25,094 01-31-2014، 04:27 PM
آخرین ارسال: Amin_Mansouri
  بدست اوردن لیست درایورهای موجود بر روی سیستم توسط API (دلفی) Amin_Mansouri 0 3,070 08-17-2013، 09:56 AM
آخرین ارسال: Amin_Mansouri
  دانلود سورس کد استفاده از نقشه گوگل در دلفی Amin_Mansouri 0 4,884 08-17-2013، 09:44 AM
آخرین ارسال: Amin_Mansouri
  سورس کد شناسایی مرورگرهای نصب شده بر روی سیستم عامل (دلفی) Amin_Mansouri 0 3,268 08-17-2013، 09:35 AM
آخرین ارسال: Amin_Mansouri
  سورس کد بازی بیلیارد به زبان دلفی Amin_Mansouri 0 7,234 06-16-2013، 08:36 PM
آخرین ارسال: Amin_Mansouri
  تب سیستم در دلفی Amir AMS 0 3,171 06-11-2013، 08:21 PM
آخرین ارسال: Amir AMS
  نحوه نصب کامپوننت ها در دلفی Amin_Mansouri 2 8,538 05-25-2013، 11:40 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان
This forum uses Lukasz Tkacz MyBB addons.