Re: [fpc-pascal] Adding a array of float in ressource and use it ?

[fredvs]

Re-hello.

Ok, I do not find yet the guilty in my code, I will re-try a other day.
By the way, your code is working perfectly Sven.

Now, last part of the question: how to convert that file stored into
ressource but without to write to the disk (only memory stream)?

A TFileStream could be used but it needs a path.
And in ressource there is no path to use in
TFileStream.Create('/the/path/filename', fmOpenRead); 

What could be the solution ?

Fre;D





-
Many thanks ;-)
--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/Adding-a-array-of-float-in-ressource-and-use-it-tp5727765p5727793.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Adding a array of float in ressource and use it ?

[Sven Barth via fpc-pascal]

Am 06.03.2017 22:45 schrieb "fredvs" :
>
> > I don't know what you're doing wrong, but the following works:
>
> Huh, it is exactly what I (think to) do.
> And re-reading hundred times my code does not see any difference.
>
> OK, I will re-read thousand times the code, maybe I will find what is
wrong.

Then try to minimize your code as much as possible and then show it here
(an as small as possible compileable example that shows your problem).

Regards,
Sven
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Adding a array of float in ressource and use it ?

[fredvs]

> I don't know what you're doing wrong, but the following works: 

Huh, it is exactly what I (think to) do.
And re-reading hundred times my code does not see any difference.

OK, I will re-read thousand times the code, maybe I will find what is wrong.

Many thanks for your code Sven.

Fre;D 



-
Many thanks ;-)
--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/Adding-a-array-of-float-in-ressource-and-use-it-tp5727765p5727791.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Adding a array of float in ressource and use it ?

[Sven Barth via fpc-pascal]

On 06.03.2017 19:31, fredvs wrote:
>> Or, quite comically maybe: use a text file
> 
> Or maybe, like in my second post, convert float32 ---> integer32
> 
> for x := 0 to length(floatbuffer) -1 do 
>   begin 
>floatbuffer[x] := round(floatbuffer[x] * 2147483647); 
>if floatbuffer[x] > 2147483647 then floatbuffer[x] := 2147483647; 
>if floatbuffer[x] < -2147483647 then floatbuffer[x] := -2147483647; 
>   end; 
> 
> And do the reverse when reading from the file ?

I don't know what you're doing wrong, but the following works:

=== code begin ===

program tfloatbuf;

{$mode objfpc}

uses
  SysUtils, Classes, ctypes;

var
  fbuf: array of cfloat;
  i: LongInt;
  fs: TFileStream;
begin
  SetLength(fbuf, 42);
  for i := Low(fbuf) to High(fbuf) do
fbuf[i] := 3.1415;

  Writeln('Writing data to ', ParamStr(1));
  fs := TFileStream.Create(ParamStr(1), fmOpenWrite or fmCreate);
  try
fs.WriteBuffer(fbuf[0], Length(fbuf) * SizeOf(fbuf[0]));
  finally
fs.Free;
  end;

  SetLength(fbuf, 0);
  SetLength(fbuf, 42);

  Writeln('Reading data from ', ParamStr(1));
  fs := TFileStream.Create(ParamStr(1), fmOpenRead);
  try
fs.ReadBuffer(fbuf[0], Length(fbuf) * SizeOf(fbuf[0]));
  finally
fs.Free;
  end;

  for i := Low(fbuf) to High(fbuf) do
Writeln(fbuf[i]);
end.

=== code end ===

Regards,
Sven
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Adding a array of float in ressource and use it ?

[fredvs]

> Or, quite comically maybe: use a text file

Or maybe, like in my second post, convert float32 ---> integer32

for x := 0 to length(floatbuffer) -1 do 
  begin 
   floatbuffer[x] := round(floatbuffer[x] * 2147483647); 
   if floatbuffer[x] > 2147483647 then floatbuffer[x] := 2147483647; 
   if floatbuffer[x] < -2147483647 then floatbuffer[x] := -2147483647; 
  end; 

And do the reverse when reading from the file ?

Fre;D 



-
Many thanks ;-)
--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/Adding-a-array-of-float-in-ressource-and-use-it-tp5727765p5727789.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Adding a array of float in ressource and use it ?

[Lukasz Sokol]

Or, quite comically maybe: use a text file... write/writeln and read/readln,
and use zip compression on the text file to compress data...

-L.

On 06/03/17 15:59, Lukasz Sokol wrote:
> On 06/03/17 14:50, fredvs wrote:
>>> I don't know. By all logic, it should not work either.
>> 
>> OK, It comes from a "lucky" bug (thanks to reveal it). There was a
>> setlength(buffer, length(buffer) * channels) not needed.
>> 
>> Ok, fixed.
>> 
>> But the problem remain:
>> 
>> If data are int16 or int32: OK, the file is created with +- 1 mega
>> bytes and I can get those data back.
>> 
>> But if data are float32: NOT OK, the file is created but with only
>> 6 octets ;-( .
>> 
>> For example,
>> 
>> for x :=0 to length(bufferfloat) -1 do bufferfloat[x] := 127 ; //
>> for int16 ---> it works
>> 
>> for x :=0 to length(bufferfloat) -1 do bufferfloat[x] :=
>> 2147483646;  // for int32 ---> it works
>> 
>> for x :=0 to length(bufferfloat) -1 do bufferfloat[x] :=
>> 0.2147483646 ; // for float32 > it does not work
>> 
> 
> Looks like for float you'd need a conversion record
> 
> {enable packed records}
> 
> TFloatToBuffer = packed record case boolean of true: FloatField :
> float32; false : BufferField : array[0..3] of byte; end; end;
> 
> for x := 0 to length(bufferfloat)-1 do bufferfloat[x].FloatField :=
> {float value}
> 
> // but then special handling is likely needed to concat the buffer to
> write to file and reading from file // so be careful ;)
> 
> 
> -L.
>> 
>> Fre;D
>> 
>> 
>> 
>> - Many thanks ;-) -- View this message in context:
>> http://free-pascal-general.1045716.n5.nabble.com/Adding-a-array-of-float-in-ressource-and-use-it-tp5727765p5727784.html
>>
>> 
Sent from the Free Pascal - General mailing list archive at Nabble.com.
>> ___ fpc-pascal maillist
>> -  fpc-pascal@lists.freepascal.org 
>> http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
>> 
> 
> 
> ___ fpc-pascal maillist
> -  fpc-pascal@lists.freepascal.org 
> http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
> 


___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Adding a array of float in ressource and use it ?

[Michael Van Canneyt]

On Mon, 6 Mar 2017, Lukasz Sokol wrote:


On 06/03/17 14:50, fredvs wrote:

I don't know. By all logic, it should not work either.


OK, It comes from a "lucky" bug (thanks to reveal it).
There was a setlength(buffer, length(buffer) * channels) not needed.

Ok, fixed.

But the problem remain:

If data are int16 or int32: OK, the file is created with +- 1 mega bytes and
I can get those data back.

