+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكلة في حفظ الصور (/showthread.php?tid=5225)
مشكلة في حفظ الصور - rabihpascal - 15-05-2013
السلام عليكم
لماذا عندما اقوم بتحويل مجموعة صور بواسطة'listbox'
فهو يحفظ ال'extension'اي '.filename.png.bmp'.
شكرا.
مشكلة في حفظ الصور - SMP3 - 15-05-2013
ماهو الكود الذي تستخدمه في التحويل ؟
مشكلة في حفظ الصور - rabihpascal - 16-05-2013
السلام عليكم
انه كود كنت استعمله للعب '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 - 16-05-2013
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
استاذنا الكريم
في الكود هذه الاضافة لم افهمها فلعلك ننفضل بتنبيهي على موطن غفلتي
+label1.caption
ولك خالص الشكر
مشكلة في حفظ الصور - SMP3 - 16-05-2013
عبد الهادي كتب :[COLOR="DarkSlateBlue"]ال edit تحتتوي على مسار المجلد+label1.caption
ال label1 تحتوي على اسم الملف
المتغير s = اسم المسار كاملا
مثلا :[/COLOR]
كود :
Edit = C:\Users\UserX\Pictures\
Label = Test.Bmp
s=C:\Users\UserX\Pictures\Test.Bmpمشكلة في حفظ الصور - عبد الهادي - 16-05-2013
بورك فيك استاذنا الجليل