LAN User Messaging Service

[RiazKhan]

Dear All,

Does anyone have a working sample of text messaging users currently using a multi user application over a local network ? Users need to message other users over a LAN.

Any suggestions.....Thanks

[MarcoBoschi]

How it should work?
Such as post it
http://downloadcentral.no/upload/screenshot3132-0.jpg

? I did one for multple users.
Such as an email program?
Telegram? Whatsapp?

[RiazKhan]

Hi Marco..

Perhaps, like whatsapp..

The system should work on hot key within the multiuser application.

Should list the active logged in users.

Select a user...and start a conversation

No need to save the conv

A very simple service..just type n send...

Thnx



Sent from my GT-N7105T using Tapatalk

[TimStone]

I built a messaging service into my application several years ago. However, it does not locate who is signed on, nor does it do alerts.

Users are placed in one file. When sending a message, the To box is a dropdown, so they select the users. I did this because some messages can then be sent to people who are not signed on, but they can get it when they return to their computer.

Using a Memo edit, messages are created and stored in a database on the server.

When someone is at their computer they can then check for their messages.

System level alerts would be a nice capability. I'll be looking at that in the coming weeks.

[RiazKhan]

Yeh..thnx Tim,
Good idea..would be nice to have system alerts plus listing of currently logged on users..There must be a library for this routine. Im searching.

[TimStone]

It should be a handle into the Windows notification system. Probably pretty available in Win 10 with it's notification icon on the task bar.

[Antonio Linares]

https://code.msdn.microsoft.com/windowsdesktop/sending-toast-notifications-71e230a2

[Antonio Linares]

https://code.msdn.microsoft.com/Sending-toast-notifications-71e230a2/sourcecode?fileId=51046&pathId=1859297009

[Antonio Linares]

Not sure if we can use it from C language unless we find a C example. I only found C++ examples

Another choice is to implement it in a cpp file but not sure if it will work with our used C compilers

[Silvio.Falconi]

Many year ago I remember was a CHAT class but it not run ok because the twebserv notwas ok
https://fivewin-contributions.googlecod ... HATTER.ZIP

[RiazKhan]

Thnx Silvio,
Will chk it out. Many many years back I was using netlib library for the same purpose..worked beautifully. Will post a few screen shots, later.
Regards

[Silvio.Falconi]

RiazKhan,
CAN YOU PUBBLISH A TEST ?

[ukoenig]

Any new infos about a solution ( working sample )
I would like to send a message to the station
that belongs to a network FLOCK - error
working on the same DBF.

I created a sample testing network - functions with messages and xBrowse copy functions using my network-toolbox.

A test trying to PACK a DBF opened on another workstation as well
is showing a error-message.
As well I would like to show inside the message a list of all users working on the same DBF in case of any network - error ( ZAP, PACK ...)



regards
Uwe

[James Bott]

Uwe,

You really shouldn't be doing zap, or pack except when you have exclusive use of the app. These should only be done by an admin when nobody else is using the app.

Better yet is to avoid these kinds of operations.

If you are using database objects, then my TData class has an optional TDataReuse class which reuses deleted records so you never have to do a pack. Or, you could try writing one yourself.

Either way, if you go one of the above routes, then you don't need messaging.

[Otto]

>Does anyone have a working sample of text messaging users currently using a multi user application over a local network ? Users need to message other users over a LAN.
Hello,
I use following function.
Best regards
Otto

Code: Select all  Expand view  RUN

function Benachrichtigung()
   *-----------------------------------------------
   local cRelauFle, hFile

   SysRefresh()
   *---------
   cRelauFle   := cFilePath( GetModuleFileName( GetInstance() ))+'\Benachrichtigung.Bat'
   hFile       := FCreate( cRelauFle, 0 )       // 0 Normal/Default,Read/Write
   if hFile >= 0
   
      FWrite( hFile, "msg " + ALLTRIM( users->user ) +  " " + ALLTRIM( users->pfad ) + ;
      " - Es gibt ein neues Update. Fuehren Sie bitte das Update aus.  " +CRLF )
      FWrite( hFile, "exit" + CRLF )
      FClose( hFile )
      SysRefresh()
      WAITRUN( cRelauFle, 0 )                   // 0 not show Cmd.exe Window, 1 yes

   endif
   *-----------------------------------------------
return NIL

//----------------------------------------------------------------------------//