<\/p>\n
Twittern Sie auch Oder folgen Sie zumindest anderen, die bei Twitter mitmachen Vielleicht kennen Sie Twitter ja auch noch gar nicht Wir bringen Sie mit diesem Beitrag auf jeden Fall auf den aktuellen Stand und zeigen, wie Sie mit Access auf den beliebten Online-Dienst zugreifen.<\/b><\/p>\n
Was ist Twitter<\/b><\/p>\n
Twitter ist ein Nachrichtendienst ähnlich RSS. Wer Nachrichten veröffentlichen möchte, legt einen Twitter-Account an und kann dann über twitter.com <\/b>Kurznachrichten veröffentlichen, die maximal 140 Zeichen lang sind und typischerweise einen Link zur vollständigen Nachricht enthalten. Wer Twitter-Nachrichten lesen möchte, braucht keinen Account, sondern kann gleich auf twitter.com <\/b>gehen und dort einen Suchbegriff eingeben. Bei Angabe eines Benutzernamens wie andreminhorst <\/b>kann man durch einen Klick auf einen der gefundenen Benutzer dessen Nachrichten anzeigen, einfache Stichworte liefern schlicht eine nach Aktualität sortierte Liste von Nachrichten (eine Nachricht wird übrigens auch Tweet genannt). Neben den eigentlichen Nachrichten ist das Verfolgen derselbigen interessant. Sie können die Tweets eines Benutzers abonnieren, indem Sie ihm „folgen“. Sie sind dann ein Follower dieses Benutzers. Dies gelingt allerdings nur, wenn Sie selbst ein Benutzerkonto besitzen. Andersherum können andere Benutzer ihnen folgen und erhalten beim Start des Twitter-Clients alle Nachrichten der Benutzer, denen sie folgen.<\/p>\n
Unser Access-Twitter-Client soll auf einfachste Weise drei Dinge ermöglichen: Die Tweets eines Benutzers anzeigen, einen neuen Tweet erstellen und einen bestehenden Tweet löschen – all dies liefert das Formular aus Bild 1. Natürlich bietet Twitter noch viel mehr Möglichkeiten: Beispielsweise zeigt er alle Tweets an, welche die Benutzer eingestellt haben, denen Sie folgen. Solche Features lassen wir an dieser Stelle jedoch aus – Sie können diese aber leicht nachprogrammieren.<\/p>\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2010_03\/Twittern-web-images\/pic004.png\")
<\/p>\n
Bild 1: Dieses Formular enthält alle in diesem Beitrag vorgestellten Twitter-Funktionen.<\/span><\/b><\/p>\n Twitter fernsteuern<\/b><\/p>\n Bevor wir uns um die Formulargestaltung kümmern, schauen wir uns an, wie wir Twitter fernsteuern können. Das Senden und Löschen eigener Tweets erfordert die Authentifizierung, das Abfrufen der Tweets eines Benutzers funktioniert ohne.<\/p>\n Twitter-Meldung senden<\/b><\/p>\n Wer aktiv twittert, ärgert sich vielleicht, dass er sich immer und überall immer wieder neu an den Dienst anmelden muss, bevor er eine Statusmeldung abschickt (zumindest beim Twittern über das Internet – per Handy reicht das Abschicken einer SMS an eine bestimmte Rufnummer).<\/p>\n Wenn man beispielsweise zum Thema Access twittert (oder über Excel, Outlook, Word et cetera), warum sollte man sich nicht einfach ein kleines Tool bauen, in das man einfach seine Twitter-Meldung eingibt und diese per Mausklick oder Eingabetaste abschicken<\/p>\n Dies ist prinzipiell ganz einfach. Sie brauchen nur eine URL mit der Statusmeldung zusammenzustellen und diese per HTTP-Protokoll an Twitter zu senden. Eine solche Meldung könnte etwa so aussehen:<\/p>\n Klar: Irgendwie muss man sich auch hier bei Twitter anmelden. Am einfachsten funktioniert dies mit einer Methode namens Basic Auth<\/b>, die lediglich die Prozedur aus Listing 1 erfordert (inklusive eines Verweises auf die Bibliothek Microsoft WinHTTP Services, version x.y<\/b>).<\/p>\n Listing 1: Absenden eines Tweets<\/p>\n Nun wird Basic Auth <\/b>möglicherweise nicht mehr lang unterstützt, weil die Benutzerdaten hier unverschlüsselt über das Internet verschickt werden. Wir verwenden diesen Vorgehensweise dennoch und werden gegebenenfalls ein Update liefern, wenn die in diesem Beitrag vorgestellte Version nicht mehr funktioniert.<\/p>\n Twitter-Meldungen auslesen<\/b><\/p>\n Wenn Sie Twitter-Meldungen schreiben, möchten Sie diese vielleicht auch auslesen. Dies ist schon ein wenig komplizierter, aber auch nur, weil Sie erst die Antwort parsen müssen. Den Aufruf können Sie aber bereits vorab im Browser üben. Geben Sie dort etwa die folgende URL ein und erhalten Sie ein Ergebnis wie in Bild 2:<\/p>\n Bild 2: Die aktuellste der letzten 20 Statusmeldungen eines Benutzers.<\/span><\/b><\/p>\n Statt <Benutzername> <\/b>geben Sie dort einfach den Namen des Benutzers ein, dessen letzte Statusmeldungen Sie lesen möchten (die Statusmeldungen des Autors finden Sie beispielsweise unter andreminhorst<\/b>). Das Entgegennehmen und Parsen des zurückgelieferten XML-Files nimmt schon ein wenig mehr Zeit in Anspruch. Die grundlegende Funktion sieht nicht viel anders aus als die erste (s. Listing 2). Die Unterschiede in Kurzform:<\/p>\n Listing 2: Tweets eines Benutzers einlesen<\/p>\n <\/p>\n Da wir hier einen Rückgabeparameter verwenden, erfolgt der Aufruf nicht mehr einfach über das Direktfenster, sondern mindestens über eine Prozedur, die den Rückgabeparameter zuvor deklariert und diesen auswertet. Wir greifen an dieser Stelle ein wenig auf das Formular der Beispielanwendung vor und schauen uns die Prozedur GetTweetsByUser_Listbox<\/b> an, die das Ergebnis von GetTweetsByUser <\/b>auswertet und in Form einer Datensatzherkunft für ein Listenfeld liefert (s. Listing 3). Diese ermittelt den XML-Code, den die HTTP-Anfrage als Antwort liefert.<\/p>\n Listing 2: Tweets eines Benutzers einlesen<\/p>\n Das bringt uns natürlich nicht viel, denn wir brauchen ja nur den Inhalt der einzelnen Statusmeldungen. Also parst die Prozedur den Inhalt des XML-Dokuments und schreibt die Informationen in einige Variablen, die sie anschließend zu einer semikola-separierten Liste zuammensetzt. Für einen einzelnen Tweet sieht das etwa so aus:<\/p>\n Das Datum wird dabei übrigens durch die Funktion DatumAuswerten <\/b>von einem Ausdruck wie Wed Jan 20 08:52:10 +0000 2010 <\/b>in eine lesbarere Form umgewandelt. Für den einfachen Zugriff auf ein XML-Dokument benötigen wir einen Verweis auf die Bibliothek Microsoft XML, vx.0<\/b>, den Sie über den Verweise<\/b>-Dialog des VBA-Editors (Extras|Verweise<\/b>) einfügen – verwenden Sie einfach die aktuellste verfügbare Version. Das Ergebnis werden wir weiter unten als Datensatzherkunft eines Listenfeldes verwenden.<\/p>\n Löschen eines Tweets<\/b><\/p>\n Das Entfernen eines Tweets eines Benutzers geschieht prinzipiell genauso wie das Erzeugen eines solchen. Die nötige Funktion heißt allerdings DestroyTweet <\/b>und verwendet die wie folgt zusammengesetzte URL:<\/p>\n Twitter-Formular<\/b><\/p>\n Das wichtigste Formular der Anwendung heißt frmTwitter <\/b>und erlaubt das Absenden, Löschen und Betrachten der Tweets eines ausgewählten Benutzers. Die beiden Formular frmLookup <\/b>und sfmLookup <\/b>dienen lediglich der Bearbeitung der Benutzer und ihrer Kennworter und werden im Beitrag Standard-Lookupformulare <\/b>(www.access-im-unternehmen.de\/722<\/b>) detailliert beschrieben. Das Kombinationsfeld cboBenutzer <\/b>ist an die Tabelle tblBenutzer <\/b>gebinden, die eine ID<\/b>, den Benutzernamen <\/b>und das Kennwort <\/b>speichert. Gleich beim Laden des Formulars wird der erste Eintrag dieser Tabelle ausgelesen und die Prozedur aufgerufen, die normalerweise erst beim Anklicken der Schaltfläche cmdTweetsLaden <\/b>startet und die Tweets des ausgewählten Benutzers einliest.<\/p>\n Diese Prozedur ruft die Funktion GetTweetsByUser_Listbox <\/b>auf und füllt so das Listenfeld lstTweets <\/b>für den im Kombinationsfeld cboBenutzername <\/b>angegeben Benutzer:<\/p>\n Außerdem markiert sie den ersten Eintrag und ruft die Prozedur lstTweets_AfterUpdate <\/b>auf, die auch beim Auswählen eines anderen Eintrags des Listenfeldes ausgelöst wird:<\/p>\n Diese Prozedur füllt lediglich die beiden Textfelder txtDatum <\/b>und txtTweet <\/b>mit den Daten des aktuell im Listenfeld ausgewählten Tweets. Diesen ausgewählten Tweet können Sie mit einem Klick auf die Schaltfläche Tweet löschen <\/b>entfernen. Die dadurch ausgelöste Prozedur ruft die Routine DestroyTweet <\/b>aus dem Modul mdlTwitter <\/b>auf und liest die Liste der Tweets für den aktuell ausgewählten Benutzer erneut aus, wenn der Löschvorgang erfolgreich war:<\/p>\n Neuen Tweet senden<\/b><\/p>\n Schließlich wollen Sie mit dem Twitter-Client noch neue Tweets senden. Dies geschieht nach der Eingabe des Tweets im Textfeld txtNeuerTweet <\/b>über die Schaltfläche Tweet senden<\/b>, die schlicht und einfach die Funktion NewTweet <\/b>aufruft und im Erfolgsfall die Liste der Tweets aktualisiert:<\/p>\n Ein Tweet darf allerdings nicht länger als 140 Zeichen sein, also fügen wir noch eine Funktion hinzu, welche die Anzahl der fehlenden Zeichen anzeigt und verhindert, dass der Benutzer mehr Zeichen einträgt. Zum Zwischenspeichern des Tweets brauchen wir eine Hilfsvariable:<\/p>\n Die Anzeige wird nach der Eingabe eines jeden Zeichens aktualisiert. Dafür sorgt die folgende Prozedur, die durch das Ereignis Beim ändern <\/b>ausgelöst wird. Es berechnet die Anzahl der fehlenden Zeichen und schreibt diese in die Variable intZeichenUebrig<\/b>. Wenn noch Zeichen offen sind, schreibt die Prozedur die Anzahl aus dieser Variablen in das Textfeld txtZeichenUebrig <\/b>und merkt sich den aktuell im Textfeld txtNeuerTweet <\/b>enthaltenen Text in der Variablen strTweet<\/b>.<\/p>\n Dies hat den Hintergrund, dass dieser Text bei Eingabe eines Zeichens über die Grenze von 140 Zeichen hinaus wiederhergestellt werden soll. Dies geschieht im ersten Teil der If-Bedingung: Die Prozedur merkt sich dort die Position der Einfügemarke, stellt den zuvor in strTweet gespeicherten Text wieder her und positioniert die Einfügemarke, die sonst je nach Einstellung am Anfang oder am Ende des Textes positioniert worden wäre, an der zuvor gespeicherten Stelle:<\/p>\n Schließlich sorgt ein Klick auf die Schaltfläche mit den drei Punkten neben dem Kombinationsfeld cboBenutzername <\/b>für die Anzeige des Formulars zur Bearbeitung der Einträge:<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Mit dem hier vorgestellten Formular können Sie Twitter-Meldungen absetzen, einlesen und löschen. Eine wichtige Frage ist die der Sicherheit: Aktuell werden die Zugangsdaten unverschlüsselt in einer Tabelle der Datenbank gespeichert, und auch der Zugriff auf Twitter erfolgt über das einfache Protokoll Basic Auth. Dieses wird möglicherweise bald eingestellt, sodass Sie dann auf OAuth umsteigern müssen – wir werden zu gegebener Zeit darauf zurückkommen.<\/p>\n Erweiterungsmöglichkeiten für den Access-Twitter-Client gibt es genug: So können Sie natürlich Tweets nicht nur eines, sondern mehrere Benutzer in eine Tabelle einlesen und diese anzeigen oder durchsuchen. Sehr interessant wäre auch die Idee, den Twitter-Client in ein Access-Add-In oder ein COM-Add-In auszulagen, um diesen ständig in Access (oder auch einer beliebigen anderen Office-Anwendung) anzuzeigen. Die nötigsten Steuerelemente wie ein Feld zur Eingabe eines neuen Tweets oder zum Aufrufen der Benutzeroberfläche des Twitter-Clients könnte man dabei ständig sichtbar im Ribbon oder in der Menüleiste unterbringen. Mitteilungsfreudige Entwickler könnten so ständig von ihrem Werkzeug aus Tweets verschicken.<\/p>\n Außerdem haben wir in diesem Beitrag längst nicht alle Möglichkeiten von Twitter selbst vorgestellt – mehr erfahren Sie auf der Webseite twitter.com<\/b>.<\/p>\n Die API-Dokumentation von Twitter finden Sie übrigens unter http:\/\/apiwiki.twitter.com\/Twitter-API-Documentation<\/b>.<\/p>\n Enthaltene Beispieldateien:<\/p>\n Twittern.mdb<\/p>\nhttp:\/\/twitter.com\/statuses\/update.xmlstatus=So klappt Twittern mit VBA!<\/pre>\n
Public Function SendTweet(strUpdate As String, _\r\n strUsername As String, strPassword As String) As Boolean\r\n Dim objWinHttpRequest As New WinHttpRequest\r\n Dim strURL As String\r\n strURL = "http:\/\/twitter.com\/statuses\/update.xmlstatus=" _\r\n & strUpdate\r\n With objWinHttpRequest\r\n .Open "POST", strURL, False\r\n .SetCredentials strUsername, strPassword, 0\r\n .Send\r\n If .Status = 200 Then\r\n SendTweet = True\r\n End If\r\n End With\r\nEnd Function<\/pre>\n
http:\/\/api.twitter.com\/1\/statuses\/user_timeline.xmlscreen_name=<Benutzername><\/pre>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2010_03\/Twittern-web-images\/pic001.png\")
<\/p>\n\n
Public Function GetTweetsByUser(strUsername As String, strXML As String) As Boolean\r\n Dim objWinHttpRequest As New WinHttpRequest\r\n Dim strURL As String\r\n strURL = \"http:\/\/api.twitter.com\/1\/statuses\/user_timeline.\r\n xmlscreen_name=& strUsername\r\n With objWinHttpRequest\r\n .Open \"GET\", strURL, False\r\n .Send\r\n If .Status = 200 Then\r\n GetTweetsByUser = True\r\n End If\r\n strXML = .ResponseText\r\n End With\r\nEnd Function<\/pre>\n
Public Function GetTweetsByUser_Listbox(strUser As String) As String\r\n Dim strXML As String\r\n Dim objXML As MSXML2.DOMDocument\r\n Dim objStatus As MSXML2.IXMLDOMElement\r\n Dim strID As String\r\n Dim strText As String\r\n Dim strDatum As String\r\n Dim strTemp As String\r\n If GetTweetsByUser(strUser, strXML) = True Then\r\n Set objXML = New MSXML2.DOMDocument\r\n objXML.loadXML strXML\r\n For Each objStatus In objXML.selectNodes(\"statuses\/*\")\r\n strID = objStatus.selectSingleNode(\"id\").nodeTypedValue\r\n strText = objStatus.selectSingleNode(\"text\").\r\n nodeTypedValue\r\n strDatum = DatumAuswerten(objStatus.selectSingleNode\r\n (\"created_at\").nodeTypedValue)\r\n strTemp = strTemp & Chr(34) & strID & Chr(34) & \";\"\r\n & Chr(34) & strDatum & Chr(34) & \";\"\r\n & Chr(34) & strText & Chr(34) & \";\"\r\n Next objStatus\r\n GetTweetsByUser_Listbox = strTemp\r\n End If\r\nEnd Function<\/pre>\n
"12873390477\";\"26.04.2010 09:25:04\";\r\n\"Coming soon: Access [basics] - Ausgabe 2!\";<\/pre>\n
strURL = "http:\/\/api.twitter.com\/1\/statuses\/\r\ndestroy\/\" & strStatusID & ".xml\"<\/pre>\n
Private Sub Form_Load()\r\n Me!cboBenutzername = _\r\n Me!cboBenutzername.ItemData(0)\r\n cmdTweetsLaden_Click\r\nEnd Sub<\/pre>\n
Private Sub cmdTweetsLaden_Click()\r\n Me!lstTweets.RowSource = GetTweetsByUser_\r\n Listbox(Me!cboBenutzername.Column(1))\r\n Me!lstTweets = Me!lstTweets.ItemData(0)\r\n lstTweets_AfterUpdate\r\nEnd Sub<\/pre>\n
Private Sub lstTweets_AfterUpdate()\r\n Me!txtDatum = Me!lstTweets.Column(1)\r\n Me!txtTweet = Me!lstTweets.Column(2)\r\nEnd Sub<\/pre>\n
Private Sub cmdTweetLoeschen_Click()\r\n If DestroyTweet(Me!lstTweets, _\r\n Me!cboBenutzername.Column(1), _\r\n Me!cboBenutzername.Column(2)) = True Then\r\n cmdTweetsLaden_Click\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub cmdTweetSenden_Click()\r\n If NewTweet(Me!txtNeuerTweet, _\r\n Me!cboBenutzername.Column(1), _\r\n Me!cboBenutzername.Column(2)) = True Then\r\n cmdTweetsLaden_Click\r\n End If\r\nEnd Sub<\/pre>\n
Dim strTweet As String<\/pre>\n
Private Sub txtNeuerTweet_Change()\r\n Dim intZeichenUebrig As Integer\r\n Dim intPos As Integer\r\n intZeichenUebrig = 140 - _\r\n Len(Me!txtNeuerTweet.Text)\r\n If intZeichenUebrig < 0 Then\r\n intPos = Me!txtNeuerTweet.SelStart\r\n Me!txtNeuerTweet = strTweet\r\n Me!txtNeuerTweet.SelStart = intPos - 1\r\n Else\r\n Me!txtZeichenUebrig = intZeichenUebrig\r\n strTweet = Me!txtNeuerTweet.Text\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub cmdBenutzerDetails_Click()\r\n DoCmd.OpenForm "frmLookup", OpenArgs:="SELECT Benutzername, Kennwort FROM tblBenutzer", WindowMode:=acDialog\r\nEnd Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n