• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 35 رای - 2.66 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: بارگذاری و یا نمایش تصویر فرمت 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]
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کد انتقال فایل به سطل اشغال ( دلفی) Amin_Mansouri 1 1,838 10-08-2022، 06:21 PM
آخرین ارسال: sonusood
  سورس بدست اوردن کلیپ برد ( دلفی ) Amin_Mansouri 1 1,939 10-08-2022، 05:49 PM
آخرین ارسال: sonusood
  دلفی و تلگرام h_mohamadi 2 2,640 04-24-2017، 12:14 AM
آخرین ارسال: shilanaseri
  رسم نمودار در اکسل از طریق دلفی Saeed7007 1 4,408 08-14-2014، 06:11 PM
آخرین ارسال: Amin_Mansouri
  سورس کد بدست اوردن اطلاعات هارد دیسک (دلفی) Amin_Mansouri 1 6,794 07-30-2014، 05:45 PM
آخرین ارسال: dehqan_mehdi
  ۳۵۰ سورس کد دلفی (دلفی رو از ابتدا تا حرفه ای شدن یاد بگیرید) Amin_Mansouri 11 26,962 01-31-2014، 04:27 PM
آخرین ارسال: Amin_Mansouri
  بدست اوردن لیست درایورهای موجود بر روی سیستم توسط API (دلفی) Amin_Mansouri 0 3,606 08-17-2013، 09:56 AM
آخرین ارسال: Amin_Mansouri
  دانلود سورس کد استفاده از نقشه گوگل در دلفی Amin_Mansouri 0 5,447 08-17-2013، 09:44 AM
آخرین ارسال: Amin_Mansouri
  سورس کد شناسایی مرورگرهای نصب شده بر روی سیستم عامل (دلفی) Amin_Mansouri 0 3,767 08-17-2013، 09:35 AM
آخرین ارسال: Amin_Mansouri
  سورس کد بازی بیلیارد به زبان دلفی Amin_Mansouri 0 7,702 06-16-2013، 08:36 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 1 مهمان