<div dir="ltr">2013/7/15 Michael Van Canneyt <span dir="ltr"><<a href="mailto:michael@freepascal.org" target="_blank">michael@freepascal.org</a>></span><div class="gmail_extra"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div class="im">
On Sun, 14 Jul 2013, silvioprog wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Hello,<br>
Please see:<br>
<br>
<a href="http://bugs.freepascal.org/view.php?id=24746" target="_blank">http://bugs.freepascal.org/<u></u>view.php?id=24746</a><br>
</blockquote>
<br></div>
There are several things VERY wrong with your test program.<br>
 First:<br>
   VFile.Read(VBuf, VBufLen); // reading only the first 1024 bytes ...<br>
 Overrides the VBUf address.<br>
<br>
 It must be<br>
   VFile.Read(VBuf[0], VBufLen); // reading only the first 1024 bytes ...<br>
<br>
<br>
 Secondly,<br>
   VFile.Free; // free stream allowing to delete uploaded file, but, it causes<br>
 Frees the stream, but does not set the Stream property of TUploadedFile to nil.<br>
 When TUploadedFile is freed, it frees again the memory stream, causing an access violation.<br>
<br>
 I do not understand how your program could ever function.<br>
 I got access violations all over the place trying to run it.<br>
<br>
 Anyway, after fixing the 2 above issues it ran smootly.<br>
 Now, I suspect that the DeleteTempUploadedFiles does not work because Windows has the files locked when you attempt to delete them, so I changed TUploadedFile.<u></u>DeleteTempUploadedFile<br>
 so it first frees the stream if there is one.<br>
<br>
 (cannot test that under Linux, where the demo runs fine)<br>
<br>
Michael.</blockquote></div><div><br></div><div>Yes! :)</div><div><br></div><div>I'll test it and reply via mantis. Wait me please ...</div><div><br></div>-- <br>Silvio Clécio<br>My public projects - <a href="http://github.com/silvioprog" target="_blank">github.com/silvioprog</a>
</div></div>