<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
Thanks, Ross.<div><br></div><div>Yes, I am in fact using TFileStream and its Read method for the binary extraction. </div><div><br></div><div>For the Header, I was hoping to find an existing method that I could call to to extract the the CR LF terminated strings, however I will use your suggestion for the header fields rather than indexing the char buffer.<br><br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">From: ross@stationplaylist.com<br>To: delphi@listserver.123.net.nz<br>Date: Mon, 5 Nov 2012 17:28:12 +1300<br>Subject: Re: [DUG] Reading Different Types from a Binary File<br><br><style><!--
.ExternalClass p.ecxMsoNormal, .ExternalClass li.ecxMsoNormal, .ExternalClass div.ecxMsoNormal
{margin-bottom:.0001pt;font-size:12.0pt;font-family:"Times New Roman","serif";}
.ExternalClass a:link, .ExternalClass span.ecxMsoHyperlink
{color:blue;text-decoration:underline;}
.ExternalClass a:visited, .ExternalClass span.ecxMsoHyperlinkFollowed
{color:purple;text-decoration:underline;}
.ExternalClass p
{margin-right:0cm;margin-left:0cm;font-size:12.0pt;font-family:"Times New Roman","serif";}
.ExternalClass span.ecxEmailStyle18
{font-family:"Calibri","sans-serif";color:#1F497D;}
.ExternalClass .ecxMsoChpDefault
{font-size:10.0pt;}
@page WordSection1
{size:612.0pt 792.0pt;}
.ExternalClass div.ecxWordSection1
{page:WordSection1;}
--></style><div class="ecxWordSection1"><p class="ecxMsoNormal"><span style="font-family:"Calibri","sans-serif";color:#1F497D">Personally I would use a TFileStream and FS.Read(S,1) one AnsiChar at a time, concatenating into an AnsiString if you want the info until you have ‘</span><span style="font-size:10.0pt;font-family:"Tahoma","sans-serif"">[End]’#13#10</span><span style="font-family:"Calibri","sans-serif";color:#1F497D"> in the string.</span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:"Tahoma","sans-serif""> </span></p><p class="ecxMsoNormal"><span style="font-family:"Calibri","sans-serif";color:#1F497D">This will have the file pointer at the start of the binary data where you can then FS.Read(MyDWORD,4) or MyByte,1 etc.</span></p><p class="ecxMsoNormal"><span style="font-family:"Calibri","sans-serif";color:#1F497D"> </span></p><p class="ecxMsoNormal"><span style="font-family:"Calibri","sans-serif";color:#1F497D">Ross.</span></p><p class="ecxMsoNormal"><span style="font-family:"Calibri","sans-serif";color:#1F497D"> </span></p><div><div style="border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm"><p class="ecxMsoNormal"><b><span lang="EN-US" style="font-size:10.0pt;font-family:"Tahoma","sans-serif"">From:</span></b><span lang="EN-US" style="font-size:10.0pt;font-family:"Tahoma","sans-serif""> delphi-bounces@listserver.123.net.nz [mailto:delphi-bounces@listserver.123.net.nz] <b>On Behalf Of </b>Eric A<br><b>Sent:</b> Monday, 5 November 2012 9:08 a.m.<br><b>To:</b> Delphi ListServer<br><b>Subject:</b> [DUG] Reading Different Types from a Binary File</span></p></div></div><p class="ecxMsoNormal"> </p><div><p class="ecxMsoNormal" style="margin-bottom:12.0pt"><span style="font-size:10.0pt;font-family:"Tahoma","sans-serif"">This is probably a no-brainer to most of the DUG members, especially those used to pointers ...<br><br>I need to read and extract data from a binary file which comprises:<br>- a header with character type strings, each terminated by CR LF (not nulls)<br>- binary data area with a mixture of byte types, word types and double word types<br>- a file terminator of 0xFFFF hex<br><br>The files are not huge, less than 500KB, as the structure originates from old memory-constrained microprocessors of the 80's.<br><br>The header looks like it is based on the old INI file format and is of the form:<br><br>[Header]<br>Created=1349233072<br>Title=<br>Type=D<br>Version=162<br>[End]<br><br>The binary data area follows next. It comprises different types of data blocks, with sub blocks, each of which contains either bytes, words or double words of data in a pre-defined pattern or structure depending on the type of data block.<br><br>I can read the file into a buffer (array of Char) but I currently have a chunk of somewhat ugly code to parse the header and find the start position of the binary data after the '[End] CR LF' string. After that I need to extract data of various types depending on the specified datablock types, which I though I might have to use pointers for.<br><br>What's the best approach for <br>a) Extracting the header strings - is there a Delphi function to extract CR LF terminated character sequences as strings and maintain a pointer to the end of the string?<br>b) Creating functions for ReadByte, ReadWord, ReadDoubleWord and incrementing the pointer appropriately in each case ?<br><br><br>Eric</span></p></div></div><br>_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi@listserver.123.net.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-request@listserver.123.net.nz with Subject: unsubscribe</div></div> </div></body>
</html>