كيف تحويل الصورة Bitmap إلى ترميز ست عشري Hex

[FPS]

السلام عليكم ورحمة الله وبركاته

كيف تحويل الصورة Bitmap إلى ترميز ست عشري Hex

[paix144]

و عليكم السلام و رحمة الله

كود :

function StreamToHexStr(Stream: TStream; LineSize: Integer = 80): TStringList; var Value: Byte; begin Result := TStringList.Create; if Result.Count = 0 then Result.Add(''); repeat Stream.Read(Value, 1); Result[Result.Count - 1] := Result[Result.Count - 1] + IntToHex(Value, 2); if Length(Result[Result.Count - 1]) >= LineSize then Result.Add(''); Stream.Seek(1, soFromCurrent); until Stream.Position >= Stream.Size - 1; if Result[Result.Count - 1] = '' then Result.Delete(Result.Count - 1); end;

من

كود :

http://users.atw.hu/delphicikk/listaz.php?id=1207&oldal=24