{ TMainForm }
procedure TMainForm.FormCreate(Sender: TObject);
begin
// Register resources.
TSheetsAPI.RegisterAPIResources;
// Set up google client.
FClient:=TGoogleClient.Create(Self);
{$IFDEF USESYNAPSE}
FClient.WebClient:=TSynapseWebClient.Create(Self);
Memo1.Lines.Add('$IFDEF USESYNAPSE');
{$ELSE}
FClient.WebClient:=TFPHTTPWebClient.Create(Self);
showmessage('Falsch!');
{$ENDIF}
FClient.WebClient.RequestSigner:=FClient.AuthHandler;
FClient.WebClient.LogFile:='requests.log';
FClient.AuthHandler.WebClient:=FClient.WebClient;
FClient.AuthHandler.Config.AccessType:=atOffLine;
// We want to enter a code.
FClient.OnUserConsent:=@DoUserConsent;
FSheetsAPI:=TSheetsAPI.Create(Self);
FSheetsAPI.GoogleClient:=FClient;
// Load configuration
LoadAuthConfig;
end;
procedure TMainForm.BFetchCalendarsClick(Sender: TObject);
var
Resource : TSpreadsheetsValuesResource;
EN : String;
i:integer;
RangeData: TValueRange;
begin
SaveRefreshToken;
RangeData:=Nil;
Resource:=Nil;
Resource := FSheetsAPI.CreateSpreadsheetsValuesResource;
try
if assigned(Resource) then
begin
Memo1.Lines.Add('resources assigned');
RangeData:= Resource.Get('****your spread sheet id****','Tabellenblatt1!A1:B3');
end;
finally
FreeAndNil(Resource);
end;
end;