谷歌日历api delphi

我一直在用DELPHI编程，使用google calendar，我想删除一个事件，但我不得不去bug

procedure TForm1.Button1Click (Sender: TObject);    
var    
 url: string;    
 slParam: TStringList;    
begin    
  test: ='';    
  IdHTTP2.Request.CustomHeaders.Clear;    
  IdHTTP2.Request.Connection: = 'Keep-Alive';    
  IdHTTP2.Request.ContentType: = 'application / atom xml';    
  IdHTTP2.Request.CustomHeaders.Values ['GData-Version']: = '2';    
  IdHTTP2.Request.CustomHeaders.Values ['Authorization']: = 'GoogleLogin auth =' auth;    
  IdHTTP2.HandleRedirects: = true;    
  url: =  http://www.google.com/calendar/feeds/u0qtqn2cke6pjppu1vgj5pj8js  %40group.calendar.google.com/private/full    
  slParam: = TStringList.Create;    
  slParam.LoadFromFile ('udalit.xml');    
  try    
    test: = IdHTTP2.Post (url, slParam);    
    memo1.Lines.Add (test);    
  except    
 on E: EIdHTTPProtocolException do    
   ShowMessage (E.ErrorMessage);    
  end;    
  FreeAndNil (slParam);    
end;

这是我要发送的xml文件

<?xml version="1.0" encoding="UTF-8" ?>   
<feed xmlns="http://www.w3.org/2005/Atom" xmlns:app="http://www.w3.org/2007/app" xmlns:batch="http://schemas.google.com/gdata/batch" xmlns:gCal="http://schemas.google.com/gCal/2005" xmlns:gd="http://schemas.google.com/g/2005">  
<category scheme="http://schemas.google.com/g/2005#kind" term="http://schemas.google.com/g/2005#event" />   
<entry gd:etag=""FEUDQAdBfSp7JGA6WhJV"">  
<batch:id>Delete itemD</batch:id>   
<batch:operation type="delete" />   
<id>http://www.google.com/calendar/feeds/u0qtqn2cke6pjppu1vgj5pj8js%40group.calendar.google.com/private/full/ihpe431ebmk9pa39dskjilnsko</id>   
</entry>  
</feed>

发送时将生成错误

[第1行第227列]根元素无效，应为 http://www.w3.org/2005/Atom:entry，得到 http://www.w3.org/2005/Atom:feed

---

似乎不需要发送文件来删除事件。根据，您只需要调用URI

要删除日历资源，请向资源ID的源URL发送删除请求。包括身份验证中所述的授权标头

删除{domain name}/{resourceId}

成功的响应将从Google Data API状态代码返回HTTP 200状态代码。成功响应删除请求的XML正文为空

---

似乎不需要发送文件来删除事件。根据，您只需要调用URI

要删除日历资源，请向资源ID的源URL发送删除请求。包括身份验证中所述的授权标头

删除{domain name}/{resourceId}

成功的响应将从Google Data API状态代码返回HTTP 200状态代码。成功响应删除请求的XML正文为空

---

HTTP规范禁止使用内容类型头中的空格。您还应该尝试正确拼写：application/atom+xml有一个加号，这是必需的。代码中也有语法错误。请复制并粘贴真实的代码，否则人们不会相信您报告的问题是真实的。HTTP规范禁止在内容类型标头中使用空格。您还应该尝试正确拼写：application/atom+xml有一个加号，这是必需的。代码中也有语法错误。请复制并粘贴真实代码，否则人们不会相信您报告的问题是真实的。