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;