07-07-2022, 06:34 PM
بنفس الطريقة جربت الكتابة بدل القراءة ولم تفلح
هل هذه الطريقة الصحيحة
وجربت على مشروع اخر غير الذي نتمرن عليه فلم اجد البلوك او لا اعرف ما تسمونه بنهاية الملف والذي يحوي اصفار
وانما ارقام ورموز حتى نهايته
هل هذه الطريقة الصحيحة
كود :
var
MyStream: TMemoryStream;
StoredChecksum,StorMachine, CalculateChecksum: dword;
begin
MyStream := TMemoryStream.Create;
MyStream.LoadFromFile(Application.ExeName);
StoredChecksum:=12114367;
MyStream.Seek(-4, soFromEnd);
MyStream.Write (StoredChecksum, 4);
MyStream.Seek(0, soFromBeginning);
MyStream.SetSize(MyStream.Size - 4);
MyStream.Free;
end;وجربت على مشروع اخر غير الذي نتمرن عليه فلم اجد البلوك او لا اعرف ما تسمونه بنهاية الملف والذي يحوي اصفار
وانما ارقام ورموز حتى نهايته
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم