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.
On Mon, 6 Mar 2017, fredvs wrote:
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.See
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
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.WriteBuffe
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,
> 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)
bu
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 o
> 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
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:
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
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:
I
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 fr
> 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 flo
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] > 214748
> 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
---
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
wron
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
17 matches
Mail list logo
