WebSnap 中如何实现文件上传？

Question

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

Answer 1

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

Answer 2

更好的方法：
  Adapter.UpdateRecord这样，可以在 OnUploadFiles 中处理上传的文件。