Using Win32 functions in Visual FoxPro Image Gallery
Code examples:
Peer-to-peer LAN messenger built with Mailslot API functions
Smart Card Database Query Functions
Storing the environment strings in cursor
Creating hash values for the list of names
Enumerating Performance Counters
How to create a service object
How to display a dialog box with which the user can add a data source (DSN)
How to download a file from the FTP server using FtpGetFile
How to find the application associated with a file name
How to ping a remote site using IP Helper API calls
Obtaining list of tables stored in an ODBC Data Source
Using Beep and Sleep functions to make the old tin buzz sing (WinNT only?)
Enumerating network sessions established on a server
How to adjust monitor brightness (Vista, monitor with DDC support)
How to delete all print jobs for a printer
How to retrieve network parameters for the local computer (including Host name, Domain name, and DNS Server)
Retrieving list of supported paper names (for example, Letter or Legal) for a given printer
Using an Event Object. Part A: running an application that creates an Event object
Using the GradientFill function
Adding supplementary data to AVI files
Changing file attributes
Converting command-line string to a set of Unicode argument strings
Creating a directory on the FTP
Enumerating forms supported by a specified printer
Peer-to-peer LAN messenger built with Mailslot API functions

User rating: 0/10 (0 votes)
Rate this code sample:
  • ~
More code examples    Listed functions    Add comment     W32 Constants      Translate this page Printer friendly version of this code sample
click to open
Before you begin:
Run this example simultaneously on several computers on a network. All users will be able to exchange plain text messages.

A light-weight solution with no central server, no file sharing, and no access violation, but with automatic user detection.

Note that the communication may require ports 137 to 139 opened on each side. No further configuration is required except the setting a name for the mailslot. Same name have to be used by all participating applications.

A timer control is set to check for inbound messages.

See also:
  • Using mailslots to send messages on the network
  • Using the NetMessageBufferSend to send messages on the network
  • How to create non-blocking Winsock server
  • A client for testing non-blocking Winsock server
  • Using named pipes to pass data between processes
  • Using WM_COPYDATA for interprocess communication
      Members area. Log in to view this example.
      User name:
      Forgot your password?
      Sign up for
    the Membership

    User rating: 0/10 (0 votes)
    Rate this code sample:
    • ~
    8758 bytes  
    Created: 2003-06-06 14:46:00  
    Modified: 2011-12-10 09:20:22  
    Visits in 7 days: 79  
    Listed functions:
    Printer friendly API declarations
    My comment:
    Mailslot name -- in this sample code "foxapp" -- practically keeps all users together. Any other valid file name is appropriate, except some reserved names like "Messengr", "BROWSER" etc.

    A mailslot with name \\.\mailslot\foxapp is created on each computer. That turns such a computer into server receiving messages sent to this mailslot from other computers.

    A computer name is obtained through SYS(0) function.

    * * *
    On start the Tmsg instance creates a mailslot with a name "foxapp", same name for all users in this group should be used: \\.\maislot\foxapp.

    Then Tmsg broadcasts ONLINE and DETECT messages to all available network computers, using wildcard character * as a destination mailslot name: \\*\mailslot\foxapp.

    On receiving DETECT message any existing Tmsg instance automatically sends ONLINE message back to the sender. That is how the new object gets know who else is online.

    On termination the Tmsg instance broadcasts OFFLINE message to all users -- again the wildcard character is used -- to let everyone know that this user is disconnected.

    Maislots provide no confirmation of receipt. For that reason the Tmsg object on receiving a message automatically sends a confirmation back to the sender.

    For sending a message to another computer -- say with DESK3011 name -- the Tmsg object creates file handle using mailslot name \\DESK3011\Maislot\foxapp, and writes message data to this handle using WriteFile function.

    A message has a simple format:
  • sender - 24 bytes -- local computer name
  • confirmation flag - 1 byte
  • system message flag - 1 byte
  • message body - the rest of the message

    The GetMessages method is invoked on each Timer event checking for incoming messages.
  • Word Index links for this example:
    Translate this page:
      Spanish    Portuguese    German    French    Italian offers instant, free translations of text or web pages.
    User Contributed Notes:
    How to open port 137 to 139 | 2010-06-20 22:41:42
    Please tell me how to open communication port 137 to 139
    Thank You

    Copyright 2001-2018 News2News, Inc. Before reproducing or distributing any data from this site please ask for an approval from its owner. Unless otherwise specified, this page is for your personal and non-commercial use. The information on this page is presented AS IS, meaning that you may use it at your own risk. Microsoft Visual FoxPro and Windows are trade marks of Microsoft Corp. All other trademarks are the property of their respective owners. 

    Privacy policy
    Credits: PHP (4.4.9), an HTML-embedded scripting language, MySQL (5.6.39), the Open Source standard SQL database, AceHTML Freeware Version 4, freeware HTML Editor of choice.   Hosted by Korax Online Inc.
    Last Topics Visited (
    20 sec.Function: 'bind'
    Function group: 'Windows Sockets 2 (Winsock)'
    40 sec.Function: 'LockWorkStation'
    57 sec.Articles
    1.32 min.Function: 'ToAscii'
    Function group: 'Keyboard Input'
    1.6 min.Function: 'ImageList_Remove'
    Function group: 'Windows Controls'
    1.92 min.Function: 'AVIFileRelease'
    Function group: 'Windows Multimedia'
    2.17 min.Example: 'GDI+: creating a gradient'
    2.5 min.Examples
    2.83 min.Function: 'SQLGetEnvAttr'
    Function group: 'ODBC API'
    3.13 min.Login
    Advertise here!