Código: Seleccionar todo
function ArrayToByte(buffer: String;Lar:Integer): TByteArray;
var
i: integer;
begin
SetLength(Result, Lar-1);
for i := 0 to Lar-1 do
begin
Result[i] := ord(buffer[i+1]);
end;
end;Convierte una string en byte array
//mHmm..
