Bir veriyi byte tipinde nasıl formatlarız ?

[cLaW]

Mesela Source Engine Query die bir text var bunu byte tipinde formatlamalıyım nasıl yapabilirim

FF FF FF FF 54 53 6F 75 72 63 65 20 45 6E 67 69 6E 65 20 51 75 65 72 79 00

Gibi Byte tipine dönmesi lazım nasıl yapabilirim ? Şimdiden teşekkürler

[Jire]

Şuna bakabilirsin.
http://delphi.about.com/cs/adptips2002/ ... 1002_5.htm

Bİrde bu koda bakabilirsin.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  mBuffer:array[0..100] of Byte;
  m1:String;
  i:integer;
begin
  m1:='Hello,World!'
  for i:=1 to lenght(m1) do
  begin
     mBuffer[i]:=ORD(m1[i]);
  end;
end;

Aşağıdaki çalışıyor gibi gözüküyor

[sabanakman]

IniFiles.pas'ta bulunan WriteBinaryStream ve ReadBinaryStream metotlarını incele. Orada bulunan BinToHex ve HexToBin fonksiyonları aradığın konu olabilir.

[cLaW]

Teşekkürler Cevaplarınız için