HI,
I have a couple of problems with the TAdvGContacts component. - I am using the latest version.
Firstly when writing a new contact, it does not appear to write the Company - I am using code similar to the snippet below :
var
conContact : TGContact;
conContact : TGContact;
begin
conGoogle.GetContacts;
conContact := TGContact.Create(conGoogle.Contacts);
conContact.Company := 'Test Company Ltd.';
conContact.LastName := 'Smith';
conContact.FirstName := 'Fred';
conGoogle.Add(conContact);
conContact.Free;
conContact := TGContact.Create(conGoogle.Contacts);
conContact.Company := 'Test Company Ltd.';
conContact.LastName := 'Smith';
conContact.FirstName := 'Fred';
conGoogle.Add(conContact);
conContact.Free;
end;
After running this the last name and first name are correctly written but the company is blank.
The second problem is when assigning a group to a new contact, the contact is not written at all. I am using code similar to this snippet :
conGoogle.GetContacts;
ShowMessage('Before adding ' + IntToStr(conGoogle.Contacts.Count));
conContact := TGContact.Create(conGoogle.Contacts);
conContact.Company := 'Second Test Company Ltd.';
conContact.LastName := 'Brown';
conContact.FirstName := 'John';
With conContact.Groups.Add do ID := '6';
conGoogle.Add(conContact);
conContact.Free;
conGoogle.GetContacts;
ShowMessage('After adding ' + IntToStr(conGoogle.Contacts.Count));
ShowMessage('Before adding ' + IntToStr(conGoogle.Contacts.Count));
conContact := TGContact.Create(conGoogle.Contacts);
conContact.Company := 'Second Test Company Ltd.';
conContact.LastName := 'Brown';
conContact.FirstName := 'John';
With conContact.Groups.Add do ID := '6';
conGoogle.Add(conContact);
conContact.Free;
conGoogle.GetContacts;
ShowMessage('After adding ' + IntToStr(conGoogle.Contacts.Count));
Am i doing anything wrong or are these bugs?