Access violation at address in module read of address 00000 Delphi

Delphi

Google Calendar

01/10/2020

Sou novato na área de desenvolvimento e estou desenvolvendo uma aplicação que integra a API do Google Calendar. Quero fazer uma requisição POST com conteúdo JSON pra inserir um Calendário na API. (Eu acho que daria pra fazer também com os componentes REST do Delphi, tentei dessa forma também mas meu supervisor não quer).
A questão é que eu me deparei a alguns dias com um erro de Access violation at address in module read of address 00000 e não consegui resolver ainda, eu verifiquei meu código e não me parece nenhum objeto que eu esqueci de instanciar, porém parece que o erro é com a classe que estou usando.
Meu código abaixo
function TOAuth2TesterFrm.TCalendarsInsertRequest: TCalendar;
var
  request, response,campos: string;
  params: THttpRequestParameterList;
  objeto: TService;
  AInitializer: TServiceInitializer;
begin
     params := THttpRequestParameterList.Create();
   //  AInitializer:=TServiceInitializer.Create();
     objeto:=TService.CreatE(AInitializer);
     campos:='summary,kind,id,TimeZone';

  try
    params.Add('fields', campos);                                                            // Adiciona uma string usando o método ADD, que utiliza uma string chave, e uma string valor, semelhante a um JSON
                                                                                            //request := objeto.Initializer.JsonSerializer.ObjectToJson(calendario); //Monta uma request que é um objeto JSON convertido em String
    request:='{"kind":"calendar#calendar","summary":"Agenda","timeZone":"Brasil"}';
    response := objeto.Initializer.HttpClient.Post('https://www.googleapis.com/calendar/v3/calendars',params,request); //Inicializa a Request
    Result := TCalendar(objeto.Initializer.JsonSerializer.JsonToObject(TCalendar, response));
  finally
    params.Free();
  end;
end;
end.

Alguém poderia me ajudar ??
Iago Morelli

Iago Morelli

Curtidas 0
POSTAR