حفظ مسار opendialog في inifile

[paix144]

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

[TF6M]

السلام عليكم
في إجراء 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; 


[paix144]

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

[TF6M]

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



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

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

[paix144]

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

[paix144]

السلام عليكم
لقد ظهر عندي مشكل ثاني و لدية رسالة خطأ

كود :

impossible de determiner le type de périphérique à partir de l'extension de donnée

و جزاكم الله كل خير أخي

[TF6M]

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

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

-------------------------------------
الحل :
1- يمكن أن نضيف شرط للتحقق من إمتداد الملف عند القراءة أو التعديل مثال :
راجع http://www.delphi4arab.net/forum/showthr...595&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- أو تسير خطأ :

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 فقط كملاحظة .

بالتوفيق ,,

[paix144]

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