1 files changed, 58 insertions, 72 deletions
diff --git a/include/delphi/m_protomod.inc b/include/delphi/m_protomod.inc
index aab9706e37..416d5758e5 100644
--- a/include/delphi/m_protomod.inc
+++ b/include/delphi/m_protomod.inc
@@ -27,78 +27,64 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
      {$INCLUDE m_protocols.inc}
  {$ENDIF}
 
-const
-  {
-    wParam : 0
-    lParam : Pointer to a initalised TPROTOCOLDESCRIPTOR structure
-    Affect : Register a protocol module, see notes
-    Returns: 0 on success, [non zero] on failure
-    Notes  : This service MUST be called from your module's Load() function
-             TPROTOCOLDESCRIPTOR.type can be a value other than PROTOTYPE_*
-             which are used to provide a more precise positioning information
-             for the contact protocol lists.
-             -
-             Relative values to the constants can be given, but this MUST NOT
-             be done for PROTOTYPE_PROTOCOL.
-  }
-  MS_PROTO_REGISTERMODULE:PAnsiChar = 'Proto/RegisterModule';
-
-  {
-    wParam : TMCONTACT
-    lParam : protocol_name_string
-    Affect : Add the given protocol module to the chain for a contact, see notes
-    Returns: 0 success, [non zero] on failure
-    Notes  : The module is added to the correct positioning according to it's
-             registered type.
-  }
-  MS_PROTO_ADDTOCONTACT:PAnsiChar = 'Proto/AddToContact';
-
-  {
-    wParam : TMCONTACT
-    lParam : protocol_name_string
-    Affect : Remove the given protocol name from the chain for the given contact
-    Returns: 0 on success, [non zero] on failure
-  }
-  MS_PROTO_REMOVEFROMCONTACT:PAnsiChar = 'Proto/RemoveFromContact';
-
- { see m_globaldefs.pas for CreateProtoServiceFunction }
-
-  {
-    wParam : wParam [arg]
-    lParam : lParam [arg]
-    Affect : Call the next service in the chain for the send operation, see notes
-    Return : Return value should be returned by CallService(MS_PROTO_CHAINSEND,wParam,lParam)
-    Notes  : wParam MUST remain untouched, lParam is a pointer to a CSSDATA structure
-             and can be modified or copid if needed.
-             wParam and lParam should be the values passed to your service,
-             typically your service should return ASAP.
-  }
-  MS_PROTO_CHAINSEND:PAnsiChar = 'Proto/ChainSend';
-
-  {
-    wParam : wParam [arg]
-    lParam : lParam [arg]
-    Affect : Call the next service in the chain in this receive operation, see notes
-    Return : Return value should be returned by CallService(MS_PROTO_CHAINRECV,wParam,lParam)
-    Notes  : wParam MUST remain untouched, lParam is a pointer to a CSSDATA structure
-             and can be modified or copied if needed.
-             wParam and lParam should be the values passed to your service,
-             typically your service should return ASAP.
-             -
-             MS_PROTO_CHAINRECV is thread safe since 0.1.2.0 -- calls
-             are translated to the main thread and passed from there.
-  }
-  MS_PROTO_CHAINRECV:PAnsiChar = 'Proto/ChainRecv';
-
-  {
-    wParam : 0
-    lParam : Pointer to an initalised ACKDATA
-    Affect : Broadcast a ME_PROTO_ACK event, see notes
-    Returns: The return value of the NotifyEventHooks() call
-    Notes  : ME_PROTO_ACK is completely thread safe since 01.2.0
-             see notes in core/modules.h under NotifyEventHooks()
-  }
-  MS_PROTO_BROADCASTACK:PAnsiChar = 'Proto/BroadcastAck';
+{
+  Affect : Register a protocol module, see notes
+  Returns: 0 on success, [non zero] on failure
+  Notes  : This service MUST be called from your module's Load() function
+           TPROTOCOLDESCRIPTOR.type can be a value other than PROTOTYPE_*
+           which are used to provide a more precise positioning information
+           for the contact protocol lists.
+           -
+           Relative values to the constants can be given, but this MUST NOT
+           be done for PROTOTYPE_PROTOCOL.
+}
+
+function Proto_RegisterModule(descr:pPROTOCOLDESCRIPTOR) : int; stdcall;
+                 external AppDLL name 'Proto_RegisterModule';
+
+{
+  Affect : Add the given protocol module to the chain for a contact, see notes
+  Returns: 0 success, [non zero] on failure
+  Notes  : The module is added to the correct positioning according to it's
+           registered type.
+}
+
+function Proto_AddToContact(hContact:TMCONTACT; proto:PAnsiChar) : int; stdcall;
+                 external AppDLL name 'Proto_AddToContact';
+
+{
+  Affect : Remove the given protocol name from the chain for the given contact
+  Returns: 0 on success, [non zero] on failure
+}
+
+function Proto_RemoveFromContact(hContact:TMCONTACT; proto:PAnsiChar) : int; stdcall;
+                 external AppDLL name 'Proto_RemoveFromContact';
+
+{
+  Affect : Call the next service in the chain for the send operation, see notes
+  Return : Return value should be returned by CallService(MS_PROTO_CHAINSEND,wParam,lParam)
+  Notes  : wParam MUST remain untouched, lParam is a pointer to a CSSDATA structure
+           and can be modified or copid if needed.
+           wParam and lParam should be the values passed to your service,
+           typically your service should return ASAP.
+}
+
+function Proto_ChainSend(order:int; ccs:pCCSDATA) : INT_PTR; stdcall;
+                 external AppDLL name 'Proto_ChainSend';
+
+{
+  Affect : Call the next service in the chain in this receive operation, see notes
+  Return : Return value should be returned by CallService(MS_PROTO_CHAINRECV,wParam,lParam)
+  Notes  : wParam MUST remain untouched, lParam is a pointer to a CSSDATA structure
+           and can be modified or copied if needed.
+           wParam and lParam should be the values passed to your service,
+           typically your service should return ASAP.
+           -
+           MS_PROTO_CHAINRECV is thread safe since 0.1.2.0 -- calls
+           are translated to the main thread and passed from there.
+}
 
+function Proto_ChainRecv(order:int; ccs:pCCSDATA) : INT_PTR; stdcall;
+                 external AppDLL name 'Proto_ChainRecv';
 
 {$ENDIF}