مشكلة في حفظ الصور

[rabihpascal]

السلام عليكم

لماذا عندما اقوم بتحويل مجموعة صور بواسطة'listbox'
فهو يحفظ ال'extension'اي '.filename.png.bmp'.
شكرا.

[SMP3]

ماهو الكود الذي تستخدمه في التحويل ؟

[rabihpascal]

السلام عليكم

انه كود كنت استعمله للعب 'mp3'عشوائي
في الميديا بلاير.

لكن اردت ان اجربه هنا.


with listbox1 do
label1.caption:=listbox1.items[itemindex
png:=tpng.create
bmp:=tbitmap.create
if listbox1.ittemindex=o then timer.enabled:=false
png.loadfromfile(edit1.text+label1.caption
bmp.assign(png
bmp.savetofile(edit.text+label1.caption+'.bmp

[SMP3]

PHP كود :

function ExtractFileWithoutExt(const FileName: string): string;
 var
   FFileName :string;
begin
  FFileName:=ExtractFileName(FileName);
  Result:= Copy(FFileName,0,
  Length(FFileName)-Length(ExtractFileExt(FileName)));
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:String ;
begin
s:= edit.text+label1.caption ;
s:=ExtractFileDir(s)+ '\'+ ExtractFileWithoutExt(s);
bmp.SaveToFile(s);

end; 


[عبد الهادي]

استاذنا الكريم
في الكود هذه الاضافة لم افهمها فلعلك ننفضل بتنبيهي على موطن غفلتي

+label1.caption

ولك خالص الشكر

[SMP3]

+label1.caption

[COLOR="DarkSlateBlue"]ال edit تحتتوي على مسار المجلد
ال label1 تحتوي على اسم الملف
المتغير s = اسم المسار كاملا
مثلا :[/COLOR]

كود :

Edit = C:\Users\UserX\Pictures\ Label = Test.Bmp s=C:\Users\UserX\Pictures\Test.Bmp

[عبد الهادي]

بورك فيك استاذنا الجليل