Omar's Delphi WSApi Page

WSApi is the high performance programming interface of the Website Server. Applications for this API must be implemented as win32 DLLs. You will need Delphi 2.0 to compile this sources.
The compiled DLLs are also provided, in case you don't have the compiler.

Download wsapid.zip (57 k)

The two examples presented here are very simple:

One is the port of the example notfound.dll, provided with Website Pro in C. This gives a custom response to the '404 Not Found' error. As provided, the response includes a file 404.gif, which you should create.
To use this error handler, copy the wserror.dll to the Website Pro directory and set the following registry keys in /HKEY_LOCAL_MACHINE/SOFTWARE/Denny/WebServer/CurrentVersion to:
- ExtErrDll="wserror.dll"
- ExtErrEntry="WSErro"
Restart the server.
The second is a pre-processor. It changes some URLs to an alternating list of files. The definitions are in a file called httpvar.ini (put it in the \Windows directory). It's like this:
```
;====  httpvar.ini (all lowercase please) =====
;Administrative URLs (Change them and keep secret!)
[LIST]
ReloadListURL=/_reloadlist
ShowListURL=/_showlist

;List of variable URLs
[URLs]
1=/_gif.gif
2=/_ist.gif

;Files for '/_gif.gif'
[/_gif.gif]
1=/gif1.gif
2=/gif2.gif
3=/gif3.gif

;Files for '/_ist.gif'
[/_ist.gif]
1=/is1.gif
2=/is2.gif
3=/isgif.gif
...
```
The first client that requests '/_gif.gif' gets '/gif1.gif', the second gets '/gif2.gif' and so on. When finished, the list is reset (i.e. it's circular).
This allows you to build a site with very dynamic content. The gif on this page uses this pre-processor. If you reload the page, the image will change.
Two special administrative URLs are defined:
- ReloadListURL refreshes the list, reloading from httpvar.ini. Use it to change the list without restarting the server.
- ShowListURL shows the current list. Click here to see the list in this server.
Both can be accessed with a browser. In the ini file, you can change the URLs to other values and keep them secret, so that other people don't have access to them.
Note that the alternating URLs and administrative URLs must start with '/_' or the pre-processor will not check them. I did that to quickly identify which URLs must be checked.
The list of alternating URLs is mantained in a sorted TStringList. Searching is done with the Find() method, which does a binary search and is pretty fast.
To use this pre-processor, copy the wsaprep.dll to the Website Pro directory, create your httpvar.ini and set the following registry keys in /HKEY_LOCAL_MACHINE/SOFTWARE/Denny/WebServer/CurrentVersion to:
- ExtPreDll="wsaprep.dll"
- ExtPreEntry="WSAFiltro"

Restart the server.

WSAPI.H

The file wsapih.pas contains the structure definitions and function prototypes translated from wsapi.h. I did not translate all functions yet, but it is simple to do so, if you need any other function.
One thing I did not manage to do is call bind_wsapi() at DLL_PROCESS_ATTACH time. Delphi defines a variable DLLProc, which is a pointer to a custom DLL handler. DLL_PROCESS_ATTACH however was already called when you have access to this. bind_wsapi() is an optional call anyway. It's only for version control.

Note: Don't use the html documentation provided with Website to get function prototypes and structure definitions. It's not updated. Use the wsapi.h instead.

This is Freeware. No support. No warranty of any kind. Comments, bug reports and improvements wellcome. If you are really satisfied with this product, then send $10 to one of those third world charities you see on TV.

e-mail