+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي (/showthread.php?tid=6516)
الصفحات:
1
2
كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي - بى سات - 27-10-2014
بسم الله الرحمن الرحيم
السلام عليكم
كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي
كمثال
PHP كود :
0x7f,0x00,0x7f,0x00,0x7f,0x00,0x7f,0x00,0x84,0x00,0x00,0x00,0x00
PHP كود :
7f007f007f007f008400000000
كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي - محمد عبد العزيز - 27-10-2014
وعليكم السلام
أرفق محاولتك!
كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي - بى سات - 27-10-2014
b.m.abdelaziz كتب :معرفه الطريقه لاتعلمها
وعليكم السلام
أرفق محاولتك!
كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي - لؤي - 27-10-2014
السلام عليكم
حاول بهذه الوظيفة :
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 في دلفي - اسامه الحكيم - 27-10-2014
بالنسبه للنصوص فسهل تحويلها الى قيم هيكس كما فى الصوره
اما بالنسبه لقيم الهيكس الموجوده فى ملف تكست عند تحويلها لم تظبط معى كما فى الصوره
ننتظر باقى الاخوه وطريقة اخى لؤى ناجحه بعد تجربتها
كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي - محمد عبد العزيز - 28-10-2014
إقتباس :معرفه الطريقه لاتعلمهابما انك تسال عن التحويل فعلى الاقل ترفق محاولتك بها قراءة ملف الhex وانشاء ملف bin فارغ دون تحويل
إقتباس :اما بالنسبه لقيم الهيكس الموجوده فى ملف تكست عند تحويلها لم تظبط معىأرفق الملف
كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي - اسامه الحكيم - 28-10-2014
كود :
*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بالاعلى هذا هو ملف التكست المطلوب تحويله الى هيكس
ومرفق ملف الهيكس لزيادة التوضيح
كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي - بى سات - 28-10-2014
كما يتم تجويل من تكست الى هيكس دون النظر الى المسافات بين التكست بنفس الترتيب للملف
كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي - محمد عبد العزيز - 29-10-2014
إقتباس :بالاعلى هذا هو ملف التكستان كان ملف نصي فيكون بلاحقة .txt فلما لا ترفقه ؟ والا من اين حصلت على النص ؟
إقتباس :ومرفق ملف الهيكس لزيادة التوضيحالمرفق ليس HEX وانما BIN وكما يبدو هو نوع من قواعد البيانات!
كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي - onexite - 29-10-2014
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;