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,237 07-10-2021, 21:30
Son Yorum: OZCANK61
  Delphi ile Skin Administrator 0 4,669 15-12-2015, 20:12
Son Yorum: Administrator
  Program Kendi Kendini Silsin [ Delphi ] Administrator 0 4,439 21-11-2015, 20:40
Son Yorum: Administrator
  Delphi ile masaüstü yolunu alma Administrator 0 4,627 21-11-2015, 12:28
Son Yorum: Administrator
  Delphi ile Formu Gövdeden Sürükleme Administrator 0 4,859 20-11-2015, 09:54
Son Yorum: Administrator
  Program Parametreyle Başlasın [Delphi] Administrator 0 4,414 08-10-2015, 20:16
Son Yorum: Administrator

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi