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.

Example

(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