Форум: "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.015 c