But if data are float32: NOT OK, the file is created but with only 6 octets
;-( . 

For example, 

for x :=0 to length(bufferfloat) -1 do 
bufferfloat[x] := 127 ; // for int16 ---> it works


for x :=0 to length(bufferfloat) -1 do 
bufferfloat[x] := 2147483646;  // for int32 ---> it works


for x :=0 to length(bufferfloat) -1 do 
bufferfloat[x] := 0.2147483646 ; // for float32 > it does not work 



Looks like for float you'd need a conversion record


There should be absolutely no need for that ?

Michael.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Adding a array of float in ressource and use it ?

[Michael Van Canneyt]

On Mon, 6 Mar 2017, fredvs wrote:


I don't know. By all logic, it should not work either.


OK, It comes from a "lucky" bug (thanks to reveal it).
There was a setlength(buffer, length(buffer) * channels) not needed.

Ok, fixed.

But the problem remain:

If data are int16 or int32: OK, the file is created with +- 1 mega bytes and
I can get those data back.

But if data are float32: NOT OK, the file is created but with only 6 octets
;-( . 

For example, 

for x :=0 to length(bufferfloat) -1 do 
bufferfloat[x] := 127 ; // for int16 ---> it works


for x :=0 to length(bufferfloat) -1 do 
bufferfloat[x] := 2147483646;  // for int32 ---> it works


for x :=0 to length(bufferfloat) -1 do 
bufferfloat[x] := 0.2147483646 ; // for float32 > it does not work


If the bufferfloat is the same variable in all cases, there should be no 
difference
whatsoever. The write operation doesn't care a fig about the actual contents of 
the buffer.

Michael.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Adding a array of float in ressource and use it ?

[Lukasz Sokol]

On 06/03/17 14:50, fredvs wrote:
>> I don't know. By all logic, it should not work either.
> 
> OK, It comes from a "lucky" bug (thanks to reveal it).
> There was a setlength(buffer, length(buffer) * channels) not needed.
> 
> Ok, fixed.
> 
> But the problem remain:
> 
> If data are int16 or int32: OK, the file is created with +- 1 mega bytes and
> I can get those data back.
> 
> But if data are float32: NOT OK, the file is created but with only 6 octets
> ;-( . 
> 
> For example, 
> 
> for x :=0 to length(bufferfloat) -1 do 
> bufferfloat[x] := 127 ; // for int16 ---> it works
> 
> for x :=0 to length(bufferfloat) -1 do 
> bufferfloat[x] := 2147483646;  // for int32 ---> it works
> 
> for x :=0 to length(bufferfloat) -1 do 
> bufferfloat[x] := 0.2147483646 ; // for float32 > it does not work  
> 

Looks like for float you'd need a conversion record

{enable packed records}

TFloatToBuffer = packed record
  case boolean of
true: FloatField : float32;
false : BufferField : array[0..3] of byte;
  end;
end;

for x := 0 to length(bufferfloat)-1 do
  bufferfloat[x].FloatField := {float value}

// but then special handling is likely needed to concat the buffer to write to 
file and reading from file
// so be careful ;)


-L.
> 
> Fre;D
> 
> 
> 
> -
> Many thanks ;-)
> --
> View this message in context: 
> http://free-pascal-general.1045716.n5.nabble.com/Adding-a-array-of-float-in-ressource-and-use-it-tp5727765p5727784.html
> Sent from the Free Pascal - General mailing list archive at Nabble.com.
> ___
> fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
> http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
> 


___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Adding a array of float in ressource and use it ?

[fredvs]

> I don't know. By all logic, it should not work either.

OK, It comes from a "lucky" bug (thanks to reveal it).
There was a setlength(buffer, length(buffer) * channels) not needed.

Ok, fixed.

But the problem remain:

If data are int16 or int32: OK, the file is created with +- 1 mega bytes and
I can get those data back.

But if data are float32: NOT OK, the file is created but with only 6 octets
;-( . 

For example, 

for x :=0 to length(bufferfloat) -1 do 
bufferfloat[x] := 127 ; // for int16 ---> it works

for x :=0 to length(bufferfloat) -1 do 
bufferfloat[x] := 2147483646;  // for int32 ---> it works

for x :=0 to length(bufferfloat) -1 do 
bufferfloat[x] := 0.2147483646 ; // for float32 > it does not work  


Fre;D



-
Many thanks ;-)
--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/Adding-a-array-of-float-in-ressource-and-use-it-tp5727765p5727784.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Adding a array of float in ressource and use it ?

[Sven Barth via fpc-pascal]

Am 06.03.2017 13:42 schrieb "fredvs" :
>
> > I don't know. By all logic, it should not work either.
>
> Yes, it is I think too.
>
> Some more explanation:
>
> I use  a "global" buffer of float to store data.
> Those data can be int16, int32 or float32.
>
> For example,
>
> If data are integer (16 or 32 bit), I do:
>
> bufferfloat[x] := 127.0 ; (for int16)
>
> bufferfloat[x] := 2147483646.0; (for int32)
>
> If data are float 32 bit, I do:
>
> bufferfloat[x] := 0.2147483646 ; (for float32)
>
> So it seems to me Sizeof(bufferfloat[x]) is the same in the 3 cases (alway
> sizeof(float)).

Of course it's always the same size as it's an array of cfloat after all
and no assignment will change that.

Regards,
Sven
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Adding a array of float in ressource and use it ?

[fredvs]

> I don't know. By all logic, it should not work either. 

Yes, it is I think too.

Some more explanation:

I use  a "global" buffer of float to store data.
Those data can be int16, int32 or float32.

For example,

If data are integer (16 or 32 bit), I do:

bufferfloat[x] := 127.0 ; (for int16)

bufferfloat[x] := 2147483646.0; (for int32)

If data are float 32 bit, I do:

bufferfloat[x] := 0.2147483646 ; (for float32)

So it seems to me Sizeof(bufferfloat[x]) is the same in the 3 cases (alway
sizeof(float)).

Aaargh, sorry, I always come with extreme programming (or extreme dummy)
question.

Fre;D



-
Many thanks ;-)
--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/Adding-a-array-of-float-in-ressource-and-use-it-tp5727765p5727782.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Adding a array of float in ressource and use it ?

[Michael Van Canneyt]

On Mon, 6 Mar 2017, fredvs wrote:


Hello Michael and thanks for answer.


You must write
 FileBuffer.Data.WriteBuffer(buffer[0],Length(Buffer)*Sizeof(Float)); 


Ha, perfect, many thanks.

But there is something that I do not catch, why is it working for integer ?

Sizeof Integer is 2 bits so, normally:

FileBuffer.Data.WriteBuffer(buffer[0],Length(Buffer)); 

should not work (but it works) ---> Length(Buffer) = 1/2 * 
Length(Buffer)*Sizeof(integer)


I don't know. By all logic, it should not work either.

Michael.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

[fpc-pascal] Incomplete code example in FPC docs

[Graeme Geldenhuys]

Hi,

http://www.freepascal.org/docs-html/rtl/typinfo/ispublishedprop.html

According to the above URL, that code example is not compilable as-is,
because TMyTestObject is not defined anywhere. Shouldn't the code
examples in the documentation be compilable as-is?  ie: allow the
developer to copy and paste the code in a empty file, then compile and
run to try it out?


Regards,
  Graeme

-- 
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://fpgui.sourceforge.net/

My public PGP key:  http://tinyurl.com/graeme-pgp
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] Adding a array of float in ressource and use it ?

[fredvs]

Define "much less success". How are you writing the array and how are you
reading it?

Hello and thanks for answer.

Here how the array is written:

var
buffer : array of float;

FileBuffer.Data := TFileStream.Create(filename,fmCreate);
FileBuffer.Data.Seek(0, soFromBeginning);
FileBuffer.Data.WriteBuffer(buffer[0],Length(Buffer));

The result is OK if integer 16/32 bit inside the buffer.
If data inside the buffer is float 32 bit, result is a file of... 2
octets...

Thanks.

Fre;D





-
Many thanks ;-)
--
View this message in context: 
http://free-pascal-general.1045716.n5.nabble.com/Adding-a-array-of-float-in-ressource-and-use-it-tp5727765p572.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal