Italian community of Lazarus and Free Pascal

  SpiderForm1.ExtraParam:= 'enctype=”multipart/form-data”';

    Response.Add('
Esempio di file upload
');
    SpiderForm1.AddInput(itFile, 'upload');
    SpiderForm1.AddInput(itSubmit, 'upload', 'Upload');
    Response.Add(sfUpload.Contents);

    Response.ContentType:= Request.ContentFiles[0].ContentType;
    Response.CustomHeader.Add('Content-Disposition: filename="' +
    Request.ContentFiles[0].FileName + '"');
    Response.Content.Add(Request.ContentFiles[0].FileContent);