Gcs-facebook

Télécharger le projet
Commenter

Description

Une Library pour les personnes qui veulent faire une application qui utilise FaceBook.
Elle utilise OAuth, Graph et Internet Explorer pour la connexion. Présentement, on peut seulement récupérer les informations, pas l’envois. Désolé, car il est encore un construction..

Si vous voulez m'aider à le continuer, vous pouvez venir sur mon site.
http://GcSofts.TuxFamily.org

Elle utilise Indy 10, et lkJSON 1.07 (qui est fourni avec le source).

Source / Exemple : 


Uses
    GCS.FaceBook.Client,
    ulkJSON;

////////////////////////////////////////
// Procedure Button Click
Procedure TFormMain.ButtonClick(Sender: TObject);
Var
    FB: TGcsFaceBook_Client;
    ResultJSON: TlkJSONobject;

Begin
    // Construction du Client FaceBook
    // Remplacer VOTRE_APPLICATION_ID par votre Application ID
    FB := TGcsFaceBook_Client.Create('VOTRE_APPLICATION_ID');

    Try
        // Affiche la fenêtre de connexion
        // Retourne TRUE si connexion accepté, sinon retourne FALSE
        If FB.Login Then Begin
            // Affiche les Informations de la session
            Memo1.Lines.Add('Access_Token = ' + FB.Access_Token);
            Memo1.Lines.Add('Expires_In = ' + FB.Expires_In);

            // Récupère les informations général de l'utilisateur
            // Allez ici pour plus d'information sur les commandes Graph de FaceBook:
            //     http://developers.facebook.com/docs/api
            ResultJSON := FB.Graph('me');
            Try
                Memo1.Lines.Add('Votre No d''utilisateur: ' + ResultJSON['id'].Value);
                Memo1.Lines.Add('Votre Nom au Complet: ' + ResultJSON['name'].Value);
                Memo1.Lines.Add('Votre Prénom: ' + ResultJSON['first_name'].Value);
                Memo1.Lines.Add('Votre Nom: ' + ResultJSON['last_name'].Value);
                Memo1.Lines.Add('Votre Adresse FaceBook: ' + ResultJSON['link'].Value);
                Memo1.Lines.Add('Vote Date d’anniversaire: ' + ResultJSON['birthday'].Value);
                Memo1.Lines.Add('Votre Sexe: ' + ResultJSON['gender'].Value);
            Finally
                // Libère le résulta
                ResultJSON.Free;
            End;

            // Se déconnecte de FaceBook
            // FIXME: Présentement, il ne fonctionne pas...
            FB.Logout;
        End;

    Finally
        // Libération du Client FaceBook
        FB.Free;
    End;
End;

Conclusion :


Bon, j'ai oublié de mettre des commentaires dans mes sources... Je vais y travailler prochainement...

Entrer votre Application ID dans la Procedure CreateForm:
FB := TGcsFaceBook_Client.Create('VOTRE_APPLICATION_ID');

PS:
Il est possible que les DLLs d'OpenSSL ne fonctionne pas avec la version d'Indy que vous avez..
J'ai mis les DLLs pour la version d'Indy (10.1.5) que j'ai chez moi fournis avec Delphi Turbo Explorer.

Il se peut qu'il y ait des Bugs, Oublis... Si vous en voyez, dit moi le et je ferais les modifications.

Si quelqu'un trouve une façon pour ce connecter sur facebook qui n'utlise pas Internet Explorer, SVP dites moi le! Sa fait un P'tit boute que je cherche et je n'ai rien trouvé a date... Si possible en utilisant seulement Indy... Merci!
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (pinkfloydhighopes)