| Rubrik: Office / VBA | Lizenz: Freeware | 19.03.13 |
 Einfache Chat-Anwendung über TCP (Source)Eine Access-MDB im Source-Code mit Klassen-Modulen als Ersatz für das Winsock-Steuerelement | ||
| Update: - | VB-Versionen: VBA | Sprache: Deutsch |
Autor:  Beat Arnet | System: Win2k, WinXP, Win7, Win8 | Downloads: 4.058 |
| ohne Homepage | Bewertung:   |  Download starten (172 KB) |
1. Herausforderung
In einem Radiologieinstitut soll das Spitalinformationssystem (HIS) mit dem digitalen Bildarchiv (PACS) kommunizieren. Das HIS hat bereits eine einfache TCP-Schnittstelle eingebaut. Das PACS läuft seit vielen Jahren unter MS-Access und MySQL. Die TCP-Schnittstelle muss dort noch realisiert werden.
2. Lösung
Das unter VB6 bekannte Winsock-Control eignet sich aus mehreren Gründen nicht für die Kommunikation. Vor allem kann das OCX nicht in einer Office-Umgebung eingebunden werden. Es musste also ein Ersatz her.
Die von Emiliano Scavuzzo bereitgestellte Klasse CSocketMaster emuliert das Winsock-Control mit nur minimalen Änderungen, die aber auf seiner Homepage doumentiert sind. Leider stürzte die schnellstens programmierte Testanwendung je nach installiertem MS-Office immer wieder ab. Glücklicherweise steuerten einige Quellen die notwendigen Informationen bei, um das Modul "modSocketMaster" an VBA anzupassen. Meine Aufgabe bestand also nur noch darin, das kleine Testprogramm auf den verwendeten Office-Installationen (MS-Office 2007, 2010) zu testen und anschliessend die produktive Anwendung zu schreiben. Das Testprogramm emuliert einen einfachen Chat. Zuerst wird der Server gestartet, der an einem bestimmten Port zuhört. Der Client versucht dann am gleichen Port eine Verbindung aufzubauen. Wenn die Verbindung zustande gekommen ist können Textnachrichten ausgetauscht werden.
3. Links
- Homepage von Emiliano Scavuzzo: http://csocketmaster.com.ar/
- Funktionsweise von Winsocket mit Beispielprogrammen:
http://www.vbarchiv.net/tipps/details.php?id=616
http://www.activevb.de/tutorials/tut_winsock_control/winsock_con.html
http://www.activevb.de/tutorials/tut_winsock/winsock.html
4. Verdankung
Die erste Version ist um ca. 2001 entstanden. In der Zwischenzeit haben einige Autoren und Autorinnen Hinweise beigesteuert. Wo möglich habe ich deren Beitrag direkt im Source Code verdankt.
5. Kommentare
Als "Küchentischprogrammierer" bin ich selten in der Lage, fachliche Unterstützung zu leisten. Umgekehrt bin ich dankbar für jeden Hinweis, der hilft das Programm zu verbessern.
Beat Arnet
CH-Zollikofen im März 2013
Download starten (172 KB)
Unser Download-TipproSoft Fahrtenbuch 4.5
Fahrtenbuch nach Finanzamt-Richtlinien!
Egal ob Selbständiger, Handwerker, Freiberufler oder Verein - Verwaltung beliebig vieler KfZ's, Unterscheidung zwischen Geschäfts- und Privatfahten, sowie Fahrten zum Arbeitsplatz, Auswertung der KM-Vergütung u.v.m
Mehr Details | Download (7,3 MB)Hinweis:
Das Team von vb@rchiv haftet nicht für Schäden, die durch Installation / Ausführen eines hier im Downloadarchiv angebotenen Programms entstehen!