Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
ВнизПреобразование в HEX Найти похожие ветки
← →
dabreezy (2006-02-20 10:23) [0]Добрый день.
А есть ли функция для того, чтобы преобразовать строку в Hex?
Например вот так: мебель --> %EC%E5%E1%E5%EB%FC
Вернее можно получить десятичные числа, а потом преобразовать их в шеснадцатиричные.
В делфи есть ф-ция:
rocedure BinToHex(Buffer, Text: PChar; BufSize: Integer);
А как ей пользоваться? Чего-то не получается.
Заранее спасибо.
← →
tesseract © (2006-02-20 10:34) [1]не моё автор - Azret Botash Project JEDI.
function StrToHex(const Source: AnsiString): AnsiString;
var
P: PChar;
C, L, N: Integer;
BL, BH: Byte;
S: AnsiString;
begin
Result := "";
if Source <> "" then
begin
S := Source;
L := Length(S);
if Odd(L) then
begin
S := "0" + S;
Inc(L);
end;
P := PChar(S);
SetLength(Result, L div 2);
C := 1;
N := 1;
while C <= L do
begin
BH := CharHex(P^);
Inc(P);
BL := CharHex(P^);
Inc(P);
Inc(C, 2);
if (BH = $FF) or (BL = $FF) then
begin
Result := "";
Exit;
end;
Byte(Result[N]) := Byte((BH shl 4) + BL);
Inc(N);
end;
end;
end;
← →
begin...end © (2006-02-20 10:39) [2]> dabreezy (20.02.06 10:23)
> В делфи есть ф-ция:
> rocedure BinToHex(Buffer, Text: PChar; BufSize: Integer);
> А как ей пользоваться? Чего-то не получается.
var
S, Hex: string;
begin
S := "мебель";
SetLength(Hex, Length(S) * 2);
BinToHex(PChar(S), PChar(Hex), Length(S));
ShowMessage(Hex)
end
← →
dabreezy (2006-02-20 10:42) [3]Спасибо всем!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.02 c