PDA

View Full Version : قرار دادن عکس در زمان اجرا در image



hamide_kh
شنبه 24 فروردین 1387, 10:40 صبح
سلام
من می خوام یک عکس را زمان اجرا در یک image مقدار دهی کنم ولی هر کاری می کنم نمیشه .لطفا من را راهنمایی کنید

mortezakiaee
شنبه 24 فروردین 1387, 11:10 صبح
این یه مدل




begin
Image2.Picture.LoadFromFile('pics\g.bmp');
end;


یه مدل دیگه


var bmp:Tbitmap;
begin
try
bmp:= Tbitmap.create;
bmp.loadfromstrem(*/stream/*);
Image2.Picture.bitmap:=bmp;
finally
bmp.free;
end;
end;


راستی jpg که نمی خوای مقدار دهی کنی؟ یونیت jpeg رو use می کنی؟

as13851365
شنبه 24 فروردین 1387, 11:34 صبح
اگر شما می خواهید در هنگام اجرا برنامه یک عکس را از یک مسیر مشخص در برنامه لود کند ( در یک Image قرار دهد) کافیت از این کد استفاده کنید


Image1.Picture.LoadFromFile('c:\as.bmp');


اگه از عکسی با پسوند JPG می خواهید استفاده کنید باید در قسمت Uses برنامه این را اضافه کنید



jpeg

babak_delphi
شنبه 24 فروردین 1387, 14:48 عصر
من می خوام از فرم شماره 1 عکس Image روی فرم 2 را عوض کنم
این کار رو انجام میدم
ولی عکس عوض نمیشه
ولی وقتی از روی همان فرمی که Image روی اونه این کار رو انجام میدم مشکلی نیست
کسی میدونه علت چیه و چکا باید کرد؟

nouri2015
یک شنبه 25 فروردین 1387, 11:50 صبح
این کار را من انجام دادم مشکلی نبو کد برنامه را بنویس

babak_delphi
دوشنبه 26 فروردین 1387, 00:27 صبح
با همون روش متداول نوشتم
تو فرم 2 یک openpicturedialog گذاشتم


if openpicturedialog1.execute then
form1.image1.picture.loadfromfile(openpicturedialo g.filename);

nouri2015
دوشنبه 26 فروردین 1387, 08:21 صبح
این کد رو ملاحظه بفرمائید

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtDlgs;
type
TForm1 = class(TForm)
OpenPictureDialog1: TOpenPictureDialog;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
form2.Image1.Picture.LoadFromFile(OpenPictureDialo g1.FileName);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.Show
end;
end.

روی فرم اول دو تا button بگذارید و روی فرم دوم یک image بگذارید

babak_delphi
شنبه 31 فروردین 1387, 01:28 صبح
در برنامه من فرم 1 بازه و از توی اون فرم 2 را Showmodal کردم
فکر می کنید به این مربوط باشه؟
البته فرم 1 فرم اصلی برنامه است و نمی تونم اون رو ببندم