+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف تحويل الصورة Bitmap إلى ترميز ست عشري Hex (/showthread.php?tid=3237)
كيف تحويل الصورة Bitmap إلى ترميز ست عشري Hex - FPS - 26-06-2011
السلام عليكم ورحمة الله وبركاته
كيف تحويل الصورة Bitmap إلى ترميز ست عشري Hex
كيف تحويل الصورة Bitmap إلى ترميز ست عشري Hex - paix144 - 26-06-2011
و عليكم السلام و رحمة الله
كود :
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