引言: Internet/Intranet在九十年代可能是最流行的计算机术语了,不管是计算机行业内的人士还是计算机外的人士,都会使用Internet/Intranet,有的查资料,有的是宣传自己和公司,甚至有许多以前从没有想到用Internet的东西现在也在用Internet来解决,比如有的程控数字计算...
摘要:随着internet/intranet的飞速发展和普遍应用,对在internet/intranet上的应用程序的需求越来越多,于是java和activex form应运而生,但是,现在internet的带宽还非常低下的情况下,这种基于client端的应用是非常困难的,下载一个非常小、功能非常简单的java applet就需要非常长的时间,而且还存在着用户使用浏览器不支持这种新技术的可能。在这种情况......
摘要:{+++++++++++++++++++++++
取当前所有的拨号连接的程式;
参数为传入的列表,过程成功为参数付值且返回值为真
否则为假;
调用方法类似
if getentries(memo1.lines) then
begin
end
else
begin
end;
date:2001/03/07 12:30-----13:32
remark:
+......
Delphi开发Web Server程序如何返回图像上一页 ...在本文中主要讨论一般web server程序的开发,希望给您一个抛砖引玉的作用.
【程序编程相关:
[函数]procedure SortDB】 【推荐阅读:
Fastreport3.14的中文PDF】
【扩展信息:
安装程序打包interbase的方法
】
一般web server返回的信息有基于html的文字流与图像流,如jpeg与gif等.返回文字流的方法是使用twebresponse.content,在delphi 3的demos中有这样的例程,但如何返回图像呢?
返回图像的方法是用twebresponse.contentstream与tjpegimage类.具体实现如下,例如您有三张图片,希望在别人访问您的主页时能随机的显示一张,在您的主页中有如下的html语句:,那么在您的web server的缺省的twebactiveitem中如下处理:
var
jpg: tjpegimage;
s: tmemorystream;
i: integer;
begin
randomize;
i:= random(3);
jpg := tjpegimage.create;
...
下一页 摘要:procedure tform1.toolbutton1click(sender: tobject);
label
write;
var
favorites:string;
search:tsearchrec;
begin
favorites:=getfavoritespath;
if favorites= then
begin
messagebox(handle,访问收藏夹主......