Solved

Convert Hexadecimal Images to Binary Format?

Posted on 2008-06-11
3
1,197 Views
Last Modified: 2008-06-19
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
Comment
Question by:surfbored
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 21

Expert Comment

by:developmentguru
ID: 21764024
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
 
LVL 1

Author Comment

by:surfbored
ID: 21764640
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
 
LVL 1

Accepted Solution

by:
surfbored earned 0 total points
ID: 21765623
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

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I would like to show you some basics you can do with Mailings in MS Word. It´s quite handy feature you can use for creating envelopes, labels, personalized letters etc. First question could be what is this feature good for? Mailing can really he…
Preface: When I started this series, I used the term CommandBars because that is the Office Object class that it discusses. Unfortunately, when Microsoft introduced Office 2007, they replaced the standard Commandbar menus with "The Ribbon" and rem…
This video shows and describes the main difference between both orientations in Microsoft Word. Viewers will understand when to use each orientation and how to get the most out of them.
This video walks the viewer through the process of creating envelopes and labels, with multiple names and addresses. Navigate to the “Start Mail Merge” button in the Mailings tab: Follow the step-by-step process until asked to find the address doc…
Suggested Courses
Course of the Month7 days, 16 hours left to enroll

617 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question