Форум: "Media";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];
ВнизКак перевести данные TMemoryStream Найти похожие ветки
← →
ivankor (2002-10-11 15:02) [0]Как перевести данные TMemoryStream в строку шестнадцатеричных чисел?
Если можно то привидите пример
Зарание спасибо.
← →
MBo (2002-10-11 15:07) [1]for i:=0 to MStream.Size-1 do
s:=s+"$"+IntToHex(pbytearray(MStream.Memory)[i],3);
← →
Pumpkin (2002-10-11 15:08) [2]Если грубо
MS.ReadBuffer( B, 1 );
S := S + IntToHex( B, 2 );
← →
AlexT1000 (2002-10-11 15:10) [3]MyByte :byte;
MyHexString :string
with MemStream do begin
Position := 0;
MyHexString := "";
for i:=0 to Size -1 do begin
Read(MyByte,1);
MyHexString := MyHexString + IntToHex(MyByte,1);// побайтно сработает наверняка
end;
end;
← →
AlexT1000 (2002-10-11 15:45) [4]MyHexString := MyHexString + IntToHex(MyByte,2);// побайтно сработает наверняка
так вернее
← →
ivankor (2002-10-11 19:16) [5]Извините за тупой вопрос :)
А как обратно преобразовать?
Если можно с примером
зарание спасибо
← →
Metal Knight (2002-10-11 19:28) [6]
var Buf:PChar;
BufSize:integer;
...
BufSize:=Length(MyHexString)+1 div 2;
GetMem(Buf, BufSize);
HexToBin(MyHexString, Buf, BufSize);
MyMS.Write(Buf, BufSize);
FreeMem(Buf);
...
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c