Direkt zum Hauptbereich

Delphi mit Facebook per OAuth2 verbinden

Als ich mich das erste mal mit OAuth2 zur Autorisierung beschäftigte, begann ich mit der RESTDemo.exe von Delphi zu experimentieren. Dies hat aber nicht so einfach funktioniert wie ich dachte. Also beschreibe ich hier mal mein Vorgehen wie ich mich mit Facebook Autorisieren kann. Die Vorarbeit liegt nicht unbedingt auf Seite Delphi, sondern genauso auf der Seite Facebook.

Registrierung Facebook
Als erstes muss man seine APP auf https://developers.facebook.com/apps registrieren.

Als nächstes, geht man auf Einstellungen - Allgemeines und holt sich die "App-ID", in Delphi "Client-ID" und "Client-Secret", bzw. "App-Geheimcode". Beides ist später für die Url nötig. Wichtig in dem Zusammenhang, als "App Domain" "localhost" einzutragen. Um den Status der App auf Live zu stellen ist von Seite Facebook ein Links zur Datenschutzrichtlinie erforderlich. Hatte hierfür die Url meines Arbeitgebers eingetragen.

Um die App Live zu schalten, einfach den Switch auf On schalten.

Als letztes muss unter Produkte - Facebook Login - Einstellungen der Switch "Eingebettete Browser-OAuth-Anmeldung" aktiviert werden.


Delphi App
Ein simples Beispiel liegt auf meinem GitHub Account unter: FacebookOAuth2Demo
Das Beispiel dient nur zur Demonstration und entspricht keinem sauberen Designe Pattern.

Kommentare

Kommentar veröffentlichen

Beliebte Posts aus diesem Blog

MVC mit System.Messaging

In der Vergangenheit hatte ich, beim Einsatz vom MVC Pattern immer eine eigene Implementation des Observer Pattern um Nachrichten vom Model ans View zu schicken. Hierbei handelte es sich um ein einfaches Record welches nur Text verschicken konnte. Das View musste deswegen auch immer das Model, bzw. das Interface des Model kennen um Daten für Aktualisierung zu haben. Dies widerspricht meiner Meinung nach, dem Prinzip von Clean Code "Separation of Concerns" und koppelt das View ans Model. Um dem entgegen zu wirken, experimentierte ich mit den Board-Mitteln Delphi, aus dem Namespace System.Messaging . Im View hänge ich mich an den DefaultManager der Klasse TMessageManager . procedure TFormShowMessage.FormCreate(Sender: TObject); begin FSubscriptionId := TMessageManager.DefaultManager.SubscribeToMessage(TMessage , procedure(const Sender: TObject; const AMessage: TMessage) begin Memo1.Lines.Add((AMessage as TMessage ).Value); end); end; Das Model schickt ...
Kommentar veröffentlichen
Mehr anzeigen

Neuer JSON Serialisierer ab Embarcadero Tokio 10.2

Seit Embarcadero Tokyo 10.2 veröffentlicht hat, steht uns Entwicklern ein neuer sehr gut zu gebrauchender JSON Marshaller zur Verfügung. Leider ist die Dokumentation dürftig. Das schöne ist aber, das Embarcadero sich ziemlich an gängige Verfahren hält. So konnte ich z.B. sehr einfach herausfinden was TJsonCustomCreationConverter<T> macht, nachdem ich C# Beispiele analysierte. Da es leider keine offizielle Dokumentation zum TJsonSerializer gibt, beruhen meine Beispiele auf Versuch und Irrtum. Es gibt 3 Namespaces, welche relevant sind. Zum einen "System.JSON.Serializers", für den eigentlichen Serialisierer und die Klassenattribute, zum anderen "System.JSON.Converters", für eigene Konverter und zuletzt "System.JSON.Types", für z.B. Datumsformate oder Formatierungen. TJsonSerializer Ist die wichtigste Klasse, sie ist implementiert im Namespace System.JSON.Serializers. Diese Klasse ist dafür zuständig, ein Objekt in JSON (Serialisierung) zu formati...
Kommentar veröffentlichen
Mehr anzeigen

Einsatz von Delphi Detours Library

Hooking einer "protected" Methode. Vor kurzem stand ich vor dem Problem eine function zu überschreiben welche zum einen als protected deklariert ist, zum anderen nicht virtual war. Ich konnte also, nicht einfach eine abgeleitete Klasse schreiben. Der erste Gedanke fiel auf  Delphi Detours Library von Mahdi Safsafi, zu finden unter  https://github.com/MahdiSafsafi/delphi-detours-library Das Framework ist erste Wahl bei Tests und div. Tricksereien. Im folgenden Beispiel, sieht man wie die Methode TAzureBlobService.XMsDate gehookt wird. XMsDate ist ein protected Member von TAzureService. Zum Testen wollte ich den Result mit einem eigenen String überschreiben. Nötig für die Methode ListContainer der TAzureBlobService Klasse. ... uses DDetours, ... TMyBlobService = class(TAzureBlobService) public function InterceptXMsDate: string; function ListContainers(): TArray ; overload; end; ... { TMyBlobService } function TMyBlobService.InterceptXMsD...
Kommentar veröffentlichen
Mehr anzeigen