Re: [Gambas-user] basic web interactions

[adamn...@gmail.com]

On Fri, 21 Jul 2017 11:01:47 +1200
Olmec Sinclair - cleanweb  wrote:

> Hi,
> 
> I am developing a gambas application and I want to talk to a web server, 
> passing some parameters and getting an XML response back.
> 
> I have cobbled together a way of doing this by using the QT.WebView 
> container and setting the URL with the request and catching the content 
> when loading is complete but this feels like a messy way of doing it.
> 
> What approach would others suggest?
> 
gb.net.curl - which has the advantage of being able to get the file either 
synchronously or asynchronously.
b
> 
> I see the Gambas development environment has a software farm that offers 
> a user registration and login this is the type of thing I am trying 
> to achieve. What approach is used here?
> 
> Input much appreciated.
> 
> 
> Olmec
> 
> 
> -- 
> *Olmec* Sinclair Web Design and Development
> Phone: 021 586 664 www.cleanweb.co.nz 
> --
> Check out the vibrant tech community on one of the world's most
> engaging tech sites, Slashdot.org! http://sdm.link/slashdot
> ___
> Gambas-user mailing list
> Gambas-user@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user


-- 
B Bruen 

--
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
___
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

[Gambas-user] basic web interactions

[Olmec Sinclair - cleanweb]

Hi,

I am developing a gambas application and I want to talk to a web server, 
passing some parameters and getting an XML response back.


I have cobbled together a way of doing this by using the QT.WebView 
container and setting the URL with the request and catching the content 
when loading is complete but this feels like a messy way of doing it.


What approach would others suggest?


I see the Gambas development environment has a software farm that offers 
a user registration and login this is the type of thing I am trying 
to achieve. What approach is used here?


Input much appreciated.


Olmec


--
*Olmec* Sinclair Web Design and Development
Phone: 021 586 664 www.cleanweb.co.nz 
--
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
___
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Re: [Gambas-user] Pre-release of Gambas 3.10.0

[Christof Thalhofer]

Hi,

Am 18.07.2017 um 17:56 schrieb Benoît Minisini via Gambas-user:

> I have just uploaded the source tarball of Gambas 3.10 on Sourceforge:
> 
> https://sourceforge.net/projects/gambas/files/gambas3/gambas3-3.10.0.tar.bz2/download
> 
> Can people test it and report any problem before I make the release public?
> 
> Thanks in advance!

I will try it out at the weekend ... then I have time.


Alles Gute

Christof Thalhofer

-- 
Dies ist keine Signatur



signature.asc
Description: OpenPGP digital signature
--
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot___
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Re: [Gambas-user] reading files

[Tony Morehen]

Audio or development


On 2017-07-20 02:40 PM, Hans Lehmann wrote:

Am 20.07.2017 um 20:27 schrieb Tony Morehen:
I've uploaded the class with a short command line demo to the 
software farm. 


Hello Tony,

under which heading can I find the class in the software farm?

Honsek
-- 


Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
___
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user




--
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
___
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Re: [Gambas-user] reading files

[Tony Morehen]

I've uploaded the class with a short command line demo to the software farm.


On 2017-07-20 12:22 PM, Gianluigi wrote:

Hi Tony,
Sorry if i answered  instead of you, but I did not understand who the
question was for :-(

Regards
Gianluigi

2017-07-20 15:35 GMT+02:00 Tony Morehen :


It is my code.  It started off life as part of a cd ripper program I wrote
in 2010 in vb6.  It was inspired by code provided by Steve McMahon (
st...@vbaccelerator.com) under an Apache style licence.  The code has
since been heavily rewritten, translated to vb.net and finally translated
to gambas.


On 2017-07-20 07:16 AM, Shane wrote:


with the code i was trying to adapt you can't

i was getting strange values eg.

a struct size of 208 when it was meant to be 128 and for some strange
reason get end of file

when seeking to eof less header even if i backed up more than the 208
bytes

i can see that tony didn't right it i should of said did he convert it to
gambas ?

i think this should be in the farm ?




On 20/07/17 21:04, Gianluigi wrote:


2017-07-20 12:09 GMT+02:00 Shane :

yep can't use structs have to do like tony's code works perfect thanks

again tony

h are you sure?


p.s is this your code ?

No, but you can easily see who wrote it :)




On 20/07/17 19:56, Gianluigi wrote:

Right ... and a look here too [0]

Ciao :)
Gianluigi

[0] http://www.gambas-it.org/smf/index.php?topic=5794.msg41793#m
sg41793

2017-07-20 3:15 GMT+02:00 Shane :

thanks tony sounds like just what i needed i will take a look


cheers



On 19/07/17 22:34, Tony Morehen wrote:

I've attached an archive containing the code I use to read v1 and v2
MP3


tags and other MP3 info including bitrates (fixed and VBR), sampling
rates
and number of channels.  v1 tags are pretty staightforward to read if
you
don't try to read the structure directly, but by each element of the
structure at a time.  Some tips:

1) Numeric elements (bytes, bytearrays, shorts, integers, longs) can
be
read directly from the stream. ie  (4 byte Integer) = Read #Stream As
Integer.  Gambas can handle little endian/big endian issues.

2) Fixed length strings must be handled in a two stage process.
First,
the required string length number of bytes is read into a byte array.
This
byte array is then converted to a string. Sample code:

 Dim Bytes As New Byte[StringLength]
 Bytes.Read(Stream)
 FixedString = Bytes.ToString()

