Pessoal,
As minhas tentativas de usar a API de contatos do Google através da linguagem FLEX foram até o momento infrutíferas devido a problemas de leitura do arquivo CrossDomain.XML do Google. O flex, por algum motivo que desconheço resolve em algum momentos não ler o arquivo da url:
http://www.google.com/crossdomain.xml e sim da url
https://www.google.com/crossdomain.xml, url esta que não tem este arquivo.
Resolvi então testar a API .NET do Google Contacts. O Endereço onde você deve baixar as DLLs é na página do projeto em:
http://code.google.com/p/google-gdata/ Segue abaixo o código do teste em vb.NET, sendo que para quem não tem o Visual Studio pode usar o
SharpDevelop.
'
' Criado por SharpDevelop.
' Usuário: dms
' Data: 17/1/2010
' Hora: 11:51
'
Imports System
Imports System.Collections.Generic
Imports Google.GData.Client
Imports Google.GData.Contacts
Imports Google.GData.Extensions
Imports System.Data
Public Partial Class MainForm
Public Sub New()
' The Me.InitializeComponent call is required for Windows Forms designer support.
Me.InitializeComponent()
'
' TODO : Add constructor code after InitializeComponents
'
End Sub
Sub Button1Click(sender As Object, e As EventArgs)
debug.Print ("teste")
Dim GContactService = New ContactsService("Contact Information")
GContactService.setUserCredentials("
Coloque aqui o seu e-mail","
e aqui a sua senha")
debug.Print (GContactService.ToString)
debug.Print (GContactService.Credentials.ClientToken)
debug.Print (GContactService.Credentials.GetHashCode)
debug.Print (GContactService.ServiceIdentifier)
Dim query = new ContactsQuery(ContactsQuery.CreateContactsUri("default"))
debug.Print (query.Uri.ToString)
Dim feed As ContactsFeed
feed=GContactService.Query(query)
debug.Print (feed.Feed)
dim x=0
For Each entry As ContactEntry In feed.Entries
debug.Print ("id : " & x & " : ")
debug.Print ("Nome : " & entry.Title.Text)
debug.Print ("# de e-mails : " & entry.Emails.Count )
debug.Print ("# de telefones: " & entry.Phonenumbers.Count)
debug.Print ("URI de foto : " & entry.PhotoUri.ToString)
debug.Print ("Content : " & entry.Content.ToString)
debug.Print ("PhotoETag : " & entry.PhotoEtag)
Next
End Sub
End Class
