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.143
ohne Homepage	Bewertung:     [ Jetzt bewerten ]	Download starten (172 KB)

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 10 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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)

Voriger Download   |   Defekten Link melden   |   Nächster Download

Anzeige

Unser Download-Tipp
sevOutBar 4.0 (C#, VB.NET, VB6, VBA)

Moderne vertikale Menüleisten á la Outlook

Erstellen von Outlook ähnlichen Benutzerinterfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m.

Erhältlich als .NET -Komponente oder als ActiveX-Version

 Mehr Details   |    Download (668 KB)   |    Bestellen

Hinweis:
Das Team von vb@rchiv haftet nicht für Schäden, die durch Installation / Ausführen eines hier im Downloadarchiv angebotenen Programms entstehen!