كيف اضافة ملف hex دخل اداة memo
#1
سلام عليكم ورحمة الله وبركته

اريد تعديل ملف المرفق  

مشروع يعرض ملف hex  دخل memo  


https://files.fm/u/z3wkwb9fs


الملفات المرفقة
.png   Capture.PNG (الحجم : 13.36 ك ب / التحميلات : 12)
.png   Capture1.PNG (الحجم : 129.91 ك ب / التحميلات : 13)
.png   VVV.PNG (الحجم : 275.43 ك ب / التحميلات : 3)
الرد
#2
وعليكم السلام

ان كان للعرض فقط يمكنك استعمال BinToHex لتحويل المعطيات من Bin الى النص   Hex اما التعديل على المعطيات على memo1 سيكون صعب و غير عملي الا اذا كانت بسيطة

كود لفتح ملف

كود :
procedure TForm1.Button1Click(Sender: TObject);
var
  S:string;
  M:TMemoryStream;
begin
if OPENDIALOG1.Execute then
begin
   M:=TMemoryStream.Create();
   try
     M.LoadFromFile(opendialog1.Filename);
     Setlength(S,M.Size*2);
     BinToHex(PAnsichar(M.Memory),PWidechar(S),M.Size);
     memo1.Lines.Text := S;
   finally
      M.Free;
   end;

end;
end;
[-] كل من 1 user says قال شكرا ل Ndagor على المشاركة المفيدة
  • Team dz
الرد
#3
شكرا  لك اخي الكريم  اريد التعديل عليه كما في الصورة المرفقة


الملفات المرفقة
.png   VVV.PNG (الحجم : 275.43 ك ب / التحميلات : 10)
الرد
#4
انت لاتقدم معلومات كافية ولا ادري كيف تريد التعديل الملف الثنائي ما يظهر في الصورة  هو  StringGrid  وليس Memo 


انظر المثال المرفق يقوم التعامل مع ملف  Bin بواسطة DrawGrid

يمكنك تعيله علي حسب حاجة

[صورة: Dlg.png]


الملفات المرفقة
.zip   DELPHI.zip (الحجم : 53.69 ك ب / التحميلات : 5)
[-] كل من 1 user says قال شكرا ل Ndagor على المشاركة المفيدة
  • Team dz
الرد
#5
برك الله فيك  اخي الكريم   

اريد نداء لقيمة معينة في  سطر معين  
مثلا 
سطر  00007B0  

قيمة  التى نناديها في EDIT1  هيا  

D8F3

مثال للتوضيح  اكثر  

00007B0 : D8F3 FEA0 D8F3 FE21 D8F3 FE22 D8F3 FEA3


القيمة باللون لاحمر اريدها مناتها عند رفع الملف  يذهب البرنامج الى السطر  00007b0 offest

برك الله فيك اخي الكريم

اريد نداء لقيمة معينة في سطر معين
مثلا
سطر 00007B0

قيمة التى نناديها في EDIT1 هيا

D8F3

مثال للتوضيح اكثر

00007B0 : D8F3 FEA0 D8F3 FE21 D8F3 FE22 D8F3 FEA3


القيمة باللون لاحمر اريدها مناتها عند رفع الملف يذهب البرنامج الى السطر 00007b0 offest
الرد
#6
معنى هذا انه يقوم بعملية بحث لايجاد قيمة D8F3 و تحديد عنوانها في الجدول ,,لقد اظفت زر Find يقوم بعملية البحث  من العنوان 0 ان كنت تريد البحث من عنوان محدد غير قيمة BinTxtBPos  في BFindClick الى عنوان الذي تريده

ان كنت تريد الذهاب مباشرة الى عنوان محدد تمكنك ادخاله في Offset الموجود اعلى Edit

المشكلة مع Memo انه لايمكن التعامل مع العناوين و من دون اظهارها لايمكن التعامل مع الملف بسهوله
هناك مثالان في الملف المرفق


الملفات المرفقة
.zip   HexEdit.zip (الحجم : 14.29 ك ب / التحميلات : 14)
[-] كل من 1 user says قال شكرا ل Ndagor على المشاركة المفيدة
  • ELARAPY
الرد
#7
(16-11-2022, 12:45 PM)Ndagor كتب : معنى هذا انه يقوم بعملية بحث لايجاد قيمة D8F3 و تحديد عنوانها في الجدول ,,لقد اظفت زر Find يقوم بعملية البحث  من العنوان 0 ان كنت تريد البحث من عنوان محدد غير قيمة BinTxtBPos  في BFindClick الى عنوان الذي تريده

ان كنت تريد الذهاب مباشرة الى عنوان محدد تمكنك ادخاله في Offset الموجود اعلى Edit

المشكلة مع Memo انه لايمكن التعامل مع العناوين و من دون اظهارها لايمكن التعامل مع الملف بسهوله
هناك مثالان في الملف المرفق

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

اخي هل يمكنك شرح الكود سطر سطر ووضع تعليق لكل سطر بالانجليزية , ان كان وقتك يسمح للشرح فأتمنى ان يكون درس مفصل حتى استطيع الفهم
قل إن صلاتي ونسكي ومحياي ومماتي لله رب العالمين
[-] كل من 1 user says قال شكرا ل ELARAPY على المشاركة المفيدة
  • Ndagor
الرد
#8
لقد قمت بتبسيط الكود ليسهل عليك فهمه و اضفت بعض التعليقات ..بانجليزيتي البسيطة..
بعد فتح الملف يمكن معاينة اي جزء من الملف و ذلك بتحديد العنوان و حجم البيانات المراد معاينتها و يمكن تعديلها ثم تسجيل كل ذلك ..يمكن ايضا اجراء بحث عن قيمة محددة..

يمكن مواصلة التعليق على هذا الرابط المتعلق بالموضوع ..

https://delphi4arab.net/forum/showthread...8#pid55848


الملفات المرفقة
.zip   MemoHex.zip (الحجم : 2.85 ك ب / التحميلات : 2)
[-] كل من 1 user says قال شكرا ل Ndagor على المشاركة المفيدة
  • ELARAPY
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم