06-12-2013، 05:31 PM
درود
برای نمایش تصویر با فرمت jpg شما باید از عنصر یا کنترل image استافده کنید.
برای نمایش تصاویر jpg باید در uses دلفی از jpeg استفاده کنید.
uses
Windows, Messages, SysUtils,jpeg, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
و اگر بخواهید تصیر بصورت resize نشده و تصویر واقی نمایش داده شود میتونید از دستور image1.AutoSize:=true; استفاده کنید.
در سورس زیر که نوشتم میتونید به راحتی یک عکس رو با تعداد کمترین کد خط load کنید.
برای نمایش تصویر با فرمت 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
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg