sure :) thx On Friday, February 03, 2012 15:42:25 Benoît Minisini wrote: > Le 03/02/2012 15:13, Wally a écrit : > > What is wrong in this code ? > > > > Public Sub Button1_Click() > > > > Dim f, r As Single > > Dim pPtr As Pointer > > Dim strm As Stream > > > > f = 1 / 3 > > > > pPtr = Alloc(1, 4) 'alloc 4 * 1 Byte for single > > > > strm = Memory pPtr For Read Write > > > > Write #strm, f As Single > > > > r = Read #strm As Single > > > > Print f ' --> 0.3333333 > > Print r ' --> 1.261169E-44 > > > > Close #strm > > Free(pPtr) > > > > End > > The stream pointer goes forward after a Write or a Read. You must use Seek!
------------------------------------------------------------------------------ Try before you buy = See our experts in action! The most comprehensive online learning library for Microsoft developers is just $99.99! Visual Studio, SharePoint, SQL - plus HTML5, CSS3, MVC3, Metro Style Apps, more. Free future releases when you subscribe now! http://p.sf.net/sfu/learndevnow-dev2 _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user
