STDMETHODIMP TuploadfileImpl::Run()
{
    AnsiString  flag=AnsiString(char(13))+AnsiString(char(10));

    OleVariant    AOleVariant; //记录请求信息内容长度
    int  DelimterLength ;//分界符长度
    long intDelimterLength;

   long longIndex,ALongInt,longPos ;

    AnsiString   ContentData ;//请求信息内容的字符串表示

    AnsiString  strTemp ;

    bool FindEndOfFileData;//是否找到文件数据结束位置
  long FContentLength;

//提取客户端上传的请求信息数据

     //FScriptingContext=(IScriptingContext)AScriptingContext;//获取ASP上下文信息

    //ARequest=FScriptingContext.Request;//获取WWW请求信息
    Request->get_TotalBytes(&FContentLength);//请求信息内容长度

//创建动态数组，用于以数组形式存储请求信息内容
       int bounds[2]={0,FContentLength};

      FContentData= VarArrayCreate(bounds,1,varByte);
       // Variant FContentData ;
//将请求信息内容存储到数组中
     try
     {
      AOleVariant=Variant(FContentLength);
      Request->BinaryRead(AOleVariant,FContentData);//读取请求信息内容
    Response->Write(Variant(FContentData));
   } catch(...)
      {
         Response->Write(Variant("err1"));
      }


}