Google APIS Lib for Fivewin

[Silvio.Falconi]

cris, run ok only

I only see a part of the message
I do not see the object
and I see an encrypted string in the id and thread

what are the other fields I can view
can I view attachments?
I can have the structure of the aList array

however, everything is very slow in scrolling through the messages

[cnavarro]

Silvio

Rest Api of GMail is very complete but very hierarchical and complex
It also depends on the speed of your internet connection
It's faster if you set filters

In the next version I will include more complete examples to obtain the attachments and other data, and the application of filters

[cnavarro]

For XBrowse faster, modify into my previous sample function XbrMail ( array is created before of xbrowse )
for see complete message, use scroll horozontal bar

Code: Select all  Expand view

   AEVal( aSource, { | a | oMail:GetMessage( a[ 1 ] ), AAdd( aMsgs, { a[ 1 ], a[ 2 ], oMail:cMessage } ) } )
   nLeftPos    := Min( 300, Int( GetSysMetrics( 0 ) / 5 ) )
   if Empty( oWnd )
      lWnd     := .T.
      DEFINE WINDOW oWnd ;
         TITLE " - Google Mail - " + FWVERSION + " - " + hb_Compiler() ;
         PIXEL COLOR CLR_BLUE, CLR_WHITE //STYLE WS_POPUP
   endif
   nTop    := if( Empty( oWnd:oBar ), 0, oWnd:oBar:nBottom ) + 2
   nHeight := if( Empty( oWnd:oMsgBar ), 32, oWnd:oMsgBar:nTop - 2 )

   @ nTop, nLeftPos + 2 XBROWSE oBrw DATASOURCE aMsgs OF oWnd ;
      SIZE GetSysMetrics( 0 ) - nLeftPos - 4, GetSysMetrics( 1 ) - nHeight ;
      HEADERS "Thread", "Id", "Message" ;
      COLUMNS 2, 1, 3 ;
      PIXEL CELL LINES NOBORDER

   WITH OBJECT oBrw
      :l2007            := .F.
      //:nMarqueeStyle    := MARQSTYLE_DOTEDCELL
      :nStretchCol      := 3
      :bClrHeader       := { || { CLR_WHITE, CLR_GRAY } }
      :bClrSelFocus     := ;
      :bClrSel          := { || { CLR_BLACK, CLR_HGRAY } }
      :lRecordSelector  := .F.
      :lHScroll         := .F.
      :nColDividerStyle := ;
      :nRowDividerStyle := LINESTYLE_LIGHTGRAY
      :nRowHeight       := 87
      WITH OBJECT :aCols[ 3 ]
         :bClrStd       := { || { CLR_BLUE, CLR_WHITE } }
         :nDataStrAlign := 0
      END
      :CreateFromCode()
   END

 

[Silvio.Falconi]

ok now is good but the xbrowse is big and I not see the scroll end and the bottom of the xbrowse
a question
How I can show the other fields

[cnavarro]

Wait

[cnavarro]

-------------------------------------- NEW VERSION 06/03/2018 ------------------------------
- Read README file included

https://bitbucket.org/fivetech/fivewin- ... GOOGLE.zip

[Silvio.Falconi]

Cris,
Do you remember , you sad "wait"..
and I'm waiting also for your sample test for insert data from Google calendar directly to tcalex...

[cnavarro]

Cris,
Do you remember , you sad "wait"..
and I'm waiting also for your sample test for insert data from Google calendar directly to tcalex...

For topic TCalex
viewtopic.php?f=3&t=34904&start=45#p209876

For "Wait"
I did not remember, what information do you need?

[Silvio.Falconi]

see it please ( 15 feb)



you sad me wait because you are making a sample how insert the data array of google calendar into tcalex dbf

[cnavarro]

------------------------------------- NEW VERSION 18/03/2018 --------------------------------

https://bitbucket.org/fivetech/fivewin- ... GOOGLE.zip

New method of making graphics
Class TGGraphics ( Version 0.9 ) included in the latest version (03/18/2017) of Google.lib
Includes example and built exe

Look image of sample

viewtopic.php?f=17&t=34973&p=210789#p210789

[Iris Gesser]

Dear Cristobal,

is your document 1º EncuentroProgramadoresHARBOUR also available in english?
That would be great for me.
If not, I will try to understand it in spanish.

Thank you very much and kind regards
Iris

[cnavarro]

------------------------------------------------------ NEW VERSION 07/04/2018 ----------------------------------------

- Class TGMail with many new methods added
- Sample TestGMail0.prg for look this features
- Minors bugs in others class

https://bitbucket.org/fivetech/fivewin- ... GOOGLE.zip

[Baxajaun]

Cristóbal,

thanks a lot for your great jobs !

Best regards,

[Silvio.Falconi]

run ok
only the windows are not defined well
why you not use tree for folder ( instead xbrowse left) ?

[cnavarro]

Because I do not like trees, and because a single mail can have several associated tags