WebSnap 中如何实现文件上传?

hiflower 2003-05-09 03:53:15
请教高手,在 WebSnap 中如何实现文件上传?
在 TAdapter 中可以添加 AdapterFileField,此 Field 有个 OnUploadFiles 事件,但怎么才能触发这个事件呢?
...全文
10 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
hiflower 2003-05-27
更好的方法:
Adapter.UpdateRecord

这样,可以在 OnUploadFiles 中处理上传的文件。
回复
hiflower 2003-05-14

出奇的简单!!
虽然 WebSnap 有许多问题,但在很多方面还是很出色的!

procedure TPageProducerPage1.AdapterActionUploadExecute(Sender: TObject;
Params: TStrings);
var
i:Integer;
Buffer:PChar;
begin
with WebContext.Request do
begin
if Files.Count>0 then
begin
i:=Files.Items[0].Stream.Size;
GetMem(Buffer,i);
i:=Files.Items[0].Stream.Read(Buffer^,i);
FreeMem(Buffer);
end;
end;
end;
回复
888888888888 2003-05-11
关注
回复
zdszt 2003-05-11
李维那本书上有的,
你去看看。
就是创建文件流
回复
相关推荐
发帖
网络通信/分布式开发
创建于2007-08-02

1573

社区成员

Delphi 网络通信/分布式开发
申请成为版主
帖子事件
创建了帖子
2003-05-09 03:53
社区公告
暂无公告