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

delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي
نسخة كاملة : كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

بى سات

27-10-2014, 10:42 AM
بسم الله الرحمن الرحيم
السلام عليكم

كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي
كمثال
PHP كود :
0x7f,0x00,0x7f,0x00,0x7f,0x00,0x7f,0x00,0x84,0x00,0x00,0x00,0x00 
الى ملف ناتج بصيغه bin بالشكل
PHP كود :
7f007f007f007f008400000000 
من داخل ميمو

محمد عبد العزيز

27-10-2014, 11:33 AM

وعليكم السلام
أرفق محاولتك!

بى سات

27-10-2014, 12:41 PM
b.m.abdelaziz كتب :
وعليكم السلام
أرفق محاولتك!
معرفه الطريقه لاتعلمها

لؤي

27-10-2014, 02:47 PM
السلام عليكم

حاول بهذه الوظيفة :
PHP كود :
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  BinaryStream: TMemoryStream;
  HexStr: AnsiString;
begin
  HexStr := 'FAA4F4AAA44444';
  BinaryStream := TMemoryStream.Create;
  try
    BinaryStream.Size := Length(HexStr) div 2;
    if BinaryStream.Size > 0 then
    begin
      HexToBin(PAnsiChar(HexStr), BinaryStream.Memory, BinaryStream.Size);
      BinaryStream.SaveToFile('c:\myfile.bin')
    end;
  finally
    BinaryStream.Free;
  end;
end; 

اسامه الحكيم

27-10-2014, 08:57 PM
[صورة: attachment.php?attachmentid=4559&d=1414439724]
بالنسبه للنصوص فسهل تحويلها الى قيم هيكس كما فى الصوره
اما بالنسبه لقيم الهيكس الموجوده فى ملف تكست عند تحويلها لم تظبط معى كما فى الصوره
ننتظر باقى الاخوه وطريقة اخى لؤى ناجحه بعد تجربتها

محمد عبد العزيز

28-10-2014, 09:38 AM
إقتباس :معرفه الطريقه لاتعلمها
بما انك تسال عن التحويل فعلى الاقل ترفق محاولتك بها قراءة ملف الhex وانشاء ملف bin فارغ دون تحويل
إقتباس :اما بالنسبه لقيم الهيكس الموجوده فى ملف تكست عند تحويلها لم تظبط معى
أرفق الملف

اسامه الحكيم

28-10-2014, 01:32 PM
كود :
*Nail sat 0 0 0 9750 10600 10600 1 Al Majd 3 8191 2310 2311 8191 8191 2310 12054 27500 V 0 1 1 Left Alafasy0 8191 5072 5073 8191 8191 5071 10727 30000 H 0 1 1 Left Time Qur2an 8191 531 532 8191 8191 531 11603 27500 H 0 1 1 Left Quran TV 8191 265 521 8191 8191 265 10815 27500 H 0 1 1 Left Resalat AlIslam 8191 1240 1242 8191 8191 1240 11842 27500 H 0 1 1 Left 4Shabab Quran 8191 33 501 8191 8191 33 11315 27500 V 0 1 1 Left AYAATTTT 8191 4241 4242 8191 8191 4241 11334 27500 H 0 1 1 Left Saudi Quran 8191 2308 2309 8191 8191 2308 12149 27500 H 0 1 1 Left Saudi Sunnah 8191 2310 2311 8191 8191 2310 12149 27500 H 0 1 1 Left

بالاعلى هذا هو ملف التكست المطلوب تحويله الى هيكس
ومرفق ملف الهيكس لزيادة التوضيح

بى سات

28-10-2014, 02:01 PM
كما يتم تجويل من تكست الى هيكس دون النظر الى المسافات بين التكست بنفس الترتيب للملف

محمد عبد العزيز

29-10-2014, 01:54 PM
إقتباس :بالاعلى هذا هو ملف التكست
ان كان ملف نصي فيكون بلاحقة .txt فلما لا ترفقه ؟ والا من اين حصلت على النص ؟
إقتباس :ومرفق ملف الهيكس لزيادة التوضيح
المرفق ليس HEX وانما BIN وكما يبدو هو نوع من قواعد البيانات!

onexite

29-10-2014, 05:16 PM
PHP كود :
const FileSize:Byte=12;
FileData:array[0..12] of Byte=(00,00,00,00,00,00,00,00,00,00,00,00,00);
procedure SaveToFile(FileName:String);
var F:File of Byte;
    i:Byte;
begin
AssignFile(F,FileName);
ReWrite(F);
for i:=0 to FileSize-1 do Write(F,FileData[i]);
CloseFile(F);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
SaveToFile('c:\1.bin');
end; 
الصفحات : 1 2
delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي