googleapis

[bonmario]

Ciao a tutti,
ho appena aggiornato i sorgenti di Lazarus tramite SVN, ed ho notato la directory "......\components\googleapis".
A me interesserebbe sfruttare la parte relativa a Calendar, per un progetto a cui lavoro da un po'.
Qualcuno ha già provato questo componente e mi sa dire se c'è qualche prerequisito di cui devo tenere conto?
Io attualmente uso FPC 2.6.4

Grazie in anticipo, Mario

[nomorelogic]

ci sto guardando anche io

in .../lazarus/components/googleapis/ c'è un README, leggilo bene.

le googleapis vengono testate in primis per la trunk 3.1 ma il compilatore 2.6.4 è OK e quindi...
nella sottocartella 2_6_4 c'è uno script che serve ad avere i sorgenti necessari per compilare con la tua versione di fpc

lo sviluppo è all'inizio ma è continuo, qua
http://lists.lazarus.freepascal.org/pipermail/lazarus/2015-May/thread.html
puoi contattare l'autore (che non frequenta il forum ufficiale ma lo trovi solo nella mailing list) per eventuali bug

[bonmario]

Perfetto, grazie !!!!

[nomorelogic]

stai facendo prove con la demo di google calendar?

hai fatto la prova a lanciare la demo da linea comando e poi chiudere immediatamente l'applicazione senza toccare nulla?

a me da qualche lack of memory...

[bonmario]

No, mi dispiace, purtroppo mi sono imbattuto in alcuni problemi con la "TFileSearcher" appena prima di iniziare, quindi per il momento ho accantonato questo progetto.
Appena ho un po' più di tempo, inizio a guardarci.

Ciao, Mario

[bonmario]

Ciao,
ho appena provato, ma non riesce a scaricarmi i calendari.
Credo che il prooblema sia che qui al lavoro dobbiamo impostare un proxy per poter navigare, e non ho visto nessun punto nei sorgenti delle googleapis in cui impostare utente e password del proxy.
Quando ho un po' di tempo, ci riprovo da casa.

Ciao, Mario

[varianus]

Dopo un po' di tentativi io sono riuscito ad impostare il proxy nella demo, con un paio di accrocchi orribili ...

1) Nel codice di frmmain ho dovuto forzare l'uso degli oggetti synapse  con la direttiva {$DEFINE USESYNAPSE}
2) Ho aggiunto al progetto il file synapsewebclient.pp che è nella cartella  lazarus\components\googleapis\2_6_4
3) ho modificato quest'ultimo file cambiando il codice nel metodo DoCreateRequest in questo modo

Codice: [Seleziona]

Function TSynapseWebClient.DoCreateRequest: TWebClientRequest;
begin
  Result:=TSynapseRequest.Create(THTTPSend.Create);
  TSynapseRequest(Result).FHTTP.ProxyHost:='proxyserver';
  TSynapseRequest(Result).FHTTP.ProxyPort:='8080';
  TSynapseRequest(Result).FHTTP.ProxyUser:='user';
  TSynapseRequest(Result).FHTTP.ProxyPass:='password'; 
end;  

In questo modo a me ha funzionato, spero sia utile ...

[bonmario]

Niente da fare, avevo aggirato pure io il problema del proxy modificando il sorgente di Synapse, ma purtroppo adesso ho un altro errore perché quel sito è tra quelli a cui non possiamo accedere dall'ufficio.
Mi tocca per forza provarci da casa.

Ciao, Mario

[bonmario]

Visto che l'errore me lo da anche qui a casa, probabilmente non è dovuto ai filtri che ci sono al lavoro.
L'errore è nell'immagine allegata.
Qualche idea?

Ciao, Mario

[bonmario]

L'errore segnalato sopra l'ho risolto copiando nella cartella del progetto le 2 DLL libssl32.dll e libeay32.dll.
Ora però ho un altro errore:

Codice: [Seleziona]

403 error executing request: forbidden

Ciao, Mario

[bonmario]

Ho risolto anche il problema sopraesposto. Non so se la procedura è quella corretta, ma ho fatto così:
- sono andato su "https://console.developers.google.com/"
- ho selezionato il mio progetto
- ho cliccato su "APIs & Auth"
- ho cliccato su "APIs"
- nella casella di ricerca ho cercato la parola "calendar", mi sono uscite 2 voci
- su ognuna delle 2, ho cliccato ed ho cliccato sul bottone "Enable API"

A questo punto, ho provato a rilanciare e funziona !!!!


