
	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

DELPHI与INTERNET2

作者：闵涛文章来源：闵涛的学习笔记点击数：2451 更新时间：2009/4/23 18:42:50

[S]);

StrLen := Length(ResStr);

ECB.WriteClient(ECB.ConnID

Pointer(ResStr)

StrLen

0);

Result := HSE_STATUS_SUCCESS;

end;

exports

GetExtensionVersion

HttpExtensionProc;

begin

end.

一旦您从窗体中获得了由 lpbData 变量传来的信息，您就能分析这些信息或者把它们返回给用户。比如说，您可以从上面例子中把数字23抽出来，做平方后返回用户。通过这样做可以使您从用户中获得信息，在这里是数字，对数字进行一些数学运算，最后把结果返回给用户。这意味着您可以在电波中创建互动的网页，这可是现在因特网编程中最流行的哦！

以下是一个通过网络提交数字平方给浏览器的完整的程序代码：

library Isapi3;

{ This code shows how to take input from the user via a browser

parse that information

and then return an answer to the user. In particular

the user submits a number

this code squares it

and then sends the result back to user. Here is the form from the browser that submits the information for parsing:

}

uses

Windows

SysUtils

HTTPExt

StrBox;

function GetExtensionVersion( var Ver: THSE_VERSION_INFO ):

BOOL; stdcall;

begin

Ver.dwExtensionVersion := $00010000; // version 1.0 support

Ver.lpszExtensionDesc := ''''ISAPI3.DLL'''';

Result := True;

end;

// Parse lpbData and retrieve the number the user passed to us.

function ParseData(S: string): Integer;

begin

S := StripLastToken(S

''''&'''');

S := StripFirstToken(S

''''='''');

Result := StrToInt(S);

end;

function SetUpResString: string;

begin

Result := '''''''' +

'''''''' +

''''

Test server results

'''' +

''''Answer = %d '''' +

'''''''';

end;

function HttpExtensionProc( var ECB: TEXTENSION_CONTROL_BLOCK ):

DWORD; stdcall;

var

ResStr: string;

StrLen: Integer;

S1: string;

Num: Integer;

begin

ECB.lpszLogData := ''''Delphi DLL Log'''';

ECB.dwHTTPStatusCode := 200;

ResStr := SetUpResString;

S := PChar(ECB.lpbData);

Num := ParseData(S);

Num := Sqr(Num);

ResStr := Format(ResStr

[Num]);

StrLen := Length(ResStr);

ECB.WriteClient(ECB.ConnID

Pointer(ResStr)

StrLen

0);

Result := HSE_STATUS_SUCCESS;

end;

exports

GetExtensionVersion

HttpExtensionProc;

begin

end.

这段代码从按下确认按钮的用户那里接受下面的字符串，用户要求平方后的数字：

GetSquare=5&GetSquare=Submit

假设这样输入，这段代码会通过因特网返回用户下面的字符串：

Answer = 25

一句话，用户输入数字5，你返回用户数字25。如果用户提交数字10，那么您返回数字100。这看起来微不足道，但在这里重要的是因特网上发生的行为[注：指互动网页（译

者）]

分析用户传来的函数像这样：

// Parse lpbData and retrieve the number the user passed to us.

function ParseData(S: string): Integer;

begin

S := StripLastToken(S

''''&'''');

S := StripFirstToken(S

''''='''');

Result := StrToInt(S);

end;

这两个语句在单元中，在本文开头提到过，也包含在我的站点上。［注:这个文件在网络上几乎到处可见

您也可以向译者索取(译者)］[ 在本篇文章中

关于ISAPI我只想谈这么多了。这些内容对于启发您利用这项优越的技术并获得乐趣来说应该是够用的了。接下来我要谈一下 GetServerVariable 、 ReadClient 这两个语句，在这方面我只进行了极其有限的试验。在本文中，我附加了HTTPEXT.PAS 文件，因为除了这分关键文档，在其他地方您不会找到它。

GetServerVariable 和 ReadClient 语句

正如您的CGI应用程序中的请求信息一样，您可以使用语句来从服务器上获得信息。下面是呼叫这个语句的例子：

Len := HseMaxExtDllNameLen;

SetLength(S1

Len);

Dec(Len);

ECB.GetServerVariable(ECB.ConnID

''''CONTENT_LENGTH''''

PChar(S1)

Len);

首先，这段代码设定了保留从服务器上取得的信息的缓冲区的长度。接着它呼叫服务器并发出请求，在本例中，它要求获得服务器传来的信息的"CONTENT_LENGTH"。

微软公司的文献告诉我们，您可以通过 GetServerVariable 的第二个参数来传递跟着的字符串：