delphi(kylix)开发wap(wml)程序的配置攻略

delphi(kylix)开发wml程序的配置攻略

delphi(kylix)提供了websnap技术可以用来开发web程序，分析web程序与wap程序的差异在于内容的标签不同，http流中的Content-Type不同。

http的Content-Type为text/html

wap的Content-Type为text/wml

以下例子在linux下的kylix环境中通过,delphi中与此相似.

1、首先下载HTTP协议调试器httpdebug.exe。检查Content-Type的内容。为text/html

2、分析websnap构成，在kylix安装目录下，以kylix3为例，默认安装目录在/usr/local/kylix3下。

在/usr/local/kylix3/source/internet目录下，执行

grep "text/html" * -ri

结果如下：

ApacheApp.pas: r.content_type := 'text/html';
ApacheHTTP.pas: ContentType := 'text/html';
二进制文件 CGIApp.dcu 匹配
CGIApp.pas: 'Content-Type: text/html'#13#10 + { do not localize }
二进制文件 CGIHTTP.dcu 匹配
CGIHTTP.pas: ContentType := 'text/html'; { do not localize }
CGIHTTP.pas: ContentType := 'text/html'; { do not localize }
DBAdaptImg.pas: Response.ContentType := 'text/html'; // for any exceptions that may happen
二进制文件 oxmldom.dcu 匹配
oxmldom.pas: IndyHttp.Request.Accept := 'text/xml, text/html, application/octet-stream'; { Do not localize }
SockHTTP.pas: ContentType := 'text/html'; {do not localize}
SockHTTP.pas: ContentType := 'text/html'; {do not localize}
SockHTTP.pas: 'Content-Type: text/html'#13#10 + //Not resourced
SvrHTTPIndy.pas: ContentType := 'text/html';
SvrHTTPIndy.pas: ContentType := 'text/html';

3、再看websnap模板中引入的头文件与websnap相关，并且文件中含有text/html的文件一共有三个：

CGIApp.pas

CGIHTTP.pas

DBAdaptImg.pas

4、分别将三个文件，复制一份，名字前冠以Wap，并修改unit名称与文件名一致，修改其中的text/html为text/wml即可

(1)cp CGIApp.pas WapCGIApp.pas

vi WapCGIApp.pas

修改文件头部的unit CGIApp为unit WapCGIApp

替换其中的text/html为text/wml

(2)cp CGIHTTP.pas WapCGIHTTP.pas

vi WapCGIHTTP.pas

修改文件头部的unit CGIHTTP为unit WapCGIHTTP

替换其中的text/html为text/wml

(3)cp DBAdaptImg.pas WapDBAdaptImg.pas

vi WapDBAdaptImg.pas

修改文件头部的unit DBAdaptImg为unit WapDBAdaptImg

替换其中的text/html为text/wml

5、编译后，放到/usr/local/kylix3/lib目录中

(1)dcc WapCGIApp.pas

dcc WapCGIHTTP.pas

dcc WapDBAdaptImg.pas

(2)cp Wap*.dcu /usr/local/kylix3

6、创建websnap应用程序后，将

uses中的CGIApp改为WapCGIApp即可。

对于模块中出现的相应CGIHTTP与DBAdaptImg处，也用WapCGIHTTP或WapDBAdaptImg替换即可。

将程序编译。

7、用httpdebug检查结果。

?