+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكن الوصول برمجيا الى ملفات swf (/showthread.php?tid=1330)
كيف يمكن الوصول برمجيا الى ملفات swf - delphi555 - 15-11-2009
السلام عليكم
برمجت برنامج صغير فيه دروس فلاشية تعليمية اسلامية
لكن المشكل انني لم اعرف كيف يمكن للبرنامج ان يبحث بنفسه عن الملفات المطلوبة بحيث يجب ان احولهم يدويا وهذا في حد ذاته مشكلة
اخواني هل من طريقة برمجية تجعل البرنامج يبحث عن الملفات داتيا
تحياتي
كيف يمكن الوصول برمجيا الى ملفات swf - kachwahed - 16-11-2009
ممكون توضح أكثر.
كيف يمكن الوصول برمجيا الى ملفات swf - delphi555 - 23-11-2009
السلام عليكم
مثلا عندي برنامج فيه ملف فلاش بهذا المسار c://1.swf
ولكن في قرصي الصلب لا يوجد مسار C
بل يوجد مسار Dاو Fاو G ....
ما العمل لكي يحدد البرنامج الملف داتيا يعني دون ان يقوم المبرمج بتحديد مسار الملف لكون ذلك فيه مشاكل كثيرة
اتمنى ان اكون وفقت في تبليغ السؤال بالطريقة الصحيحة
كيف يمكن الوصول برمجيا الى ملفات swf - kachwahed - 23-11-2009
وعليكم السلام
استخدم Application.ExeName
راجع أيضا:
http://www.delphi4arab.net/forum/showpost.php?p=10048&postcount=5
http://www.delphi4arab.net/forum/showpost.php?p=4328&postcount=3
http://www.delphi4arab.net/forum/showthread.php?tid=809
أتمنى أن أكون وفقت في الإجابة.
كيف يمكن الوصول برمجيا الى ملفات swf - delphi555 - 23-11-2009
ساعود لك اخي الكريم
بعد ان ارى
كيف يمكن الوصول برمجيا الى ملفات swf - delphi555 - 23-11-2009
اوكي اخي ساستفسر عن بعض الاشياء
في الرابط هل النقطة توضع مع الملف المراد تشغيله
في الرابط التاني والثالث لم افهم
وماذا تعني باستخدام Application.ExeName
كيف يمكن الوصول برمجيا الى ملفات swf - kachwahed - 23-11-2009
أخي...
Application.ExeName تعيد مسار الملف التنفيذي لبرنامجك.
تعني النقطة المجلد الحالي للملف التنفيذي.
جرب في الدلفي وحاول تفهم أكثر.
كيف يمكن الوصول برمجيا الى ملفات swf - issamdnn - 02-12-2009
سأعطيك آلية البحث عن أي ملف ضمن الجهاز ما عليك إلا أن تعطيه اللحقة وهو يقوم بعمل البقية :
1- الإجرائية الأولى تقوم بعمل بحث عن السوقات الموجودة على جهازك.
2- الإجرائية الثانية تقوم بالبحث عن الملفات ذات اللاحقة المطلوبة :
PHP كود :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure RFindFile(const folder: TFileName);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
spec :string;
implementation
{$R *.dfm}
procedure TForm1.RFindFile(const folder: TFileName);
var
SearchRec: TSearchRec;
begin
// Locate all matching files in the current
// folder and add their names to the list
if FindFirst(folder + spec, faAnyFile, SearchRec) = 0 then begin
try
repeat
if (SearchRec.Attr and faDirectory = 0) or
(SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
ListBox1.Items.Add(folder + SearchRec.Name);
until FindNext(SearchRec) <> 0;
except
FindClose(SearchRec);
raise;
end;
FindClose(SearchRec);
end;
// Now search the subfolders
if FindFirst(folder + '*.*', faAnyFile
Or faDirectory, SearchRec) = 0 then
begin
try
repeat
if ((SearchRec.Attr and faDirectory) <> 0) and
(SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
RFindFile(folder + SearchRec.Name + '\');
until FindNext(SearchRec) <> 0;
except
FindClose(SearchRec);
raise;
end;
FindClose(SearchRec);
end;
end; // procedure RFindFile inside of FindFile
procedure TForm1.Button1Click(Sender: TObject);
begin
spec :='*.txt';
RFindFile('c:\');
end;
end.
كيف يمكن الوصول برمجيا الى ملفات swf - delphi555 - 03-12-2009
بارك الله فيك اخي
ساجرب