Read Buffer & Write Buffer [Delphi]

[Administrator]

PHP Kod:

<?php 

FUNCTION BUFFER_READ (_File_Name_:String;_Offset_:Int64;_TYPE_:Byte=1): STRING;

FUNCTION BUFFER_WRITE(_File_Name_:String;_Offset_:Int64;_Value_:Byte): STRING;





function BUFFER_READ(_File_Name_: String; _Offset_: Int64;_TYPE_:BYTE): STRING;

VAR

  fexe: TFileStream;

  _Value_: byte;

begin

 fexe := TFileStream.Create(_File_Name_, fmOpenReadWrite or fmShareExclusive);

   fexe.Position := _Offset_;

 fexe.ReadBuffer(_Value_,sizeof(_Value_));

        IF _TYPE_ = 1 THEN RESULT := IntToHex(_Value_,2)

   ELSE IF _TYPE_ = 2 THEN RESULT := CHR(_Value_)

   ELSE IF _TYPE_ = 3 THEN RESULT := IntToStr(_Value_);

 fexe.Free;

 { BUFFER_READ('C:\Example.txt',$4,3); }

end;





function BUFFER_WRITE(_File_Name_: String; _Offset_: Int64;

  _Value_: Byte): STRING;

VAR

  fexe: TFileStream;

begin

 fexe := TFileStream.Create(_File_Name_, fmOpenReadWrite or fmShareExclusive);

   fexe.Position := _Offset_;

 fexe.WriteBuffer(_Value_,sizeof(_Value_));

 fexe.Free;

 { BUFFER_WRITE('C:\Example.txt',$186F79,$80); }

end;