Note: Bytes.ToString stops the string conversion at the first null
or at
the end of the array.  Therfore, you don't have to worry about
null-terminated strings.

v2 tags are more complicated, particularly since the tags can be
ascii,
either kind of utf16, or utf8 encoding.  The code I sent has been
tested
with over 10,000 mp3 files has seems to have no issues.


On 2017-07-19 12:33 AM, Shane wrote:

thank you Gian i did take a rest and read but alas it did not help


as far as i see it he is saying don't use binary file for fixed
length
strings

but as this is an mp3 file tag witch i have no control i am doomed



On 18/07/17 19:22, Gianluigi wrote:

Why do not you take a moment of rest and read what Tobias Boege


recommend
me in the discussion [0] I told you here [1]?

[0]
http://gambas.8142.n7.nabble.com/Random-access-files-with-fi
xed-length-string-td50880.html
[1] http://gambas.8142.n7.nabble.com/vb-code-td59764.html

2017-07-18 9:04 GMT+02:00 Shane :

I am very confused from the docs

_Variable_ *= READ* [ *#* _Stream_ ] *AS* _Datatype_

_Variable_ *= READ* [ *#* _Stream_ *,* ] _Length_

so wouldn't it be_
_

IDtag = read #hfile  as ID3v1_TAG  ?

with doesn't work by the way



On 18/07/17 12:44, nand...@nothingsimple.com wrote:

I think

 Read #hfile, IDtag, ID3v1_TAG

should be
 Read #hfile, IDtag as ID3v1_TAG


--
Open WebMail Project (http://openwebmail.org)


-- Original Message ---
From: Shane 
To: gambas-user@lists.sourceforge.net
Sent: Tue, 18 Jul 2017 10:50:43 +1000
Subject: Re: [Gambas-user] reading files

i don't know what i am doing wrong

Public Struct ID3v1_TAG '(128 bytes)


   Tag[3] As String   'always TAG
   Title[30] As String 'title, 30 characters
   Artist[30] As String 'artist, 30 characters
   Album[30] As String 'album, 30 characters
   Year[4] As String 'year, 4 characters
   Comment[30] As String 'comment, 30 characters (or
28 if
track# included)
   Genre As Byte 'genre, 255 for none
defined
End Struct

Private Sub GetID3v1(File As String)
  Dim IDtag As ID3v1_TAG
  Dim hfile As File

  hfile = Open File For Read

  '
  'read the tag
  ' seek to end of less tag size

  Read #hfile, IDtag, ID3v1_TAG

here i get IDtag is NULL

On 18/07/17 05:05, nand...@nothingsimple.com wrote:

Yes it is possible, I do it. here is some 

[Gambas-user] [Gambas Bug Tracker] Bug #1128: Message.Question should return -1 on cancel

[bugtracker]

http://gambaswiki.org/bugtracker/edit?object=BUG.1128=L21haW4-

Comment #3 by PICCORO LENZ MCKAY:

inside the ide you can click as if you are into a browser... and see 
documentation in message.question or whatever..

also remenber that some wiki's are not updated, by example i try to mantain the 
spanish wiki up to date.. but i can cover all the changes..



--
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
___
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Re: [Gambas-user] systray seems do not work with qt5

[PICCORO McKAY Lenz]

Lenz McKAY Gerardo (PICCORO)
http://qgqlochekone.blogspot.com

2017-07-19 18:38 GMT-04:00 herberth guzman :

> Fabien
>
> I did what you suggested and it does not work for me.
> Show me the following message
>
> FMain.ArrangeTray.28:
> QXcbWindow: Unhandled client message: "_NET_WM_DESKTOP"
> QXcbWindow: Unhandled client message: "_KDE_WM_CHANGE_STATE"
> FMain.ArrangeTray.28:
> QXcbWindow: Unhandled client message: "_NET_SYSTEM_TRAY_OPCODE"
>

i hear reports that gnome shell systray are a problem,, by example my
x11vnc never are embebed in the systray of the gnome, but works perfect in
the OLDER and stable LXDE..

maybe a bug in gambas 3.X ?

>
>
> >
> > 2017-07-19 18:40 GMT+02:00 PICCORO McKAY Lenz :
> > > 2017-07-19 12:35 GMT-04:00 herberth guzman :
> > >
> > >> I know that KDE 5 dropped the support for the old system tray
> protocol.
> > >>
> > > the gnome-puach also dropped some about it..
> > >
> > > i think that this component must have a citation that oly works with
> > normal
> > > desktops.. like lxde and mate..
> > > openbox+fbpanel and lxde still use the old/today behaviour.. why follow
> > > those desktops that want to change everithig are working?
> > >
> > >
> > >>
> > >> It is possible to temporarily run the system tray, please.
> > >>
> > >>
> > >> Thanks
> > >>
> > >>
> > >> Herberth Guzman
> > >> 
> > >> --
> > >> Check out the vibrant tech community on one of the world's most
> > >> engaging tech sites, Slashdot.org! http://sdm.link/slashdot
> > >> ___
> > >> Gambas-user mailing list
> > >> Gambas-user@lists.sourceforge.net
> > >> https://lists.sourceforge.net/lists/listinfo/gambas-user
> > >>
> > > 
> > --
> > > Check out the vibrant tech community on one of the world's most
> > > engaging tech sites, Slashdot.org! http://sdm.link/slashdot
> > > ___
> > > Gambas-user mailing list
> > > Gambas-user@lists.sourceforge.net
> > > https://lists.sourceforge.net/lists/listinfo/gambas-user
> >
> >
> >
> > --
> > Fabien Bodard
>
> 2017-07-19 14:28 GMT-06:00 :
>
> > Send Gambas-user mailing list submissions to
> > gambas-user@lists.sourceforge.net
> >
> > To subscribe or unsubscribe via the World Wide Web, visit
> > https://lists.sourceforge.net/lists/listinfo/gambas-user
> > or, via email, send a message with subject or body 'help' to
> > gambas-user-requ...@lists.sourceforge.net
> >
> > You can reach the person managing the list at
> > gambas-user-ow...@lists.sourceforge.net
> >
> > When replying, please edit your Subject line so it is more specific
> > than "Re: Contents of Gambas-user digest..."
> >
> >
> > Today's Topics:
> >
> >1. Re: Pre-release of Gambas 3.10.0 (herberth guzman)
> >2. Re: Pre-release of Gambas 3.10.0 (PICCORO McKAY Lenz)
> >3. Re: Pre-release of Gambas 3.10.0 (herberth guzman)
> >4. Re: Pre-release of Gambas 3.10.0 (PICCORO McKAY Lenz)
> >5. Re: Pre-release of Gambas 3.10.0 (Fabien Bodard)
> >6. Re: Pre-release of Gambas 3.10.0 (PICCORO McKAY Lenz)
> >
> >
> > --
> >
> > Message: 1
> > Date: Wed, 19 Jul 2017 10:10:14 -0600
> > From: herberth guzman 
> > To: gambas-user 
> > Subject: Re: [Gambas-user] Pre-release of Gambas 3.10.0
> > Message-ID:
> > 

Re: [Gambas-user] reading files

[Gianluigi]

Hi Tony,
Sorry if i answered  instead of you, but I did not understand who the
question was for :-(

Regards
Gianluigi

2017-07-20 15:35 GMT+02:00 Tony Morehen :

> It is my code.  It started off life as part of a cd ripper program I wrote
> in 2010 in vb6.  It was inspired by code provided by Steve McMahon (
> st...@vbaccelerator.com) under an Apache style licence.  The code has
> since been heavily rewritten, translated to vb.net and finally translated
> to gambas.
>
>
> On 2017-07-20 07:16 AM, Shane wrote:
>
>> with the code i was trying to adapt you can't
>>
>> i was getting strange values eg.
>>
>> a struct size of 208 when it was meant to be 128 and for some strange
>> reason get end of file
>>
>> when seeking to eof less header even if i backed up more than the 208
>> bytes
>>
>> i can see that tony didn't right it i should of said did he convert it to
>> gambas ?
>>
>> i think this should be in the farm ?
>>
>>
>>
>>
>> On 20/07/17 21:04, Gianluigi wrote:
>>
>>> 2017-07-20 12:09 GMT+02:00 Shane :
>>>
>>> yep can't use structs have to do like tony's code works perfect thanks
 again tony

 h are you sure?
>>>
>>>
>>> p.s is this your code ?

 No, but you can easily see who wrote it :)
>>>
>>>
>>>

 On 20/07/17 19:56, Gianluigi wrote:

 Right ... and a look here too [0]
>
> Ciao :)
> Gianluigi
>
> [0] http://www.gambas-it.org/smf/index.php?topic=5794.msg41793#m
> sg41793
>
> 2017-07-20 3:15 GMT+02:00 Shane :
>
> thanks tony sounds like just what i needed i will take a look
>
>> cheers
>>
>>
>>
>> On 19/07/17 22:34, Tony Morehen wrote:
>>
>> I've attached an archive containing the code I use to read v1 and v2
>> MP3
>>
>>> tags and other MP3 info including bitrates (fixed and VBR), sampling
>>> rates
>>> and number of channels.  v1 tags are pretty staightforward to read if
>>> you
>>> don't try to read the structure directly, but by each element of the
>>> structure at a time.  Some tips:
>>>
>>> 1) Numeric elements (bytes, bytearrays, shorts, integers, longs) can
>>> be
>>> read directly from the stream. ie  (4 byte Integer) = Read #Stream As
>>> Integer.  Gambas can handle little endian/big endian issues.
>>>
>>> 2) Fixed length strings must be handled in a two stage process.
>>> First,
>>> the required string length number of bytes is read into a byte array.
>>> This
>>> byte array is then converted to a string. Sample code:
>>>
>>> Dim Bytes As New Byte[StringLength]
>>> Bytes.Read(Stream)
>>> FixedString = Bytes.ToString()
>>>
>>> Note: Bytes.ToString stops the string conversion at the first null
>>> or at
>>> the end of the array.  Therfore, you don't have to worry about
>>> null-terminated strings.
>>>
>>> v2 tags are more complicated, particularly since the tags can be
>>> ascii,
>>> either kind of utf16, or utf8 encoding.  The code I sent has been
>>> tested
>>> with over 10,000 mp3 files has seems to have no issues.
>>>
>>>
>>> On 2017-07-19 12:33 AM, Shane wrote:
>>>
>>> thank you Gian i did take a rest and read but alas it did not help
>>>
 as far as i see it he is saying don't use binary file for fixed
 length
 strings

 but as this is an mp3 file tag witch i have no control i am doomed



 On 18/07/17 19:22, Gianluigi wrote:

 Why do not you take a moment of rest and read what Tobias Boege

> recommend
> me in the discussion [0] I told you here [1]?
>
> [0]
> http://gambas.8142.n7.nabble.com/Random-access-files-with-fi
> xed-length-string-td50880.html
> [1] http://gambas.8142.n7.nabble.com/vb-code-td59764.html
>
> 2017-07-18 9:04 GMT+02:00 Shane :
>
> I am very confused from the docs
>
> _Variable_ *= READ* [ *#* _Stream_ ] *AS* _Datatype_
>>
>> _Variable_ *= READ* [ *#* _Stream_ *,* ] _Length_
>>
>> so wouldn't it be_
>> _
>>
>> IDtag = read #hfile  as ID3v1_TAG  ?
>>
>> with doesn't work by the way
>>
>>
>>
>> On 18/07/17 12:44, nand...@nothingsimple.com wrote:
>>
>> I think
>>
>> Read #hfile, IDtag, ID3v1_TAG
>>> should be
>>> Read #hfile, IDtag as ID3v1_TAG
>>>
>>>
>>> --
>>> Open WebMail Project (http://openwebmail.org)
>>>
>>>
>>> -- Original Message ---
>>> From: Shane 
>>> To: gambas-user@lists.sourceforge.net
>>> 

Re: [Gambas-user] New Gambas on Suse

[Matti]

Hi Rolf,

someone is putting the Gambas updates into the Suse repo. Why should there be 
an exception with 3.10?
We'll see soon...

Matti

Am 20.07.2017 um 15:35 schrieb Rolf-Werner Eilert:

Hi folks,

Now that the next version of Gambas is en route, I wonder whether it
will come on Suse Leap 42.2 automatically, as there are lots of updates
to Gambas each time I update the system.

Or will I have to compile myself, as I was used to do on my older systems?

Thank you for your insight!

Regards

Rolf



--
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
___
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user



--
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
___
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Re: [Gambas-user] reading files

[Tony Morehen]

It is my code.  It started off life as part of a cd ripper program I 
wrote in 2010 in vb6.  It was inspired by code provided by Steve McMahon 
(st...@vbaccelerator.com) under an Apache style licence.  The code has 
since been heavily rewritten, translated to vb.net and finally 
translated to gambas.



On 2017-07-20 07:16 AM, Shane wrote:

with the code i was trying to adapt you can't

i was getting strange values eg.

a struct size of 208 when it was meant to be 128 and for some strange 
reason get end of file


when seeking to eof less header even if i backed up more than the 208 
bytes


i can see that tony didn't right it i should of said did he convert it 
to gambas ?


i think this should be in the farm ?




On 20/07/17 21:04, Gianluigi wrote:

2017-07-20 12:09 GMT+02:00 Shane :


yep can't use structs have to do like tony's code works perfect thanks
again tony


h are you sure?



p.s is this your code ?


No, but you can easily see who wrote it :)





On 20/07/17 19:56, Gianluigi wrote:


Right ... and a look here too [0]

Ciao :)
Gianluigi

[0] 
http://www.gambas-it.org/smf/index.php?topic=5794.msg41793#msg41793


2017-07-20 3:15 GMT+02:00 Shane :

thanks tony sounds like just what i needed i will take a look

cheers



On 19/07/17 22:34, Tony Morehen wrote:

I've attached an archive containing the code I use to read v1 and 
v2 MP3

tags and other MP3 info including bitrates (fixed and VBR), sampling
rates
and number of channels.  v1 tags are pretty staightforward to 
read if

you
don't try to read the structure directly, but by each element of the
structure at a time.  Some tips:

1) Numeric elements (bytes, bytearrays, shorts, integers, longs) 
can be
read directly from the stream. ie  (4 byte Integer) = Read 
#Stream As

