I have added Elevate DB in order to store the contacts and added my insert code to procedure TLinkedInForm.btConnectionsClick on the sample project.
All the contact records are imported into the database .
Many of the fields are correctly populated , but
PublicProfileURL
EmailAddress
FormattedName
Location
Summary
CountryCode
are not stored ..
My Code :
====================================================================================
AdvLinkedIn1.GetConnections;
lbConnections.Items.Clear;
for i := 0 to AdvLinkedIn1.Connections.Count - 1 do
begin
lbConnections.Items.AddObject(AdvLinkedIn1.Connections.Items
.Profile.FirstName + ' ' + AdvLinkedIn1.Connections.Items
.Profile.LastName, TObject(i));
// Add to Database
ContactCount := ContactCount + 1;
if AdvLinkedIn1.Connections.Items.Profile.FirstName <> 'private' then
begin
DMEMMH.EBDLiContact.Insert;
DMEMMH.EBDLiContactLIContactNumber.AsInteger := ContactCount;
DMEMMH.EBDLiContactLastName.AsString := AdvLinkedIn1.Connections.Items
.Profile.LastName;
DMEMMH.EBDLiContactFirstName.AsString := AdvLinkedIn1.Connections.Items
.Profile.FirstName;
DMEMMH.EBDLiContactHeadLine.AsString := AdvLinkedIn1.Connections.Items
.Profile.Headline;
DMEMMH.EBDLiContactRequestURL.AsString := AdvLinkedIn1.Connections.Items
.Profile.RequestURL;
DMEMMH.EBDLiContactIndustry.AsString := AdvLinkedIn1.Connections.Items
.Profile.Industry;
DMEMMH.EBDLiContactInterests.AsString := AdvLinkedIn1.Connections.Items
.Profile.Interests;
DMEMMH.EBDLiContactSpecialities.AsString := AdvLinkedIn1.Connections.Items
.Profile.Specialties;
DMEMMH.EBDLiContactSummary.AsString := AdvLinkedIn1.Connections.Items
.Profile.Summary;
DMEMMH.EBDLiContactPictureURL.AsString := AdvLinkedIn1.Connections.Items
.Profile.PictureURL;
DMEMMH.EBDLiContactBirthDate.AsDateTime := AdvLinkedIn1.Connections.Items
.Profile.BirthDate;
DMEMMH.EBDLiContactLocation.AsString := AdvLinkedIn1.Connections.Items
.Profile.Location;
DMEMMH.EBDLiContactLastModified.AsDateTime :=
AdvLinkedIn1.Connections.Items.Profile.LastModified;
DMEMMH.EBDLiContactDistance.AsInteger := AdvLinkedIn1.Connections.Items
.Profile.Distance;
DMEMMH.EBDLiContactFormattedName.AsString :=
AdvLinkedIn1.Connections.Items.Profile.FormattedName;
DMEMMH.EBDLiContactConnectionsCount.AsInteger :=
AdvLinkedIn1.Connections.Items.Profile.ConnectionsCount;
DMEMMH.EBDLiContactMaidenName.AsString := AdvLinkedIn1.Connections.Items
.Profile.MaidenName;
DMEMMH.EBDLiContactPublicProfileURL.AsString :=
AdvLinkedIn1.Connections.Items.Profile.PublicProfileURL;
DMEMMH.EBDLIContactCountryCode.AsString := AdvLinkedIn1.Connections.Items
.Profile.CountryCode;
DMEMMH.EBDLIContactLIEmailAddress.AsString :=
AdvLinkedIn1.Connections.Items.Profile.EmailAddress;
DMEMMH.EBDLIContactLIFID.AsString := AdvLinkedIn1.Connections.Items[
i].Profile.ID ;
DMEMMH.EBDLiContact.Post;
end;
end;
end ;
=================================================================================
I would welcome your thoughts