src/lib/miniupnpc/miniupnpc.pas

   1 {$DEFINE LIBMINIUPNPC_WINDOZE_STATIC}
   2
   3 {$MODE OBJFPC}
   4 {$PACKRECORDS C}
   5
   6 {$IFDEF WIN32}
   7   {$DEFINE MSWINDOWS}
   8 {$ENDIF}
   9
  10 {$LONGSTRINGS ON}
  11 {$MACRO ON}
  12
  13 {$Z4} // Force four-byte enums
  14
  15 unit miniupnpc;
  16
  17 interface
  18
  19 {$IFDEF MSWINDOWS}
  20   {$IFDEF LIBMINIUPNPC_WINDOZE_STATIC}
  21     {$LINKLIB libminiupnpc.a}
  22     {$LINKLIB libiphlpapi.a}
  23     {$DEFINE MINIUPNPC_IMPL := cdecl; external}
  24   {$ELSE}
  25     {$DEFINE MINIUPNPC_IMPL := cdecl; external 'miniupnpc.dll'}
  26   {$ENDIF}
  27 {$ELSE}
  28   {$DEFINE MINIUPNPC_IMPL := cdecl; external 'miniupnpc'}
  29 {$ENDIF}
  30
  31 const MINIUPNPC_URL_MAXSIZE=128;
  32 Type
  33   PUPNPDev = ^TUPNPDev;
  34   TUPNPDev = record
  35     pNext:PUPNPDev;
  36     descURL:pchar;
  37     st:pchar;
  38         scope_id:word;
  39     buffer:array[0..1] of byte;
  40         end;
  41
  42   PUPNPUrls = ^TUPNPUrls;
  43   TUPNPUrls = record
  44     controlURL:pchar;
  45     ipcondescURL:pchar;
  46     controlURL_CIF:pchar;
  47         controlURL_6FC:pchar;
  48         rootdescURL:pchar;
  49         end;
  50         TUrlStr = array [1..MINIUPNPC_URL_MAXSIZE] of char;
  51    TIGDdatas_service  = record
  52                 controlurl : TUrlStr;
  53                 eventsuburl: TUrlStr;
  54                 scpdurl: TUrlStr;
  55                 servicetype: TUrlStr;
  56                 //char devicetype[MINIUPNPC_URL_MAXSIZE];
  57         end;
  58
  59   PIGDdatas = ^TIGDdatas;
  60   TIGDdatas = record
  61                 cureltname: TUrlStr;
  62                 urlbase: TUrlStr;
  63                 presentationurl : TUrlStr;
  64                 level:integer;
  65                 //int state;
  66                 //"urn:schemas-upnp-org:service:WANCommonInterfaceConfig:1"
  67                 CIF : TIGDdatas_service;
  68                 // "urn:schemas-upnp-org:service:WANIPConnection:1"
  69                 // "urn:schemas-upnp-org:service:WANPPPConnection:1"
  70                 first: TIGDdatas_service;
  71                 //if both WANIPConnection and WANPPPConnection are present
  72                 second: TIGDdatas_service;
  73                 //"urn:schemas-upnp-org:service:WANIPv6FirewallControl:1"
  74                 IPv6FC : TIGDdatas_service;
  75                 // tmp
  76                 tmp: TIGDdatas_service;
  77   end;
  78
  79 (* upnpDiscover()
  80  * discover UPnP devices on the network.
  81  * The discovered devices are returned as a chained list.
  82  * It is up to the caller to free the list with freeUPNPDevlist().
  83  * delay (in millisecond) is the maximum time for waiting any device
  84  * response.
  85  * If available, device list will be obtained from MiniSSDPd.
  86  * Default path for minissdpd socket will be used if minissdpdsock argument
  87  * is NULL.
  88  * If multicastif is not NULL, it will be used instead of the default
  89  * multicast interface for sending SSDP discover packets.
  90  * If sameport is not null, SSDP packets will be sent from the source port
  91  * 1900 (same as destination port) otherwise system assign a source port. *)
  92 function upnpDiscover(
  93       delay:integer;
  94       multicastif:pchar;
  95       minissdpdsock:pchar;
  96       sameport:integer;
  97           IPV6:integer;
  98           error:pinteger):PUPNPDev; MINIUPNPC_IMPL;
  99
 100
 101 (* UPNP_GetValidIGD() :
 102  * return values :
 103  *     0 = NO IGD found
 104  *     1 = A valid connected IGD has been found
 105  *     2 = A valid IGD has been found but it reported as
 106  *         not connected
 107  *     3 = an UPnP device has been found but was not recognized as an IGD
 108  *
 109  * In any non zero return case, the urls and data structures
 110  * passed as parameters are set. Donc forget to call FreeUPNPUrls(urls) to
 111  * free allocated memory.
 112  *)
 113 function UPNP_GetValidIGD(
 114                                 devlist:PUPNPDev;
 115                                 urls:PUPNPUrls;
 116                                 data:PIGDdatas;
 117                                 lanaddr:pchar;
 118                                 lanaddrlen:integer):integer; MINIUPNPC_IMPL;
 119
 120
 121 (* UPNP_GetExternalIPAddress() call the corresponding UPNP method.
 122  * if the third arg is not null the value is copied to it.
 123  * at least 16 bytes must be available
 124  *
 125  * Return values :
 126  * 0 : SUCCESS
 127  * NON ZERO : ERROR Either an UPnP error code or an unknown error.
 128  *
 129  * possible UPnP Errors :
 130  * 402 Invalid Args - See UPnP Device Architecture section on Control.
 131  * 501 Action Failed - See UPnP Device Architecture section on Control. *)
 132 function UPNP_GetExternalIPAddress(
 133                 controlURL:pchar;
 134                 servicetype:pchar;
 135                 extIpAdd:pchar):integer; MINIUPNPC_IMPL;
 136
 137
 138 (* UPNP_AddPortMapping()
 139  * if desc is NULL, it will be defaulted to "libminiupnpc"
 140  * remoteHost is usually NULL because IGD don't support it.
 141  *
 142  * Return values :
 143  * 0 : SUCCESS
 144  * NON ZERO : ERROR. Either an UPnP error code or an unknown error.
 145  *
 146  * List of possible UPnP errors for AddPortMapping :
 147  * errorCode errorDescription (short) - Description (long)
 148  * 402 Invalid Args - See UPnP Device Architecture section on Control.
 149  * 501 Action Failed - See UPnP Device Architecture section on Control.
 150  * 715 WildCardNotPermittedInSrcIP - The source IP address cannot be
 151  *                                   wild-carded
 152  * 716 WildCardNotPermittedInExtPort - The external port cannot be wild-carded
 153  * 718 ConflictInMappingEntry - The port mapping entry specified conflicts
 154  *                     with a mapping assigned previously to another client
 155  * 724 SamePortValuesRequired - Internal and External port values
 156  *                              must be the same
 157  * 725 OnlyPermanentLeasesSupported - The NAT implementation only supports
 158  *                  permanent lease times on port mappings
 159  * 726 RemoteHostOnlySupportsWildcard - RemoteHost must be a wildcard
 160  *                             and cannot be a specific IP address or DNS name
 161  * 727 ExternalPortOnlySupportsWildcard - ExternalPort must be a wildcard and
 162  *                                        cannot be a specific port value *)
 163
 164 function UPNP_AddPortMapping(
 165                                         controlURL:pchar;
 166                                         servicetype:pchar;
 167                                         extPort:pchar;
 168                                         inPort:pchar;
 169                                         inClient:pchar;
 170                                         desc:pchar;
 171                                         proto:pchar;
 172                                         remoteHost:pchar;
 173                                         leaseDuration:pchar):integer; MINIUPNPC_IMPL;
 174
 175 (* UPNP_DeletePortMapping()
 176  * Use same argument values as what was used for AddPortMapping().
 177  * remoteHost is usually NULL because IGD don't support it.
 178  * Return Values :
 179  * 0 : SUCCESS
 180  * NON ZERO : error. Either an UPnP error code or an undefined error.
 181  *
 182  * List of possible UPnP errors for DeletePortMapping :
 183  * 402 Invalid Args - See UPnP Device Architecture section on Control.
 184  * 714 NoSuchEntryInArray - The specified value does not exist in the array *)
 185
 186 function UPNP_DeletePortMapping(
 187                                                                 controlURL:pchar;
 188                                                                 servicetype:pchar;
 189                                                                 extPort:pchar;
 190                                                                 proto:pchar;
 191                                                                 remoteHost:pchar):integer; MINIUPNPC_IMPL;
 192
 193
 194
 195 function UPNP_GetGenericPortMappingEntry(
 196                const controlURL :pchar;
 197                const servicetype:pchar;
 198                                                          index:pchar;
 199                                                          extPort:pchar;
 200                                                          intClient:pchar;
 201                                                          intPort:pchar;
 202                                                          protocol:pchar;
 203                                                          desc:pchar;
 204                                                          enabled:pchar;
 205                                                          rHost:pchar;
 206                                                          duration:pchar):integer; MINIUPNPC_IMPL;
 207
 208 procedure FreeUPNPUrls(urls: PUPNPUrls); MINIUPNPC_IMPL;
 209 procedure freeUPNPDevlist(devl: PUPNPDev); MINIUPNPC_IMPL;
 210
 211 implementation
 212
 213 end.