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('Test ISAPI'); writeln(''); writeln('Hello World'); writeln(''); finally Free; end; Result := HSE_STATUS_SUCCESS; except Result := HSE_STATUS_ERROR; end; end; exports GetExtensionVersion, HttpExtensionProc; begin end. Sample HTML : Test

Classes

TIsapi -

Functions

AssignHtml -

Types

Constants

Variables

IsapiServer


Functions


procedure AssignHtml(var F: TextFile);


Types


Constants


Variables

IsapiServer : TIsapi