كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي

[بى سات]

بسم الله الرحمن الرحيم
السلام عليكم

كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي
كمثال

PHP كود :

0x7f,0x00,0x7f,0x00,0x7f,0x00,0x7f,0x00,0x84,0x00,0x00,0x00,0x00 


الى ملف ناتج بصيغه bin بالشكل

PHP كود :

7f007f007f007f008400000000 


من داخل ميمو

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

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

[بى سات]

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

معرفه الطريقه لاتعلمها

[لؤي]

السلام عليكم

حاول بهذه الوظيفة :

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; 


[اسامه الحكيم]

بالنسبه للنصوص فسهل تحويلها الى قيم هيكس كما فى الصوره
اما بالنسبه لقيم الهيكس الموجوده فى ملف تكست عند تحويلها لم تظبط معى كما فى الصوره
ننتظر باقى الاخوه وطريقة اخى لؤى ناجحه بعد تجربتها

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

معرفه الطريقه لاتعلمها

بما انك تسال عن التحويل فعلى الاقل ترفق محاولتك بها قراءة ملف الhex وانشاء ملف bin فارغ دون تحويل

اما بالنسبه لقيم الهيكس الموجوده فى ملف تكست عند تحويلها لم تظبط معى

أرفق الملف

[اسامه الحكيم]

كود :

*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

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

[بى سات]

كما يتم تجويل من تكست الى هيكس دون النظر الى المسافات بين التكست بنفس الترتيب للملف

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

بالاعلى هذا هو ملف التكست

ان كان ملف نصي فيكون بلاحقة .txt فلما لا ترفقه ؟ والا من اين حصلت على النص ؟

ومرفق ملف الهيكس لزيادة التوضيح

المرفق ليس HEX وانما BIN وكما يبدو هو نوع من قواعد البيانات!

[onexite]

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;