<div dir="ltr"><div class="gmail_quote">On Sun, Dec 18, 2011 at 19:39, Michael Van Canneyt <span dir="ltr"><<a href="mailto:michael@freepascal.org">michael@freepascal.org</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div class="im"><br>
<br>
On Sun, 18 Dec 2011, ik wrote:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Hello,<br>
<br>
I'm using FPC 2.6 (rc) x86_64 on Linux with JSONParser.<br>
<br>
I've written the following code:<br>
<br>
-----------------------<br>
uses fpjson, jsonparser, SysUtils, classes;<br>
<br>
var<br>
  parser    : TJSONParser;<br>
  json_file : TFileStream; <br>
<br>
begin<br>
  json_file := TFileStream.Create('/tmp/test.<u></u>json', fmOpenRead);<br>
  json_file.position := 0;<br>
  parser := TJSONParser.create(json_file);<br>
  writeln('JSON: ', parser.Parse.AsJSON);<br>
</blockquote>
<br></div>
You are not freeing the result of the parse operation ?<br>
<br>
The user is responsible for freeing the result of .parse()<br>
<br>
So you must do<br>
<br>
Var<br>
  D: TJSONData;<br>
<br>
   parser := TJSONParser.create(json_file);<br>
   D:=Parser.parse;<br>
   writeln('JSON: ', D.AsJSON);<br>
   D.free; // Free result of parse.<br>
<br>
And while you're at it, you must always use try/finally blocks.<br>
Otherwise any exception (an error in the json) will result in your code not freeing the file stream or parser instance.<span class="HOEnZb"><font color="#888888"><br></font></span></blockquote><div><br>The fruit of this questions: <a href="http://translate.google.com/translate?sl=auto&tl=en&js=n&prev=_t&hl=en&ie=UTF-8&layout=2&eotf=1&u=http%3A%2F%2Fidkn.wordpress.com%2F2011%2F12%2F19%2Fworking-withh-json-using-fpc%2F&act=url">http://translate.google.com/translate?sl=auto&tl=en&js=n&prev=_t&hl=en&ie=UTF-8&layout=2&eotf=1&u=http%3A%2F%2Fidkn.wordpress.com%2F2011%2F12%2F19%2Fworking-withh-json-using-fpc%2F&act=url</a> :)<br>

<br>They translated very good but not perfect as you'll see. And they destroyed the source code there. I might upload it to github or something.<br> </div><blockquote class="gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">

<span class="HOEnZb"><font color="#888888">
<br>
Michael.</font></span><br>_______________________________________________<br>
fpc-pascal maillist  -  <a href="mailto:fpc-pascal@lists.freepascal.org">fpc-pascal@lists.freepascal.org</a><br>
<a href="http://lists.freepascal.org/mailman/listinfo/fpc-pascal" target="_blank">http://lists.freepascal.org/mailman/listinfo/fpc-pascal</a><br></blockquote></div><br>Ido<br></div>