Integer.  Gambas can handle little endian/big endian issues.

2) Fixed length strings must be handled in a two stage process. 
First,
the required string length number of bytes is read into a byte 
array.

This
byte array is then converted to a string. Sample code:

Dim Bytes As New Byte[StringLength]
Bytes.Read(Stream)
FixedString = Bytes.ToString()

Note: Bytes.ToString stops the string conversion at the first 
null or at

the end of the array.  Therfore, you don't have to worry about
null-terminated strings.

v2 tags are more complicated, particularly since the tags can be 
ascii,
either kind of utf16, or utf8 encoding.  The code I sent has been 
tested

with over 10,000 mp3 files has seems to have no issues.


On 2017-07-19 12:33 AM, Shane wrote:

thank you Gian i did take a rest and read but alas it did not help
as far as i see it he is saying don't use binary file for fixed 
length

strings

but as this is an mp3 file tag witch i have no control i am doomed



On 18/07/17 19:22, Gianluigi wrote:

Why do not you take a moment of rest and read what Tobias Boege

recommend
me in the discussion [0] I told you here [1]?

[0]
http://gambas.8142.n7.nabble.com/Random-access-files-with-fi
xed-length-string-td50880.html
[1] http://gambas.8142.n7.nabble.com/vb-code-td59764.html

2017-07-18 9:04 GMT+02:00 Shane :

I am very confused from the docs


