这里的类似网页只是用来让程序界面好看一点,用来显示查询出来的结果集~
解决方案 »
- 弱弱的问下: DELPHI7 调试出现断点乱行的问题,如何解决呢,谢谢.
- fastreport4 括号<>and []问题
- 本人刚学DELHPI,大家推荐点入门的好书
- 关于数据连接,和局域网中搜索服务器的问题,急
- 下岗了,郁闷中
- rzCheckTree中,改变checked值回执行什么事件???急!
- 非常奇怪的问题,用restore database恢复数据库,在sqlserver里面数据怎么没有恢复啊!大家帮忙指点一下,谢谢了!
- 想做一个统一数据访问组件,先争求一下建议~~~~~~
- fastreport如何不用preview就能直接打印?
- SQL Explorer的bug
- 我用ADOQuery的insert的方法插入数据,第一可以成功的插入,但第二次却提不有一数据项找不到,是什么原因呀?
- 建议CSDN保留原来的登陆模式,可以在保留登陆信息,以后都不用登陆.
在DELPHI4中Inprise公司进一步加强了对Web程序开发的支持,可以开发出更好更强的系统。以下是开发Web应用程序中的几个常见问题,可以供大家参考。如果没有特别申明,则表示程序运行于 DELPHI 4下。如何从Web Server Application返回一幅图像?
Web Server Application不仅可以生成复杂的页面文档,也可以根据用户请求返回不同的图像。当然有比较简单的方法,根据输入参数不同,〈img src...〉标记也指向不同的URL地址。这里我们不用这个办法,而是利用DLL返回图像。
当然要首先建立一个页面容器(page producer),内容如下:
〈html〉
〈body〉This is a test〈BR〉〈img src=″/scripts/mydll.dll/picture″〉〈/body〉
〈/html〉 接下来我们设定对应于PathInfo的动作事件,返回图像结果,源代码如下:
(注意:单元声明中要包含JPEG单元)procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
Jpg: TJpegImage;
S: TMemoryStream;
begin
Jpg := TJpegImage.Create;
try
Jpg.LoadFromFile(′test′);
S := TMemoryStream.Create;
try
Jpg.SaveToStream(S);
S.Position := 0;
Response.ContentType := ′image/jpeg′;
Response.ContentStream := S; // 必须在流释放前完成
Response. SendResponse;
finally
S.Free;
end;
finally
Jpg.Free;
end;
end; 实际上用这种方法和前面提到的简单做法相比,具有更安全和更灵活的特点。在某些地方灵活使用,以此为基础稍加修改可以产生一般开发工具难以实现的效果。
如何在ISAPI/NSAPI动态连接库(DLL)中使用本地数据库驱动程序(native Access driver)?
这是因为DAO 3.0 或者DAO 3.5是所谓thread-safe(线程安全程序),而一个Web服务器(例如IIS)会随用户请求产生多个线程,同时把ISAPI对应的DLL也列为线程。这时ISAPI就会通过BDE通知DAO,告诉它不符合线程安全规定。 解决的方法有很多,如果你一定要访问Access 95/97库,那么可以通过ODBC访问。ODBC不会经过DAO,而且也是一个线程安全程序。此外还有一些第三方的控件集,通过他们可以直接由BDE访问Access 95/97,效率更高。
用户访问我Web服务器上的ISAPI DLL,可是报告:“Invalid filename"(无效的文件名),然而文件的确存在的。对了,我的数据库在一台Novell 服务器上。这是为什么呢? 你没有设定对应于你IUSR_XXX账户的驱动器路径映射(MAPING)。因为Novell不是采用FAT,所以要手工添加路径映射。当然,可以做成开机登录脚本。请牢记,如果你运行IIS作为Web服务器,而又涉及Novell,无论作为文件服务器或数据库服务器,都要定义好路径映射。 “Invalid configuration parameter for alias {alias_name}"(无效的别名配置),当我设置一个ODBC DSN,并通过它访问ISAPI/NSAPI服务器时就出现这样一个错误。 你如果要为访问的用户(IIS用户)建立一个ODBC别名,那么要注意创建一个SYSTEM DSN(系统DNS),而不要创建“用户DNS”,虽然“用户DNS”是缺省设定。如何取得客户机(访问机器)的名称和IP地址?
实现这个功能用TCP控件来做非常容易。从Internet页面上选取一个TCP控件,然后直接就可以得到你所需要的:
Memo1.Lines.Add(TCP1.LocalHostName);
Memo1.Lines.Add(TCP1.LocalIp); 当然,如果你不希望这样做,还有比较复杂的办法:
uses Winsock;
procedure TForm1.FormCreate(Sender: TObject);
var
wVersionRequested : WORD;
wsaData : TWSAData;
begin
{创建 WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
{得到计算机名称}
GetHostName(@s,128);
p:=GetHostByName(@s);
Memo1.Lines.Add(p^.h_Name); {得到机器IP地址}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Memo1.Lines.Add(p2);
end; procedure TForm1.FormDestroy(Sender: TObject);
begin
{释放 WinSock}
WSACleanup;
end; 这是一个调用了WINSOCK的独立单元,你可以把它直接嵌入到你的程序中去。
在DELPHI 3中为何不能创建真正的多线程DLL?
虽然DELPHI3中的ISAPI DLL向导已经为创建多线程DLL生成了大量代码,可是还是有一个严重的缺陷:没有申明本应用程序是一个多线程的程序。所以需要你添加一句话:
IsMultiThread := TRUE; 把这句话放在DPR程序begin-end块的开始处,使之成为第一句。
如何得知现在是否和Internet连接?
最简单的办法是用一个TCP元件得到自己当前的IP,通过判断IP得知是否连入Internet。例如:
if TCP1.LocalIp = ''0.0.0.0'' then
ShowMessage(''目前没有连入Internet!''); 需要注意的是:因为Internet和Intranet没本质区别,所以一般不能判定是和Internet连接还是仅仅连入Intranet。当然。你也可以再加一个PING元件,去PING一个比较稳定、速度比较快的站点,如果连通则表明已经接入Internet。不过这种办法通用性不好。
如何打印一个Web页面?
可以选用HTML控件的AutoPrint方法。例如:
uses Printers; procedure TForm1.Button1Click(Sender: TObject);
var
OldCur: TCursor;
begin
OldCur := Screen.Cursor;
with Printer do
begin
BeginDoc;
HTML1.AutoPrint(handle);
Title := HTML1.URL;
EndDoc;
end; Screen.Cursor := OldCur;
end; 此外还可以利用其PrintPage方法。不过我推荐你采用AutoPrint,因为这样控制更灵活,可以过滤一些你不希望打印的内容。
可以用IE浏览的,如果需要的话,可以电子邮箱,我发给你。
能给我一份吗? [email protected]
能给我一份么谢谢