DELPHI AND THE INTERNET

作者: 来源:网络文章时间:2005-12-14 17:23:47

DELPHI AND THE INTERNET(6) var
ResStr: string;
StrLen: Integer;
begin
ECB.lpszLogData := 'Delphi DLL Log';
ECB.dwHTTPStatusCode := 200;
ResStr := '<HTML><TITLE>Test server result</TITLE>' +
'<H1>Test server results</H1>' +
'<BODY>Hello from ISAPI<BR></BODY>' +
'</HTML>';

ResStr := Format(
'HTTP/1.0 200 OK'#13#10+
'Content-Type: text/html'#13#10+
'Content-Length: %d'#13#10+
'Content:'#13#10#13#10'%s', [Length(ResStr), ResStr]);

StrLen := Length(ResStr);
ECB.WriteClient(ECB.ConnID, Pointer(ResStr), StrLen, 0);
Result := HSE_STATUS_SUCCESS;
end;

如果您在浏览其中向这个DLL发出请求，那么您会得到一页这样的回应：

Test Server Results

Hello from ISAPI

1.DELPHI AND THE INTERNET(1)
2.DELPHI AND THE INTERNET(2)
3.DELPHI AND THE INTERNET(3)
4.DELPHI AND THE INTERNET(4)
5.DELPHI AND THE INTERNET(5)
6.DELPHI AND THE INTERNET(6)

共6页 9 7 [1] [2] [3] [4] [5] [6] 8 :>

DELPHI AND THE INTERNET 相关文章：

DELPHI AND THE INTERNET 相关软件：

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
转载请注明来源：http://www.xgdown.com