_Variable_ *= READ* [ *#* _Stream_ ] *AS* _Datatype_

_Variable_ *= READ* [ *#* _Stream_ *,* ] _Length_

so wouldn't it be_
_

IDtag = read #hfile  as ID3v1_TAG  ?

with doesn't work by the way



On 18/07/17 12:44, nand...@nothingsimple.com wrote:

I think


Read #hfile, IDtag, ID3v1_TAG
should be
Read #hfile, IDtag as ID3v1_TAG


--
Open WebMail Project (http://openwebmail.org)


-- Original Message ---
From: Shane 
To: gambas-user@lists.sourceforge.net
Sent: Tue, 18 Jul 2017 10:50:43 +1000
Subject: Re: [Gambas-user] reading files

i don't know what i am doing wrong

Public Struct ID3v1_TAG '(128 bytes)

  Tag[3] As String   'always TAG
  Title[30] As String 'title, 30 characters
  Artist[30] As String 'artist, 30 characters
  Album[30] As String 'album, 30 characters
  Year[4] As String 'year, 4 characters
  Comment[30] As String 'comment, 30 characters (or
28 if
track# included)
  Genre As Byte 'genre, 255 for none
defined
End Struct

Private Sub GetID3v1(File As String)
 Dim IDtag As ID3v1_TAG
 Dim hfile As File

 hfile = Open File For Read

 '
 'read the tag
 ' seek to end of less tag size

 Read #hfile, IDtag, ID3v1_TAG

here i get IDtag is NULL

On 18/07/17 05:05, nand...@nothingsimple.com wrote:

Yes it is possible, I do it. here is some code (incomplete)


-Nando (Canada)



' top of class file
Public Struct recstruc
   _a as integer
   _b as integer
   _c as integer
end struct


' a function
public function openAfile(filename as string) as file

dim hfile as file
dim arec as recstruc

hfile = open filename for read write 

[Gambas-user] New Gambas on Suse

[Rolf-Werner Eilert]

Hi folks,

Now that the next version of Gambas is en route, I wonder whether it 
will come on Suse Leap 42.2 automatically, as there are lots of updates 
to Gambas each time I update the system.


Or will I have to compile myself, as I was used to do on my older systems?

Thank you for your insight!

Regards

Rolf



--
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
___
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Re: [Gambas-user] reading files

[Shane]

with the code i was trying to adapt you can't

i was getting strange values eg.

a struct size of 208 when it was meant to be 128 and for some strange 
reason get end of file


when seeking to eof less header even if i backed up more than the 208 bytes

i can see that tony didn't right it i should of said did he convert it 
to gambas ?


i think this should be in the farm ?




On 20/07/17 21:04, Gianluigi wrote:

2017-07-20 12:09 GMT+02:00 Shane :


yep can't use structs have to do like tony's code works perfect thanks
again tony


h are you sure?



p.s is this your code ?


No, but you can easily see who wrote it :)





On 20/07/17 19:56, Gianluigi wrote:


Right ... and a look here too [0]

Ciao :)
Gianluigi

[0] http://www.gambas-it.org/smf/index.php?topic=5794.msg41793#msg41793

2017-07-20 3:15 GMT+02:00 Shane :

thanks tony sounds like just what i needed i will take a look

cheers



On 19/07/17 22:34, Tony Morehen wrote:

I've attached an archive containing the code I use to read v1 and v2 MP3

tags and other MP3 info including bitrates (fixed and VBR), sampling
rates
and number of channels.  v1 tags are pretty staightforward to read if
you
don't try to read the structure directly, but by each element of the
structure at a time.  Some tips:

1) Numeric elements (bytes, bytearrays, shorts, integers, longs) can be
read directly from the stream. ie  (4 byte Integer) = Read #Stream As
Integer.  Gambas can handle little endian/big endian issues.

2) Fixed length strings must be handled in a two stage process. First,
the required string length number of bytes is read into a byte array.
This
byte array is then converted to a string. Sample code:

Dim Bytes As New Byte[StringLength]
Bytes.Read(Stream)
FixedString = Bytes.ToString()

Note: Bytes.ToString stops the string conversion at the first null or at
the end of the array.  Therfore, you don't have to worry about
null-terminated strings.

v2 tags are more complicated, particularly since the tags can be ascii,
either kind of utf16, or utf8 encoding.  The code I sent has been tested
with over 10,000 mp3 files has seems to have no issues.


On 2017-07-19 12:33 AM, Shane wrote:

thank you Gian i did take a rest and read but alas it did not help

as far as i see it he is saying don't use binary file for fixed length
strings

but as this is an mp3 file tag witch i have no control i am doomed



On 18/07/17 19:22, Gianluigi wrote:

Why do not you take a moment of rest and read what Tobias Boege

recommend
me in the discussion [0] I told you here [1]?

[0]
http://gambas.8142.n7.nabble.com/Random-access-files-with-fi
xed-length-string-td50880.html
[1] http://gambas.8142.n7.nabble.com/vb-code-td59764.html

2017-07-18 9:04 GMT+02:00 Shane :

I am very confused from the docs


