ألا من مغيث ؟؟؟؟؟

الأربع تربح

المتاهة

#220 سبتمبر 2003 في 02:13

?????????????????

#327 سبتمبر 2003 في 08:19

ألا تستطيع الديلفي صنع ذلك

- طريق الألف ميل يبدأ بخطوة -

- ألعاب من تصميمي:

المنقذ

الأربع تربح

المتاهة

#42 أكتوبر 2003 في 22:45

أرجو المساعدة

- طريق الألف ميل يبدأ بخطوة -

- ألعاب من تصميمي:

المنقذ

الأربع تربح

المتاهة

#52 أكتوبر 2003 في 23:31

السلام عليكم

أظن انه عندي حل لمشكلتك

سأرسله لك يوم السبت ان شاء الله

شكوت الى وكيع سوء حفظي فأرشدني الى ترك المعاصي

وأخبرني بأن العلم نور ونور الله لا يؤتى لعاص

#63 أكتوبر 2003 في 14:47

جزاك الله خيرا أخي FouFou أنا بانتظار ردّك

وهذا هو عنوان بريدي :

fadi-l@nasyanas.com

وشكرا لك

- طريق الألف ميل يبدأ بخطوة -

- ألعاب من تصميمي:

المنقذ

الأربع تربح

المتاهة

#74 أكتوبر 2003 في 12:44

استعمل الكود التالي للقراءة

اقتباس
procedure TMainForm.Button1Click(Sender: TObject);
var Fs : TFileStream;
b : Array[0..10001] of Byte;
i : integer;
Begin
listbox1.clear;
memo1.clear;
Gauge1.MinValue := 0;
Gauge1.MaxValue := 10000;
Gauge2.MinValue := 0;
Gauge2.MaxValue := 10000;
Fs := TFileStream.Create(Npad,fmOpenRead);
Fs.Seek(0,soFromBeginning) ;
Fs.Read(b,10000);
Fs.Free;
for i :=0 to 10000 do
begin
Gauge2.Progress := i;
ListBox1.Items.Add(IntToStr(b));
end;
For i:= 0 to ListBox1.Count -1 do
Begin
Gauge1.Progress := i;
If ListBox1.Items.Strings = '0' Then
Begin
memo1.SelLength := 0;
memo1.Text := memo1.Text + '.';
end
else
Begin
memo1.SelLength := 0;
memo1.Text := memo1.Text + Char(StrToInt(ListBox1.Items.Strings));
End;
End;
End;

الكود نزلت من موقع سأرسل لك كل البرنامج على الايميل

شكوت الى وكيع سوء حفظي فأرشدني الى ترك المعاصي

وأخبرني بأن العلم نور ونور الله لا يؤتى لعاص

#85 أكتوبر 2003 في 00:22

أخي العزيز FouFou :

شكرا لك على المساعدة ولكن هذا ليس ما أريده بالضبط فطلبي هو أن أحرر أي نوع من أنواع الملفات حتى وإن لم يكن ملف تنفيذي وأظهره على شكل Bianry فقط أي ( 10101001 ) دون الـ Hex مع إمكانية التعديل على هذا الملف الذي قمت بتحريره اي تغير أحد الأرقام ( 1 أو 0 ) ومن ثم حفظ هذا التغير على نفس الملف أو في ملف جديد .

فهل يمكن ذلك وشكرا جزيلا لك .

- طريق الألف ميل يبدأ بخطوة -

- ألعاب من تصميمي:

المنقذ

الأربع تربح

المتاهة

#914 أكتوبر 2003 في 16:07

أخي FouFou أرجو المساعدة ولك جزيل الشكر

- طريق الألف ميل يبدأ بخطوة -

- ألعاب من تصميمي:

المنقذ

الأربع تربح

المتاهة

#1014 أكتوبر 2003 في 22:20

السلام عليكم

لقد ارسلت اليك برنامج على الايميل

انا في فترة امتحانات وما استطيع مساعدتك

لكن بمجرد انتهاء الامتحانات اتصل بك

والسلام

شكوت الى وكيع سوء حفظي فأرشدني الى ترك المعاصي

وأخبرني بأن العلم نور ونور الله لا يؤتى لعاص

#1114 أكتوبر 2003 في 23:59

أخي لقد رأيت المثال وشكرا جزيلا لك

ولكن ما أريده بالضبط هو أن أحرر أي نوع من أنواع الملفات حتى وإن لم يكن ملف تنفيذي وأظهره على شكل Bianry فقط أي ( 10101001 ) دون الـ Hex مع إمكانية التعديل على هذا الملف الذي قمت بتحريره اي تغير أحد الأرقام ( 1 أو 0 ) ومن ثم حفظ هذا التغير على نفس الملف أو في ملف جديد .

فهل يمكن ذلك وشكرا جزيلا لك .

- طريق الألف ميل يبدأ بخطوة -

- ألعاب من تصميمي:

المنقذ

الأربع تربح

المتاهة

#125 نوفمبر 2003 في 18:43

أرجو المساعدة

- طريق الألف ميل يبدأ بخطوة -

- ألعاب من تصميمي:

المنقذ

الأربع تربح

المتاهة

http://www.mirkes.de/download.php?id=29

#136 نوفمبر 2003 في 23:02

أظن أنك ستتعب علية قليلا صديقي فادي , فهو بحاجة إلى طولة بال وإلى وقت ليس بقليل لتطويرة .

إستخدم برامج ديلفي من النوع CLXapllication فهي معزولة عن نظام التشغيل وستساعدك كثيرا .

إذا كنت تريد برنامج تنفيذي يقوم بذلك من دون الشفرة فلدي ما تريد ..

ولكن إذا أردت الشفرة ربما يطول الموضوع قليلا .

#147 نوفمبر 2003 في 00:12

الأخ فادي،

يمكنك تحميل الكود من الموقع التالي:

وأظن أن الدالة function IntToRadix(Value: integer; Radix: byte): string;

هو ماتبحث عنه.

بالتوفيق

#159 نوفمبر 2003 في 00:50

شكرا لكم جميعا و أعتذر عن تأخري بالإجابة

أخي Mo3taz

المثال رائع جدا ولكن ما اريده هو التحويل إلى الـ binary وليس إلى الـHex كما ورد في المثال .

وشكرا لكم مرة ثانية .

- طريق الألف ميل يبدأ بخطوة -

- ألعاب من تصميمي:

المنقذ

الأربع تربح

المتاهة

#1615 نوفمبر 2003 في 18:06

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

أرجو المساعدة في إيجاد حل لهذ السؤال

وهو كيف يمكن تحرير أي نوع من أنواع الملفات ( مثل المفكرة ) بحيث تظهر على شكل Binary في الكائن ListBox مع إمكانية حفظ محتويات الـ ListBox في مكان ثاني فيظهر نفس الملف الذي قمت بتحريره .

بمعنى آخر :

إذا قمت بتحرير ملف المفكرة الموجود في المسار التالي C:\Notpad.exe

ومن ثم بداخل الديلفي قمت بعمل حفظ لمحتويات الكائن ListBox في المسار D:\not.exe يجب أن يتم إنشاء نفس ملف المفكرة تماما .

أرجو أن تكون قد اتضحت الفكرة وشكرا لكم .

أنتظر المساعدة .

- طريق الألف ميل يبدأ بخطوة -

- ألعاب من تصميمي:

المنقذ

الأربع تربح