delphi4arab منتديات دلفي للعرب

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

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

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

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

[صورة: 15451.jpg]

ملاحظة : لماذا تستعمل Mp3 (حجم عائلي :kick Smile

إستخدم XM أو Wav حجم صغير كما أننا لن نحتاج لـ TWindowsMediaPlayer

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

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

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

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

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

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

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- أو تسير خطأ :

[صورة: 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 فقط كملاحظة .

بالتوفيق ,,

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

paix144

TF6M

paix144

TF6M

paix144

paix144

TF6M

paix144