Read Buffer & Write Buffer [Delphi]

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Read Buffer & Write Buffer [Delphi]
#1
PHP Kod:
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
 
 fexeTFileStream;
 
 _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
 
 fexeTFileStream;
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


* _Value_ değişkeninin tipi Word  olunca 2'li okuyor yani sütun sütun buda 4 karakter, Byte olunca 1'li  yani ikili olarak.
Bu kodlar sayesinde istediğiniz offset'deki bilgiyi okuyup istediğinizi yazabilirsiniz.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi ile Skin Administrator 0 2,085 15-12-2015, 20:12
Son Yorum: Administrator
  Program Kendi Kendini Silsin [ Delphi ] Administrator 0 1,974 21-11-2015, 20:40
Son Yorum: Administrator
  Delphi ile masaüstü yolunu alma Administrator 0 2,095 21-11-2015, 12:28
Son Yorum: Administrator
  Delphi ile Formu Gövdeden Sürükleme Administrator 0 2,160 20-11-2015, 09:54
Son Yorum: Administrator
  Delphi ile MD5 Kullanımı Administrator 0 2,440 19-11-2015, 19:47
Son Yorum: Administrator
  Program Parametreyle Başlasın [Delphi] Administrator 0 2,012 08-10-2015, 20:16
Son Yorum: Administrator

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi