15-05-2013, 07:06 PM
15-05-2013, 07:17 PM
ماهو الكود الذي تستخدمه في التحويل ؟
16-05-2013, 04:51 PM
السلام عليكم
انه كود كنت استعمله للعب '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
انه كود كنت استعمله للعب '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
16-05-2013, 05:30 PM
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;
16-05-2013, 05:43 PM
استاذنا الكريم
في الكود هذه الاضافة لم افهمها فلعلك ننفضل بتنبيهي على موطن غفلتي
ولك خالص الشكر
في الكود هذه الاضافة لم افهمها فلعلك ننفضل بتنبيهي على موطن غفلتي
+label1.caption
ولك خالص الشكر
16-05-2013, 10:00 PM
عبد الهادي كتب :[COLOR="DarkSlateBlue"]ال edit تحتتوي على مسار المجلد+label1.caption
ال label1 تحتوي على اسم الملف
المتغير s = اسم المسار كاملا
مثلا :[/COLOR]
كود :
Edit = C:\Users\UserX\Pictures\
Label = Test.Bmp
s=C:\Users\UserX\Pictures\Test.Bmp16-05-2013, 10:28 PM
بورك فيك استاذنا الجليل