WebSnap 中如何实现文件上传?

hiflower 2003-05-09 03:53:15
请教高手,在 WebSnap 中如何实现文件上传?
在 TAdapter 中可以添加 AdapterFileField,此 Field 有个 OnUploadFiles 事件,但怎么才能触发这个事件呢?
...全文
55 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
李维那本书上有的,
你去看看。
就是创建文件流

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