delphi4arab منتديات دلفي للعرب
حفظ مسار opendialog في inifile - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : حفظ مسار opendialog في inifile (/showthread.php?tid=1414)

حفظ مسار opendialog في inifile - paix144 - 18-12-2009

السلام عليكم إخواني
هل ممكن أحد الإخوة يساعدنا في إنشاء مسار و حفظه في inifile ?
أو ماهي function التي تساعدنا على حفظ مسار معين في ملف inifile?
و جزاكم الله كل خير

حفظ مسار opendialog في inifile - TF6M - 18-12-2009

السلام عليكم
في إجراء Button عادي :

PHP كود :
{$WARNINGS OFF}
{$HINTS OFF}
{$OPTIMIZATION OFF}

Uses
 IniFiles;

procedure TForm1.Button1Click(Sender: TObject);
Var
 sPath:String;
begin
sPath:= ExtractFilePath(ParamStr(0))+'OpenFIniS.ini';
With TIniFile.Create(sPath),OpenDialog Do
 Begin
 Execute;
 If FileName = '' Then Exit;
 WriteString('OpenDclass','FileName',FileName);
 End;
end; 


حفظ مسار opendialog في inifile - paix144 - 18-12-2009

جزاك الله كل خير أخي
عندي مشكل آخر لا أستطيع إسترجاع المسار لقرأته لصوت

حفظ مسار opendialog في inifile - TF6M - 18-12-2009

شوف هدا المثال يوضح كيفية كتابة مع قراءة القيمة
المحفوظة وهذا في سياق برنامجك الذي وضعته (أو فكرته) :

[صورة: 15451.jpg]

ملاحظة : لماذا تستعمل Mp3 (حجم عائلي :kickSmile
إستخدم XM أو Wav حجم صغير كما أننا لن نحتاج لـ TWindowsMediaPlayer

راجع هدا الموضوع سيفيدك على الجهتينPlaySound & UsingResFile
http://delphi4arab.net/forum/showthread.php?goto=newpost&t=42
بالتوفيق ,,

حفظ مسار opendialog في inifile - paix144 - 19-12-2009

بارك الله فيك أخي
جازك الله كل خير

حفظ مسار opendialog في inifile - paix144 - 04-01-2010

السلام عليكم
لقد ظهر عندي مشكل ثاني و لدية رسالة خطأ
كود :
impossible de determiner le type de périphérique à partir de l'extension de donnée
و جزاكم الله كل خير أخي

حفظ مسار opendialog في inifile - TF6M - 08-01-2010

و عليكم السلام و رحمة الله و بركاته

1- المرفق يعمل عندي عادي .
2- من رسالة الخطأ : الملف الصوتي المحدد ذو إمتداد غير مقبول .

-------------------------------------
الحل :
1- يمكن أن نضيف شرط للتحقق من إمتداد الملف عند القراءة أو التعديل مثال :
راجع http://www.delphi4arab.net/forum/showthread.php?tid=1595&page=1
لكي تختصر طريقة التحقق !!! .

PHP كود :
procedure TForm1.Openmusic1Click(Sender: TObject);
Const
 SndExt : Array [0..2]Of String = ('.avi','.mp3','.wav');
begin
ClearAll;
With TIniFile.Create(sPath),OpenDialog1 Do
 Begin
 Execute;
 If FileName = '' Then Exit;
 If (ExtractFileExt(FileName) = SndExt[0])
  Or (ExtractFileExt(FileName) = SndExt[1])
   Or (ExtractFileExt(FileName) = SndExt[2]) Then
 WriteString('OpenDclass','FileName',FileName) Else
   MessageBox(0,'FileExt Is Not Accepted .',Nil,0);
 End;
end; 

2- أو تسير خطأ :

[صورة: 4464.jpg]

PHP كود :
Try
  WriteString('OpenDclass','FileName',FileName);
 Except
 On E:Exception Do
  MessageBox(0,'FileExt Is Not Accepted .',Nil,0);
 End; 

أو لاحظ نوع الخطأ المحرر EMCIDeviceError

PHP كود :
Try
  WriteString('OpenDclass','FileName',FileName);
 Except
 On EMCIDeviceError Do
  MessageBox(0,'FileExt Is Not Accepted .',Nil,0);
 End; 

في ما يخص الطريقة 2 :
PHP كود :
Try
  MessageBox(0,'FileExt Is Not Accepted .',Nil,0);
 Except
 On E:Exception Do
  MessageBox(0,Pchar(E.Message),Nil,0);
 End; 

هذا للإستفادة من خصائص E فقط كملاحظة .

بالتوفيق ,,

حفظ مسار opendialog في inifile - paix144 - 08-01-2010

بارك الله فيك أخي على التوضيح
أظن بأن المشكل هو عندي، فلقد وجدت نفس المشكل resources