Я конвертирую строку в шестнадцатеричное, но когда я конвертирую, шестнадцатеричный код имеет длину 2 * (строка), могу ли я сделать так, чтобы "длина строки = длина шестнадцатеричной строки" была возможна?
Я нашел этот код, он работает?
var
fs: TFileStream;
temp: Char;
buffer: string;
pBuffer: PAnsiChar;
text: PAnsiChar;
begin
fs := TFileStream.Create('file way', fmOpenRead or fmShareDenyNone);
fs.Position := 0;
while fs.Position < fs.Size do
begin
fs.Read(temp, 1); //buffer içine her defasında 1 byte gelir.
buffer := buffer + temp;
end;
pBuffer := PAnsiChar(buffer);
BinToHex(pBuffer, text, Length(buffer));
Memo1.Text := text;
end;