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
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 ...
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:
403 error executing request: forbidden
Ciao, Mario
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:
Result := False;
FResultCode := 500;
FResultString := '';
FDownloadSize := 0;
FUploadSize := 0;
//aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
FProxyHost:='Il Mio Proxy';
FProxyPort:='8080';
Ciao, Mario
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:
Events:=FCalendarAPI.EventsResource.list(FCurrentCalendar.id,'');
La "FCalendarAPI.EventsResource.list" può essere chiamata in 2 modalità: quella attuale del sorgente e questa:
Function List(calendarId: string; AQuery : TEventslistOptions) : TEvents;
Io ho provato a fare questo:
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ì:
Events:=FCalendarAPI.EventsResource.list(FCurrentCalendar.id,'maxResults=23066360');
Ciao, Mario
Tra l'altro, credo di aver trovato anche un errore: ad un certo punto c'è questa specifica:
Events:=FCalendarAPI.EventsResource.list(FCurrentCalendar.id,'');
La "FCalendarAPI.EventsResource.list" può essere chiamata in 2 modalità: quella attuale del sorgente e questa:
Function List(calendarId: string; AQuery : TEventslistOptions) : TEvents;
Io ho provato a fare questo:
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ì:
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:
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