+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف البحث عن ملف في حالة عدم وجوده بالمسار (/showthread.php?tid=6850)
الصفحات:
1
2
كيف البحث عن ملف في حالة عدم وجوده بالمسار - onexite - 08-03-2015
ما تحاول فعله غير منطقي
اذن تريد البحث عن قاعدة البيانات في حالة عدم توفرها ؟ وذلك في كامل الاقراص !!!
انا اقترح ان تضع قاعدة بيانات فارغة في الرسورس اذا لم تتوفر القاعدة الاصلية يقوم باستخراج الاحتياطية وقاعدة البيانات تضعها في نفس مسار البرنامج
كيف البحث عن ملف في حالة عدم وجوده بالمسار - السوفي - 08-03-2015
السلام عليكم ورحمة الله وبركاته
اخواني اشكركم جميعا فلقد افدتموني كثيرا
انا حاليا استخدم لتاكد لتحديد الملف ومساره ويعتمد بالضرورة على المستخدم
var
fullFilePath: string;
dir1, dir2: string;
begin
fileName := 'kh.accdb';
dir1 := 'C:\No such directory';
dir2 := 'C:\data';
fullFilePath := FileSearch(fileName, dir1 + ';' + dir2);
if fullFilePath = '' then
ShowMessage(fileName + ' not found')
else
ShowMessage(fullFilePath + ' found OK');
ShowMessage(fullFilePath);
end;
كيف البحث عن ملف في حالة عدم وجوده بالمسار - Agmcz - 08-03-2015
السلام عليكم
PHP كود :
//File
if FileExists('C:\data\kh.accdb') then
ShowMessage('Found.')
else
ShowMessage('Not Found!')
//Dir
if DirectoryExists('C:\data') then
ShowMessage('Found.')
else
ShowMessage('Not Found!');
إذا كان غيره:
لماذا أتعب في البحث عن ملف وأنا أعرف مساره :confused: أصلا
إذا كان الملف بحنب البرنامج يمكن إستخراج مسار البرنامج والإنطلاق منه
PHP كود :
ExtractFilePath(ParamStr(0));
كيف البحث عن ملف في حالة عدم وجوده بالمسار - السوفي - 08-03-2015
السلام عليكم ورحمة الله وبركاته
لا فضفوك اخي ghost-dz مبرمج متألق حقا انت متالق والشكر موصول للبقية
ما رايك في هذا للاتصال بالقاعدة
dure TForm1.Button1Click(Sender: TObject);
begin
if FileExists('C:\data\kh.accdb') then
begin
ADOConnection1.ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\data\kh.accdb;Persist Security Info=False';
ADOConnection1.Open;
end
else
ShowMessage('Not Connection!')
end;
begin
if FileExists('C:\data\kh.accdb') then
begin
ADOConnection1.ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\data\kh.accdb;Persist Security Info=False';
ADOConnection1.Open;
end
else
ShowMessage('Not Connection!')
end;
وهذا للاتصال بجدول التنقيط اكسس
begin
if OpenDialog1.Execute then
begin
ADOConnection1.ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+OpenDialog1.FileName+';Persist Security Info=False';
ADOConnection1.Open;
end
end;
if OpenDialog1.Execute then
begin
ADOConnection1.ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+OpenDialog1.FileName+';Persist Security Info=False';
ADOConnection1.Open;
end
end;
كيف البحث عن ملف في حالة عدم وجوده بالمسار - Agmcz - 08-03-2015
وعليكم السلام
هكذا يكفي للتحقق من وجود القاعدة.
ويمكن أيضا تنشأ قاعدة فارغة في حالة عدم وجودها كما ذكر احد الإخوة في ردود السابقة
نرجو الفائدة وكل التوفيق.