_Variable_ *= READ* [ *#* _Stream_ ] *AS* _Datatype_

_Variable_ *= READ* [ *#* _Stream_ *,* ] _Length_

so wouldn't it be_
_

IDtag = read #hfile  as ID3v1_TAG  ?

with doesn't work by the way



On 18/07/17 12:44, nand...@nothingsimple.com wrote:

I think


Read #hfile, IDtag, ID3v1_TAG
should be
Read #hfile, IDtag as ID3v1_TAG


--
Open WebMail Project (http://openwebmail.org)


-- Original Message ---
From: Shane 
To: gambas-user@lists.sourceforge.net
Sent: Tue, 18 Jul 2017 10:50:43 +1000
Subject: Re: [Gambas-user] reading files

i don't know what i am doing wrong

Public Struct ID3v1_TAG '(128 bytes)

  Tag[3] As String   'always TAG
  Title[30] As String 'title, 30 characters
  Artist[30] As String   'artist, 30 characters
  Album[30] As String   'album, 30 characters
  Year[4] As String  'year, 4 characters
  Comment[30] As String  'comment, 30 characters (or
28 if
track# included)
  Genre As Byte   'genre, 255 for none
defined
End Struct

Private Sub GetID3v1(File As String)
 Dim IDtag As ID3v1_TAG
 Dim hfile As File

 hfile = Open File For Read

 '
 'read the tag
 ' seek to end of less tag size

 Read #hfile, IDtag, ID3v1_TAG

here i get IDtag is NULL

On 18/07/17 05:05, nand...@nothingsimple.com wrote:

Yes it is possible, I do it. here is some code (incomplete)


-Nando (Canada)



' top of class file
Public Struct recstruc
   _a as integer
   _b as integer
   _c as integer
end struct


' a function
public function openAfile(filename as string) as file

dim hfile as file
dim arec as recstruc

hfile = open filename for read write create

with arec   'some values to write.
   ._a = 1
   ._b = 22
   ._c = 333
end with

write #hfile, arec as recstruc

'if you position the hfile pointer back to zero, you can...
read #hfile, arec as recstruc

close #hfile

end






--
Open WebMail Project 

Re: [Gambas-user] reading files

[Gianluigi]

2017-07-20 12:09 GMT+02:00 Shane :

> yep can't use structs have to do like tony's code works perfect thanks
> again tony
>

h are you sure?


>
> p.s is this your code ?
>

No, but you can easily see who wrote it :)


>
>
>
> On 20/07/17 19:56, Gianluigi wrote:
>
>> Right ... and a look here too [0]
>>
>> Ciao :)
>> Gianluigi
>>
>> [0] http://www.gambas-it.org/smf/index.php?topic=5794.msg41793#msg41793
>>
>> 2017-07-20 3:15 GMT+02:00 Shane :
>>
>> thanks tony sounds like just what i needed i will take a look
>>>
>>> cheers
>>>
>>>
>>>
>>> On 19/07/17 22:34, Tony Morehen wrote:
>>>
>>> I've attached an archive containing the code I use to read v1 and v2 MP3
 tags and other MP3 info including bitrates (fixed and VBR), sampling
 rates
 and number of channels.  v1 tags are pretty staightforward to read if
 you
 don't try to read the structure directly, but by each element of the
 structure at a time.  Some tips:

 1) Numeric elements (bytes, bytearrays, shorts, integers, longs) can be
 read directly from the stream. ie  (4 byte Integer) = Read #Stream As
 Integer.  Gambas can handle little endian/big endian issues.

 2) Fixed length strings must be handled in a two stage process. First,
 the required string length number of bytes is read into a byte array.
 This
 byte array is then converted to a string. Sample code:

Dim Bytes As New Byte[StringLength]
Bytes.Read(Stream)
FixedString = Bytes.ToString()

 Note: Bytes.ToString stops the string conversion at the first null or at
 the end of the array.  Therfore, you don't have to worry about
 null-terminated strings.

 v2 tags are more complicated, particularly since the tags can be ascii,
 either kind of utf16, or utf8 encoding.  The code I sent has been tested
 with over 10,000 mp3 files has seems to have no issues.


 On 2017-07-19 12:33 AM, Shane wrote:

 thank you Gian i did take a rest and read but alas it did not help
