谁用delphi 5 的isapi 做过处理(增加,删除)图片字段 和 备注 字段的webserver ?(100分)

  • 主题发起人 主题发起人 IUPRG
  • 开始时间 开始时间
I

IUPRG

Unregistered / Unconfirmed
GUEST, unregistred user!
谁用delphi 5 的isapi 做过处理(增加,删除)图片字段
和 备注 字段的webserver ?
本人曾试着调试 delphi 6 的websnap 但是在运行后点 start 后 浏览器 显示 内部错误
(就像没有找到网页) 随后就 改用delphi5 的isapi,做了5 个 常用的数据库模块后.现在
遇到一个包含 图片 和 备注 型字段的数据库,惶恐中,因为 所剩的时间不多亦.
盼助! 分可加.
 
delphi6的websnap可以实现啊。开发时你可以用web debug application来调试,就能明白
出错的地方。
 
是啊,delphi6 的错误如上述,走不下去啊
 
我已经解决了这个问题,各位不用帮忙了,谢谢
 
能告诉我你在Delphi5的ISAPI中怎么解决图片上传的吗?

我是写了一些类和对象才让Delphi5的ISAPI支持文件上传的,
 
LiChaoHui:
呵呵,我那仅仅是将图片(jpeg)加载到了数据库中的blob字段而已,一两行代码
,没什么推崇的,:)
并非上传,上传肯定复杂的,改日你将它做一个控件出来,我帮你测试,呵呵
 
但是在B/S模式中,修改图片,实际上就是文件上传,
而普通的WebServer Application并不支持,
Websnap倒是支持的

我是做了一个这样的东西,仅仅是单元文件,
主要是看不过去,某些Asp页面中的上传功能
占用内存和CPU非常厉害,我是解决了这些问题的,

很想知道你的B/S模式是怎么实现修改图片的
 
TO:LiChaoHui
我是利用ISAPI 里面的ACTION 和 内存流来处理的,这是我的ISAPI代码,不知你是如何实现的
...
...
jpeg_.loadfromfile(request.contentFields.values['T_zp']);
S := TMemoryStream.Create;

Jpeg_.SaveToStream(S);
S.Position := 0;
...
...
query1.SQL.add(lc_upd_sql);
query1.ParamByName('ft_image').LoadFromStream(s,ftgraphic);
//LoadFromFile(Ft_zp,ftGraphic);
query1.ExecSQL;
...
...
 
哈哈,明白了,你仅仅是传递了一个文件名而已,
并没有传递文件的所有数据,
我把我的类改进后,给你发一份,
就可以实现文件内容的上传了
 
不对,不对,我不是传递文件名啊,老兄,通过内存流将图片全部存入数据库了啊
为此,还写了getimage的函数又读出来,在网页上显示哩!:)

恭候你的佳作iuprg@163.net
 
你用的是LoadFromFile,图像数据是从文件中来的,
所以你怎么上传图片呀,我就不信你用WebServer Application
就能够完成这些,
显示是很容易,我说的是上传
 
LiChaoHui,服了你了,今日我调试我这个破程序才发现,我那样写的程序只能加载服务器端的
图片。。。你说的是对的!

不过,我的确想知道你是如何实现的,给你全部分,呵呵,不吝赐教不吝赐教
 
实际上就是文件上传,
给你一个位置,是我的文件上传对象单元,
http://groups.yahoo.com/group/virtualweb/files
你自己下载了,然后在你需要上传的单元引用就可以了
如果需要使用的例子程序,我也发给你,留下你的EMail
 
我已载了,谢谢你啊,不过还的烦劳你发个上传jpeg的例子 以便抛转引玉 (我不是玉)

my email: iuprg@163.net or drs163@163.com
你写的不错啊,再加上限制功能就可以发布为 控件 收 $ 了:)
 
这两天太忙,不过我会尽快写一个例子程序
实际上Websnap本身已经支持上传,但 WebServer Application 却不能使用这项功能
所以我写了一个文件上传的对象,主要参照了别人的一些无组件Asp上传对象
可能会有用,但也没有到可以卖钱的地步

为了使WebServer Application 支持会话(session)功能(有了此功能,和Asp就不相上下了),
我写了一个会话管理的单元,不过还没有完成,等有空了再写吧
 
我写了一个简单的示例(其实并不简单,费了我好长时间的),
在Win2000Pro的IIS上调试通过
从下面位置下载
http://groups.yahoo.com/group/virtualweb/
 
能发一个给我吗?
ycc0010@pub.yc.jsinfo.net
 
到这里下载吧
http://www.playicq.com/dispdoc.php?t=27&id=2671
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部