Per quanto riguarda invece il problema del proxy, ho risolto in una maniera un po' meno "complicata" della tua.
Siccome io ho FPC 2.6.4, l'uso di Synapse è obbligatorio. Quindi, nei percorsi, ho aggiunto la dir dei sorgenti di Synapse a "Altri file unit".
Ho poi aperto il sorgente "httpsend" e sono andato nella "function THTTPSend.HTTPMethod(const Method, URL: string): Boolean;".
Appena prima dell'istruzione "URI := ParseURL(URL, Prot, User, Pass, Host, Port, Path, Para);" ho aggiunto i miei parameri del proxy:

Codice: [Seleziona]

  Result := False;
  FResultCode := 500;
  FResultString := '';
  FDownloadSize := 0;
  FUploadSize := 0;
  //aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
  FProxyHost:='Il Mio Proxy';
  FProxyPort:='8080';

Ciao, Mario

[bonmario]

stai facendo prove con la demo di google calendar?

hai fatto la prova a lanciare la demo da linea comando e poi chiudere immediatamente l'applicazione senza toccare nulla?

a me da qualche lack of memory...

Oggi ho avuto un po' di tempo per "giocarci" e confermo quello che scrivi.
Tra l'altro, credo di aver trovato anche un errore: ad un certo punto c'è questa specifica:

Codice: [Seleziona]

Events:=FCalendarAPI.EventsResource.list(FCurrentCalendar.id,'');

La "FCalendarAPI.EventsResource.list" può essere chiamata in 2 modalità: quella attuale del sorgente e questa:

Codice: [Seleziona]

Function List(calendarId: string; AQuery : TEventslistOptions) : TEvents;

Io ho provato a fare questo:

Codice: [Seleziona]

  with EventsListOptions do begin
    maxResults:=2500;
  end;

  Events:=FCalendarAPI.EventsResource.list(FCurrentCalendar.id,EventslistOptions);

Ma mi andava in errore durante l'esecuzione. Sono riuscito a farla funzionare solo forzando io a mano il parametro, praticamente così:

Codice: [Seleziona]

Events:=FCalendarAPI.EventsResource.list(FCurrentCalendar.id,'maxResults=23066360');

Ciao, Mario

[nomorelogic]

ciao ora sono io che sono incasinato con altri lavori 
sistemo un paio di magagne e mi ci rimetto

[bonmario]

Non c'è problema, tanto per il momento ci sto solo "giocando" per familiarizzare.

Ciao, Mario

[bonmario]

Tra l'altro, credo di aver trovato anche un errore: ad un certo punto c'è questa specifica:

Codice: [Seleziona]

Events:=FCalendarAPI.EventsResource.list(FCurrentCalendar.id,'');

La "FCalendarAPI.EventsResource.list" può essere chiamata in 2 modalità: quella attuale del sorgente e questa:

Codice: [Seleziona]

Function List(calendarId: string; AQuery : TEventslistOptions) : TEvents;

Io ho provato a fare questo:

Codice: [Seleziona]

  with EventsListOptions do begin
    maxResults:=2500;
  end;

  Events:=FCalendarAPI.EventsResource.list(FCurrentCalendar.id,EventslistOptions);

Ma mi andava in errore durante l'esecuzione. Sono riuscito a farla funzionare solo forzando io a mano il parametro, praticamente così:

Codice: [Seleziona]

Events:=FCalendarAPI.EventsResource.list(FCurrentCalendar.id,'maxResults=23066360');

Ciao, Mario

L'errore era in parte mio: TEventslistOptions è dichiarato come record, ed io non evevo inizializzato i campi del record che non usavo, quindi la chiamata alle api di Google veniva fatta con dei parametri che contenevano valori scorretti.
Ho risolto preparando prima i parametri che mi servono e poi facendo la chiamata.
Ad esempio questo:

Codice: [Seleziona]

  Parametri:='';
    FCalendarAPI.EventsResource.AddToQuery(Parametri, 'timeMin', IncDay(Now(), -7));
    FCalendarAPI.EventsResource.AddToQuery(Parametri, 'timeMax', Now());
  Events:=FCalendarAPI.EventsResource.list(FCurrentCalendar.id,Parametri);

Permette di ricevere solo gli eventi dell'ultima settimana.

Adesso c'è un'ultima cosa che mi interesserebbe gestire e che non o capito ancora come funziona: la gestione degli eventi ciclici (settimanali, mensili, ecc). Ho notato che per come è fatto adesso il programma di demo, vedo solo il primo evento.

Ciao, Mario