Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1204
  • Last Modified:

Convert Hexadecimal Images to Binary Format?

I'm extracting "hexadecimal images" out of RTF documents and I need instructions on how to convert them back to their original format (PNG, JPG, etc.).

Can anyone give me any pointers on how to translate the hex back into binary?

Thanks!

0
surfbored
Asked:
surfbored
  • 2
1 Solution
 
developmentguruPresidentCommented:
First, how are you extracting the RTF documents?  The term Hexadecimal Images could refer to so many things.  As far as converting to other formats there is a lot of information out there on the conversions.  What is missing here is the starting point.  If you do a screen capture then you are starting with a bitmap.  Give us some more information to work with please.
0
 
surfboredAuthor Commented:
Sorry for the lack of details. I'm actually reading through the RTF text stream and extracting only the hexadecimal code that I find there.

I've started working on a solution, but I haven't proven that any piece (other than the extraction) actually works. In the code snippet, I have included the two approaches I'm currently trying. Now I'm trying to figure out how to write out the binary data that I *think* I have, to prove that one or both of these are actually working.

Suggestions?
.
.
.
sImg := StringReplace(sImg, #13#10, '',[rfReplaceAll]);
HexDigitToByte(sImg);
iHexReturn := HexToBin3(sImg);
Showmessage(inttostr(iHexReturn));
.
.
.
 
 
//First option
function TForm1.HexDigitToByte(HexData: String): Boolean;
    var
        BinaryData: PByteArray;
        DataSize, I: Integer;
    begin
        BinaryData := nil;
        DataSize := Length(HexData) div 2;
        GetMem(BinaryData, DataSize);
        try
            for I := 0 to DataSize-1 do
                BinaryData[I] := Byte(StrToInt('$' + Copy(HexData, (I*2)+1, 2)));
            // use BinaryData as needed...
        finally
            FreeMem(BinaryData);
        end;
    end;
 
//Second Option
function TForm1.HexToBin3(HexData: string): Integer;
var
  Buf: array[0..SizeOf(HexData) * 2] of Char;
begin
  Result := HexToBin(PAnsiChar(HexData), Buf, SizeOf(Buf) - 1);
end;

Open in new window

0
 
surfboredAuthor Commented:
Sorry for the "tease", Team B gave me the following solution!


function TForm1.HexToBin4(HexData: string): Integer;
var
  Buf: PChar;
  BufSize: Integer;
  fs: TFileStream;
begin
  BufSize := Length(HexData) div 2;
  GetMem(Buf, BufSize);
    try
      Result := HexToBin(PChar(HexData), Buf, BufSize);
      fs := TFileStream.Create('c:\temp\test.jpg', fmCreate);
        try
          fs.WriteBuffer(Buf^, BufSize);
        finally
          fs.Free;
        end;
    finally
      FreeMem(Buf);
    end;
end;

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now