PDA

View Full Version : jpg تو دلفی



daneshpazho
چهارشنبه 02 فروردین 1385, 16:58 عصر
با سلام
من یه مدتیه که می خواهم تو دلفی از فایل عکس با پسوند jpg استفاده کنم ولی ....
اگه میشه در این مورد به من کمک کنید

پیشا پیش متشکرم

vcldeveloper
چهارشنبه 02 فروردین 1385, 18:26 عصر
TJpegImage در یونیت JPEG.
هر کدوم از کلمات بالا را که در سایت جستجو کنید، به جواب سوالتون میرسید.

khareh_siah
چهارشنبه 02 فروردین 1385, 22:06 عصر
uses jpeg;

var jp:TJpegImage;

jp:=tjpegimage.Create;

jp.LoadFromFile();
یا
jp.assign()
در آخر
jp.free;

daneshpazho
جمعه 04 فروردین 1385, 19:20 عصر
خیلی از راهنمایی تون متشکرم

daneshpazho
دوشنبه 07 فروردین 1385, 17:59 عصر
برای اینکه بتوانیم jpg را به بک گروند خود کنیم باید ابتدا آنرا به bmp تبدیل کنیم


procedure TForm1.BitBtn1Click(Sender: TObject);
var
Bmp : TBitmap;
Jpg : TJPEGImage;
bmpfile,jpgfile:string;
begin
bmpfile:='wallpaper.bmp';
if (pos('.jpg',filelistbox1.FileName)<>0)or(pos('.JPG',filelistbox1.FileName)<>0)then
begin
jpgfile:=filelistbox1.FileName;
Bmp := TBitmap.Create;
Jpg := TJPEGImage.Create;
jpg.LoadFromFile(jpgFile);
bmp.Assign(jpg);
bmp.SaveToFile(bmpFile);
SystemParametersInfo(SPI_SETDESKWALLPAPER ,0,pchar(bmpfile),SPIF_SENDCHANGE );
Bmp.Free;
Jpg.Free;
end
else
begin
bmp:=tbitmap.Create;
bmp.LoadFromFile(filelistbox1.FileName);
bmp.SaveToFile(bmpfile);
SystemParametersInfo(SPI_SETDESKWALLPAPER ,0,pchar(bmpfile),SPIF_SENDCHANGE );
bmp.Free;
end;
end;
کد تبدیل از کد تبدیل bmp به jpg آقای کشاورز الهام گرفته شده