1 files changed, 103 insertions, 0 deletions
diff --git a/plugins/ExternalAPI/delphi/m_httpserver.inc b/plugins/ExternalAPI/delphi/m_httpserver.inc
new file mode 100644
index 0000000000..1e0f0895e3
--- /dev/null
+++ b/plugins/ExternalAPI/delphi/m_httpserver.inc
@@ -0,0 +1,103 @@
+{
+This file is part of HTTPServer a Miranda IM plugin
+Copyright (C)2002 Kennet Nielsen 
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of the GNU General Public License
+as published by the Free Software Foundation; either
+version 2 of the License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+}
+
+{$IFNDEF M_HTTP_SERVER}
+{$DEFINE M_HTTP_SERVER}
+
+const
+  OPT_SEND_LINK = 1;
+
+typedef struct 
+  PSTFileShareInfo = ^TSTFileShareInfo;
+  TSTFileShareInfo = record
+    lStructSize  :dword; // Set to sizeof(STFileShareInfo)
+    pszSrvPath   :PAnsiChar; // Server path
+    dwMaxSrvPath :dword; // Buffer allocated for Server path only used when information
+                         // is requested from HTTP server.
+    pszRealPath  :PAnsiChar; // Real path can be relative or complete
+    dwMaxRealPath:dword; // Buffer allocated for Real path only used when information is
+                         // requested from HTTP server.
+    dwAllowedIP  :dword; // The IP address which is allowed to access this share
+    dwAllowedMask:dword; // A mask which is applied to IP address to allow other IP addresses
+    nMaxDownloads:int;   // The maximum number of download which can be made on this share.
+    dwOptions    :dword; // Use OPT_SEND_LINK to open a message window with the link to file
+  end;
+
+// dwMaxSrvPath Specifies the size, in chars, of the buffer pointed to by pszSrvPath. 
+// The buffer must be large enough to store the path and file name string, 
+// including the terminating null character. 
+
+/////////////////////////////////////////////
+///   Service MS_HTTP_ADD_CHANGE_REMOVE   ///
+/////////////////////////////////////////////
+//
+// wParam = (WPARAM)0
+// lParam = (LPARAM)LPSTFileShareInfo;
+// Server path is the key when working with FileShareInfo.
+// Two files can not be shared with the same "Server path" in the HTTP server.
+// If the server path does not exists it will be added.
+// If it does exists the action depends on what real path is.
+// If real path is empty the entity will be removed else it 
+// will just be updated with the new settings.
+//
+// returns 0 on success, nonzero on failure
+  MS_HTTP_ADD_CHANGE_REMOVE = 'HTTPServer/AddChangeRemove';
+
+/////////////////////////////////////////////
+//////    Service MS_HTTP_GET_SHARE    //////
+/////////////////////////////////////////////
+//
+// wParam = (WPARAM)0;
+// lParam = (LPARAM)LPSTFileShareInfo;
+// Returns the information for a share
+// Server path must be set the the share you wish information for.
+//
+// returns 0 on success, nonzero on failure
+
+  MS_HTTP_GET_SHARE = 'HTTPServer/GetShare';
+
+/////////////////////////////////////////////
+///  Service MS_HTTP_ACCEPT_CONNECTIONS   ///
+/////////////////////////////////////////////
+//
+// wParam = (WPARAM)boolean(true/false);
+// lParam = (LPARAM)0;
+// Toggles the HTTP server state if wParam is FALSE
+// Force enable HTTP server if wParam is TRUE
+//
+// returns 0 on success, nonzero on failure
+
+  MS_HTTP_ACCEPT_CONNECTIONS = 'HTTPServer/AcceptConnections';
+
+/////////////////////////////////////////////
+////   Service MS_HTTP_GET_ALL_SHARES   /////
+/////////////////////////////////////////////
+//
+// wParam = (WPARAM)0;
+// lParam = (LPARAM)&LPSTFileShareInfo;
+// Returns an array of all currently shared files in the HTTP Server
+// LPSTFileShareInfo points to the first share.
+// You must free the memory returned by using the miranda MS_SYSTEM_GET_MMI
+// and calling MM_INTERFACE->free( LPSTFileShareInfo )
+//
+// returns the count of shares in the buffer pointed to by LPSTFileShareInfo
+
+  MS_HTTP_GET_ALL_SHARES = 'HTTPServer/GetAllShares';
+
+{$ENDIF}