Unit xIsapi |
*****************************************************} { } { xTool - Component Collection } { } { Copyright (c) 1995 Stefan Böther } { stefc@fabula.com } {*******************************************************} Smart object for accessing ISAPI, to write the HTML result you can use the standard output device with write & writeln functions. Please look also for our xTools-Nails function toolkit or other components from us. You'll find more information at http://www.fabula.com Any comments and suggestions are welcome; please send to: stefc@fabula.com. Sample library : library MyDll; uses Windows,SysUtils,Classes,ISAPI,xIsapi; function GetExtensionVersion( var Ver: THSE_VERSION_INFO ): Bool; stdcall; export; begin Result:=True; try Ver.dwExtensionVersion := MAKELONG ( HSE_VERSION_MINOR, HSE_VERSION_MAJOR ); Ver.lpszExtensionDesc := 'HEW Telefonbuch ISAPI Extension DLL'; except Result := False ; end; end; function HttpExtensionProc( var ECB: TEXTENSION_CONTROL_BLOCK ): DWORD; stdcall; export; begin try with TIsapi.Create( ECB ) do try writeln('
Classes |
TIsapi -
Functions |
Types |
Constants |
Variables |
Functions |
Types |
Constants |
Variables |