26-06-2011, 05:01 PM
و عليكم السلام و رحمة الله
من
كود :
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