>
> as far as i see it he is saying don't use binary file for fixed length
> strings
>
> but as this is an mp3 file tag witch i have no control i am doomed
>
>
>
> On 18/07/17 19:22, Gianluigi wrote:
>
> Why do not you take a moment of rest and read what Tobias Boege
>> recommend
>> me in the discussion [0] I told you here [1]?
>>
>> [0]
>> http://gambas.8142.n7.nabble.com/Random-access-files-with-fi
>> xed-length-string-td50880.html
>> [1] http://gambas.8142.n7.nabble.com/vb-code-td59764.html
>>
>> 2017-07-18 9:04 GMT+02:00 Shane :
>>
>> I am very confused from the docs
>>
>>> _Variable_ *= READ* [ *#* _Stream_ ] *AS* _Datatype_
>>>
>>> _Variable_ *= READ* [ *#* _Stream_ *,* ] _Length_
>>>
>>> so wouldn't it be_
>>> _
>>>
>>> IDtag = read #hfile  as ID3v1_TAG  ?
>>>
>>> with doesn't work by the way
>>>
>>>
>>>
>>> On 18/07/17 12:44, nand...@nothingsimple.com wrote:
>>>
>>> I think
>>>
Read #hfile, IDtag, ID3v1_TAG
 should be
Read #hfile, IDtag as ID3v1_TAG


 --
 Open WebMail Project (http://openwebmail.org)


 -- Original Message ---
 From: Shane 
 To: gambas-user@lists.sourceforge.net
 Sent: Tue, 18 Jul 2017 10:50:43 +1000
 Subject: Re: [Gambas-user] reading files

 i don't know what i am doing wrong

 Public Struct ID3v1_TAG '(128 bytes)
>  Tag[3] As String   'always TAG
>  Title[30] As String 'title, 30 characters
>  Artist[30] As String   'artist, 30 characters
>  Album[30] As String   'album, 30 characters
>  Year[4] As String  'year, 4 characters
>  Comment[30] As String  'comment, 30 characters (or
> 28 if
> track# included)
>  Genre As Byte   'genre, 255 for none
> defined
> End Struct
>
> Private Sub GetID3v1(File As String)
> Dim IDtag As ID3v1_TAG
> Dim hfile As File
>
> hfile = Open File For Read
>
> '
> 'read the tag
> ' seek to end of less tag size
>
> Read #hfile, IDtag, ID3v1_TAG
>
> here i get IDtag is NULL
>
> On 18/07/17 05:05, nand...@nothingsimple.com wrote:
>
> Yes it is possible, I do it. here is some code (incomplete)
>
>> -Nando (Canada)
>>
>>
>>
>> ' top of class 

Re: [Gambas-user] reading files

[Shane]

yep can't use structs have to do like tony's code works perfect thanks 
again tony


p.s is this your code ?



On 20/07/17 19:56, Gianluigi wrote:

Right ... and a look here too [0]

Ciao :)
Gianluigi

[0] http://www.gambas-it.org/smf/index.php?topic=5794.msg41793#msg41793

2017-07-20 3:15 GMT+02:00 Shane :


thanks tony sounds like just what i needed i will take a look

cheers



On 19/07/17 22:34, Tony Morehen wrote:


I've attached an archive containing the code I use to read v1 and v2 MP3
tags and other MP3 info including bitrates (fixed and VBR), sampling rates
and number of channels.  v1 tags are pretty staightforward to read if you
don't try to read the structure directly, but by each element of the
structure at a time.  Some tips:

1) Numeric elements (bytes, bytearrays, shorts, integers, longs) can be
read directly from the stream. ie  (4 byte Integer) = Read #Stream As
Integer.  Gambas can handle little endian/big endian issues.

2) Fixed length strings must be handled in a two stage process. First,
the required string length number of bytes is read into a byte array.  This
byte array is then converted to a string. Sample code:

   Dim Bytes As New Byte[StringLength]
   Bytes.Read(Stream)
   FixedString = Bytes.ToString()

Note: Bytes.ToString stops the string conversion at the first null or at
the end of the array.  Therfore, you don't have to worry about
null-terminated strings.

v2 tags are more complicated, particularly since the tags can be ascii,
either kind of utf16, or utf8 encoding.  The code I sent has been tested
with over 10,000 mp3 files has seems to have no issues.


On 2017-07-19 12:33 AM, Shane wrote:


thank you Gian i did take a rest and read but alas it did not help

as far as i see it he is saying don't use binary file for fixed length
strings

but as this is an mp3 file tag witch i have no control i am doomed



On 18/07/17 19:22, Gianluigi wrote:


Why do not you take a moment of rest and read what Tobias Boege
recommend
me in the discussion [0] I told you here [1]?

[0]
http://gambas.8142.n7.nabble.com/Random-access-files-with-fi
xed-length-string-td50880.html
[1] http://gambas.8142.n7.nabble.com/vb-code-td59764.html

2017-07-18 9:04 GMT+02:00 Shane :

I am very confused from the docs

