再开一帖！！请教各位一个问题！在B/S结构下什么实现文件的上报与接收！！！(300分)

unit FileUploadForm;

interface

uses
  IWAppForm, IWApplication,
  SysUtils, Classes,
  {$IFDEF Linux}QForms,{$ELSE}Forms,{$ENDIF}
  {$IFDEF Linux}QControls,{$ELSE}Controls,{$ENDIF}
  IWControl, IWHTMLControls, IWCompButton,
  IWCompEdit, IWCompLabel, IWCompText, MenuFrame;

type
  TformFileUploadDemo = class(TIWAppForm)
    IWText1: TIWText;
    IWLabel1: TIWLabel;
    lablFileInfo: TIWLabel;
    framMenu1: TframMenu;
    IWFile1: TIWFile;
    butnUpload: TIWButton;
    procedure butnUploadClick(Sender: TObject);
  protected
    FLastName: string;
  public
  end;

implementation

uses IWForm;
{$R *.dfm}

procedure TformFileUploadDemo.butnUploadClick(Sender: TObject);
begin
  IWFIle1.SaveToFile(ExtractFilePath(ParamStr(0)) + IWFile1.FileName);
  lablFileInfo.Caption := 'You have uploaded the file ' + IWFile1.Filename + #13#10 +
  'saved to directory: ' + ExtractFilePath(ParamStr(0));
  lablFileInfo.Visible := True;
end;

end.