start-dde-server Function

Summary

Creates and starts an instance of a DDE server.

Package

win32

Signature

start-dde-server name => server

Arguments

name⇩

A DDE server class.

Values

server

A server object.

Description

The function start-dde-server creates an instance of a server of the class specified by name which then starts accepting transactions. If successful the function returns the server, otherwise nil is returned.

You need to call start-dde-server in a thread that will process Windows messages. This can either be done by using capi:execute-with-interface to run it in the thread of an application's main window (if there is one) or by running it in a dedicated thread as in the example. DDE callbacks will happen in this thread.

Examples

(mp:process-run-function 
 "DDE Server"
 ()
 #'(lambda ()
     (win32:start-dde-server 'lispworks-dde-server)
     (loop
       (mp:wait-processing-events 
        nil
        :wait-reason "DDE Request Loop"))))

See also

define-dde-server