ذخیره عکس در یک پوشه خاص

[gheidari]

سلام
من یک برنامه به زبان دلفی 7 نوشتم و پوشه ای در مسیر فایل exe این برنامه به نام pic ساخته ام حال با قرار دادن Image,openpicturedialog یک عکس لود می کنم و حال می خواهم این عکس را در پوشه pic ذخیره نماییم اما نمی دونم این کار را چطوری انجام بدهم لطفا من را راهنمایی کنید.

[سعید صابری]

Image1.Picture.SaveToFile('آدرس فايل');

Image1.Picture.SaveToFile(ExtractFilePath(Applicat ion.ExeName)+'pic\a.jpg');

[gheidari]

دوست عزیر دستت درد نکن
یک سوال دیگه ام داشتن خوب این هر عکسی را که من ذخیره می کنم با اسم A.jpg در پوشه pic می گردد اما اگر بخواهم به جای اسم a.jpg اسم خود عکس مثلا ab.bmp با یک پسوند خاص در پوشه pic ذخیره گردد چه کار باید کنم. اصلا چطوری باید اسم عکس رابدست آورد.

[majid_ramak]

یک TSavePictureDialog رو ی فرمتون قرار بدین و در هنگام ذخیره کردن عکس این کد رو بنویسید:

if SavePictureDialog1.Execute then
Image1.Picture.SaveToFile(SavePictureDialog1.FileN ame);

[Felony]

توسط توابع ExtractFileName و ExtractFileEXT میتونید نام و پسوند یک فایل رو به دست بیارید .

[AmirSky]

با عوض کردن پسوند که فرمت فایل عوض نمی شه.
اگه عکس Bmp باشه و با پسوند jpg ذخیره کنید فقط اسم عکس با پسوند jpg است ولی فرمت عکس همان Bmp است.
برای ذخیره عکس با فرمت jpg باید یک متغیر تعریف کنید مثل
jpeg : TJPEGImage
و بعد
jpeg := TJPEGImage.Create
jpeg.Assign(Image2.Picture.Graphic)
jpeg.SaveToFile(FileName