_Variable_ *= READ* [ *#* _Stream_ ] *AS* _Datatype_

_Variable_ *= READ* [ *#* _Stream_ *,* ] _Length_

so wouldn't it be_
_

IDtag = read #hfile  as ID3v1_TAG  ?

with doesn't work by the way



On 18/07/17 12:44, nand...@nothingsimple.com wrote:

I think

   Read #hfile, IDtag, ID3v1_TAG
should be
   Read #hfile, IDtag as ID3v1_TAG


--
Open WebMail Project (http://openwebmail.org)


-- Original Message ---
From: Shane 
To: gambas-user@lists.sourceforge.net
Sent: Tue, 18 Jul 2017 10:50:43 +1000
Subject: Re: [Gambas-user] reading files

i don't know what i am doing wrong


Public Struct ID3v1_TAG '(128 bytes)
 Tag[3] As String   'always TAG
 Title[30] As String 'title, 30 characters
 Artist[30] As String   'artist, 30 characters
 Album[30] As String   'album, 30 characters
 Year[4] As String  'year, 4 characters
 Comment[30] As String  'comment, 30 characters (or
28 if
track# included)
 Genre As Byte   'genre, 255 for none defined
End Struct

Private Sub GetID3v1(File As String)
Dim IDtag As ID3v1_TAG
Dim hfile As File

hfile = Open File For Read

'
'read the tag
' seek to end of less tag size

Read #hfile, IDtag, ID3v1_TAG

here i get IDtag is NULL

On 18/07/17 05:05, nand...@nothingsimple.com wrote:

Yes it is possible, I do it. here is some code (incomplete)

-Nando (Canada)



' top of class file
Public Struct recstruc
  _a as integer
  _b as integer
  _c as integer
end struct


' a function
public function openAfile(filename as string) as file

dim hfile as file
dim arec as recstruc

hfile = open filename for read write create

with arec   'some values to write.
  ._a = 1
  ._b = 22
  ._c = 333
end with

write #hfile, arec as recstruc

'if you position the hfile pointer back to zero, you can...
read #hfile, arec as recstruc

close #hfile

end






--
Open WebMail Project (http://openwebmail.org)


-- Original Message ---
From: T Lee Davidson 
To: gambas-user@lists.sourceforge.net
Sent: Sun, 16 Jul 2017 12:42:35 -0400
Subject: Re: [Gambas-user] reading files

On 07/16/2017 06:57 AM, Shane wrote:


given this example

PRIVATE SUB BinaryRead(FilePath AS String)
   DIM binaryFile AS File
   DIM i AS Integer
   DIM b AS Byte
   DIM s AS Short
   DIM s1 AS String
   DIM s2 AS String
   ' Read binary file
   binaryFile = OPEN FilePath FOR READ
   READ #binaryFile, i
   READ 

Re: [Gambas-user] reading files

[Gianluigi]

Right ... and a look here too [0]

Ciao :)
Gianluigi

[0] http://www.gambas-it.org/smf/index.php?topic=5794.msg41793#msg41793

2017-07-20 3:15 GMT+02:00 Shane :

> thanks tony sounds like just what i needed i will take a look
>
> cheers
>
>
>
> On 19/07/17 22:34, Tony Morehen wrote:
>
>> I've attached an archive containing the code I use to read v1 and v2 MP3
>> tags and other MP3 info including bitrates (fixed and VBR), sampling rates
>> and number of channels.  v1 tags are pretty staightforward to read if you
>> don't try to read the structure directly, but by each element of the
>> structure at a time.  Some tips:
>>
>> 1) Numeric elements (bytes, bytearrays, shorts, integers, longs) can be
>> read directly from the stream. ie  (4 byte Integer) = Read #Stream As
>> Integer.  Gambas can handle little endian/big endian issues.
>>
>> 2) Fixed length strings must be handled in a two stage process. First,
>> the required string length number of bytes is read into a byte array.  This
>> byte array is then converted to a string. Sample code:
>>
>>   Dim Bytes As New Byte[StringLength]
>>   Bytes.Read(Stream)
>>   FixedString = Bytes.ToString()
>>
>> Note: Bytes.ToString stops the string conversion at the first null or at
>> the end of the array.  Therfore, you don't have to worry about
>> null-terminated strings.
>>
>> v2 tags are more complicated, particularly since the tags can be ascii,
>> either kind of utf16, or utf8 encoding.  The code I sent has been tested
>> with over 10,000 mp3 files has seems to have no issues.
>>
>>
>> On 2017-07-19 12:33 AM, Shane wrote:
>>
>>> thank you Gian i did take a rest and read but alas it did not help
>>>
>>> as far as i see it he is saying don't use binary file for fixed length
>>> strings
>>>
>>> but as this is an mp3 file tag witch i have no control i am doomed
>>>
>>>
>>>
>>> On 18/07/17 19:22, Gianluigi wrote:
>>>
 Why do not you take a moment of rest and read what Tobias Boege
 recommend
 me in the discussion [0] I told you here [1]?

 [0]
 http://gambas.8142.n7.nabble.com/Random-access-files-with-fi
 xed-length-string-td50880.html
 [1] http://gambas.8142.n7.nabble.com/vb-code-td59764.html

 2017-07-18 9:04 GMT+02:00 Shane :

 I am very confused from the docs
>
> _Variable_ *= READ* [ *#* _Stream_ ] *AS* _Datatype_
>
> _Variable_ *= READ* [ *#* _Stream_ *,* ] _Length_
>
> so wouldn't it be_
> _
>
> IDtag = read #hfile  as ID3v1_TAG  ?
>
> with doesn't work by the way
>
>
>
> On 18/07/17 12:44, nand...@nothingsimple.com wrote:
>
> I think
>>   Read #hfile, IDtag, ID3v1_TAG
>> should be
>>   Read #hfile, IDtag as ID3v1_TAG
>>
>>
>> --
>> Open WebMail Project (http://openwebmail.org)
>>
>>
>> -- Original Message ---
>> From: Shane 
>> To: gambas-user@lists.sourceforge.net
>> Sent: Tue, 18 Jul 2017 10:50:43 +1000
>> Subject: Re: [Gambas-user] reading files
>>
>> i don't know what i am doing wrong
>>
>>> Public Struct ID3v1_TAG '(128 bytes)
>>> Tag[3] As String   'always TAG
>>> Title[30] As String 'title, 30 characters
>>> Artist[30] As String   'artist, 30 characters
>>> Album[30] As String   'album, 30 characters
>>> Year[4] As String  'year, 4 characters
>>> Comment[30] As String  'comment, 30 characters (or
>>> 28 if
>>> track# included)
>>> Genre As Byte   'genre, 255 for none defined
>>> End Struct
>>>
>>> Private Sub GetID3v1(File As String)
>>>Dim IDtag As ID3v1_TAG
>>>Dim hfile As File
>>>
>>>hfile = Open File For Read
>>>
>>>'
>>>'read the tag
>>>' seek to end of less tag size
>>>
>>>Read #hfile, IDtag, ID3v1_TAG
>>>
>>> here i get IDtag is NULL
>>>
>>> On 18/07/17 05:05, nand...@nothingsimple.com wrote:
>>>
>>> Yes it is possible, I do it. here is some code (incomplete)

 -Nando (Canada)



 ' top of class file
 Public Struct recstruc
  _a as integer
  _b as integer
  _c as integer
 end struct


 ' a function
 public function openAfile(filename as string) as file

 dim hfile as file
 dim arec as recstruc

 hfile = open filename for read write create

 with arec   'some values to write.
  ._a = 1
  ._b = 22
  ._c = 333
 end with

 write #hfile, arec as recstruc

 'if you position the hfile pointer back