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


* _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 MD5 Kullanımı Administrator 2 6,318 07-10-2021, 21:30
Son Yorum: OZCANK61
  Delphi ile Skin Administrator 0 4,729 15-12-2015, 20:12
Son Yorum: Administrator
  Program Kendi Kendini Silsin [ Delphi ] Administrator 0 4,495 21-11-2015, 20:40
Son Yorum: Administrator
  Delphi ile masaüstü yolunu alma Administrator 0 4,679 21-11-2015, 12:28
Son Yorum: Administrator
  Delphi ile Formu Gövdeden Sürükleme Administrator 0 4,928 20-11-2015, 09:54
Son Yorum: Administrator
  Program Parametreyle Başlasın [Delphi] Administrator 0 4,468 08-10-2015, 20:16
Son Yorum: Administrator

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi