WebSnap 中如何实现文件上传？

[hiflower]

请教高手，在 WebSnap 中如何实现文件上传？
在 TAdapter 中可以添加 AdapterFileField，此 Field 有个 OnUploadFiles 事件，但怎么才能触发这个事件呢？

[zdszt]

李维那本书上有的，
你去看看。
就是创建文件流

[888888888888]

关注

[hiflower]

出奇的简单!!
虽然 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;

[hiflower]

更好的方法：
Adapter.UpdateRecord

这样，可以在 OnUploadFiles 中处理上传的文件。