点击这里给我发消息 点击这里给我发消息

利用VC++开发ASP图像处理组件(2)

添加时间:2010-1-5
    相关阅读: 网页 设计 ASP 软件 开发 商城 数据库

三、COM组件接口设计

  前面我们在输入文本后,在程序中创建设备上下文,对输入的文本进行计算并输出了指定文件名的位图文件,在本设计中,我们使用了以JPEG压缩格式存储文件的方式以减小网络传输时间,因jpeg压缩方法的论述已超出本文范围,故在此不再赘述。

  为了让其他语言调用此接口,我们以 COM 组件的方式发布此程序,可供VB,DELPHI,PB,ASP等程序调用,下面给出COM组件的设计方法,一般COM组件的创建及编译超出本文范围,故不再作解释。

  在组件中清加方法:STDMETHOD(OutTextImg)(/*[out, retval]*/ long *pVal);ltvalue(500)] long lWeight,
[in,optional,defaultvalue(0)] long l3D);

  和

STDMETHOD(OutImg)(BSTR bstrFileName, long lDelFile); 分别实现处理文件本保存为图像及把图像输出到用户浏览器。实现代码如下: STDMETHODIMP CAspImage::OutImgFromText(BSTR bstrFilePath,
          BSTR bstrText,
          BSTR bstrBgImg,
          long lCSet,
          BSTR bstrFont,
          long lWidth,
          long lHeight,
          long lLeft,
          long lTop,
          long llfHeight,
          long lWeight,
          long l3D)
{
  CImg img;
  try{
    if(0 == img.OutImgFromText(
      bstrFilePath,
      bstrText,
      bstrBgImg,
      lCSet,
      bstrFont,
      lWidth,
      lHeight,
      lLeft,
      lTop,
      llfHeight,
      lWeight,
      l3D))
    {
      return S_OK;
    }
    else
    {
      return S_FALSE;
    }
  }
  catch(...)
  {
    return S_FALSE;
  }
  
  return S_OK;
  /**/
  
}    一些处理代码我们封装在了Cimg类中,在前面做过介绍,在这里只是简单调用即可。 STDMETHODIMP CAspImage::OutTextImg(long *pVal)
{
  HRESULT hr = OutImgFromText(bstrFilePath,
    bstrText,
    bstrBgImg,
    lCSet,
    bstrFont,
    lWidth,
    lHeight,
    lLeft,
    lTop,
    llfHeight,
    lWeight,
    l3D);
  
  if(SUCCEEDED(hr))
    *pVal = 0;
  else
    *pVal = -1;
  
  return S_OK;
}
OutTextImg 函数只简单调用OutImgFromText 接口。
STDMETHODIMP CAspImage::OutImg(BSTR bstrFileName, long lDelFile)
{
  // TODO: Add your implementation code here
  
  _variant_t vReturnBuffer;
  LPSAFEARRAY psaFile;
  HANDLE hFile;
  DWORD dwSizeOfFile;
  DWORD dwNumberOfBytesRead;
  BOOL bResult;
  unsigned char *pReturnBuffer = NULL;
  long k;
  HRESULT hr = S_OK;
  
  
  // Create file in this case only OPENS an existing file (or fails
  // if the file does not exist!)
  hFile = ::CreateFile(
    bstrFileName, // name of the file
    GENERIC_READ, // desired access
    FILE_SHARE_READ, // shared access
    NULL, // security attributes
    OPEN_EXISTING, // creation disposition - open only if existing!
    FILE_FLAG_SEQUENTIAL_SCAN, // flag attributes
    NULL );
  
  if( hFile == INVALID_HANDLE_VALUE )
  {
    return E_FAIL;
  }
  
  dwSizeOfFile = ::GetFileSize( hFile, NULL );
  if (dwSizeOfFile == 0xFFFFFFFF)
  {
    return E_FAIL;
  }
  
  pReturnBuffer = new unsigned char[dwSizeOfFile];
  
  // Get the binary content of the file
  bResult = ::ReadFile( hFile, pReturnBuffer, dwSizeOfFile, &dwNumberOfBytesRead, NULL );
  if( FALSE == bResult )
  {
    return E_FAIL;
  }
  
  psaFile = ::SafeArrayCreateVector( VT_UI1 , 0, dwSizeOfFile );
  
  if( !psaFile )
  {
    return E_FAIL;
  }
  
  // Fill in the SAFEARRAY with the binary content of the file
  for( k = 0; k < (int) dwSizeOfFile; k++ )
  {
    if( FAILED(::SafeArrayPutElement( psaFile, &k, &pReturnBuffer[k] )) )
    {
      return E_FAIL;
    }
  }
  
  vReturnBuffer.vt = VT_ARRAY | VT_UI1;
  V_ARRAY(&vReturnBuffer) = psaFile;
  
  m_piResponse->BinaryWrite(vReturnBuffer);
  
  if( pReturnBuffer )
    delete [] pReturnBuffer;
  
  
  //_variant_t vOut("OutImg TEST....................");
  //m_piResponse->Write(vOut);
  
  ::CloseHandle(hFile);
  
  if(lDelFile != 0)
    ::DeleteFile(bstrFileName);
  
  return SUCCEEDED(hr) ? S_OK : E_FAIL;
  
  
  return S_OK;
}    此接口我们使用m_piResponse->BinaryWrite(vReturnBuffer);将读入内存的图像数据转发给用户浏览器。另外,为了灵活地改变图像字体,大小,字符集及图像长宽等,我们要为组件添加以下属性。STDMETHOD(get_bAutoHeighten)(/*[out, retval]*/ BOOL *pVal);
STDMETHOD(put_bAutoHeighten)(/*[in]*/ BOOL newVal);
STDMETHOD(get_l3D)(/*[out, retval]*/ long *pVal);
STDMETHOD(put_l3D)(/*[in]*/ long newVal);
STDMETHOD(get_lWeight)(/*[out, retval]*/ long *pVal);
STDMETHOD(put_lWeight)(/*[in]*/ long newVal);
STDMETHOD(get_lTop)(/*[out, retval]*/ long *pVal);
STDMETHOD(put_lTop)(/*[in]*/ long newVal);
STDMETHOD(get_lLeft)(/*[out, retval]*/ long *pVal);
STDMETHOD(put_lLeft)(/*[in]*/ long newVal);
STDMETHOD(get_lCSet)(/*[out, retval]*/ long *pVal);
STDMETHOD(put_lCSet)(/*[in]*/ long newVal);
STDMETHOD(put_bstrBgImg)(/*[in]*/ BSTR newVal);
STDMETHOD(put_bstrFilePath)(/*[in]*/ BSTR newVal);
STDMETHOD(put_bstrFont)(/*[in]*/ BSTR newVal);
STDMETHOD(put_bstrText)(/*[in]*/ BSTR newVal);
STDMETHOD(get_llfHeight)(/*[out, retval]*/ long *pVal);
STDMETHOD(put_llfHeight)(/*[in]*/ long newVal);
STDMETHOD(get_lHeight)(/*[out, retval]*/ long *pVal);
STDMETHOD(put_lHeight)(/*[in]*/ long newVal);
STDMETHOD(get_lWidth)(/*[out, retval]*/ long *pVal);
STDMETHOD(put_lWidth)(/*[in]*/ long newVal);分别实现自定义图象长,宽,字体大小,字体名称等属性。如:设置图像文本 STDMETHODIMP CAspImage::put_bstrText(BSTR newVal)
{
  bstrText = newVal;
  return S_OK;
}    设置图像高度 STDMETHODIMP CAspImage::put_lHeight(long newVal)
{
  lHeight = newVal;
  return S_OK;
}    四、ASP程序使用此组件输出图像到用户浏览器,在使用之前首先在服务器上注册此组件,方法:
拷贝XTAspImage.dll 到系统目录,一般为C:\WINNT\SYSTEM32
运行-> regsvr32 XTAspImage.dll
  如果安装成功,会有成功提示。此过程只使用一次。下面是在asp里调用方法
1. <!--#include file="Config/Function.asp"-->

  2. <!--#include file="Config/SiteInfo.asp"-->

  3. <!--#include file="Config/DbConn.asp"-->

  4. <%

  a) Dim TeachID, PageTextLen, Page, SumPage, BodyLen, \

  TemplateBody, Width, Height, FHeight, sEndStr

  b) TeachID = INT(Request("TeachID"))

  c) PageTextLen = INT(Request("PageTextLen"))

  d) IF PageTextLen <= 0 THEN

  i. PageTextLen = 300

  e) END IF

  f) Page = INT(Request("Page"))

  g) Set Rs = Server.CreateObject("ADODB.Recordset")

  h) Sql="select * from Article where id=" & TeachID

  i) Rs.open sql,conn,1,1

  j) IF NOT Rs.EOF THEN

  i. TeachingBody = Rs("Content") & constEndStr

  k) ELSE

  i. Response.Write("记录不存在")

  ii. Rs.Close

  iii. Set Rs = Nothing

  iv. Conn.Close

  v. Set Conn = Nothing

  vi. Response.End

  l) END IF

  m) BodyLen = len(TeachingBody)

  n) SumPage = GetMaxPageNum(BodyLen, PageTextLen)

  o) Dim sPageText

  p) IF Page >= SumPage THEN

  i. Page = SumPage

  q) END IF

  r) IF Page <= 0 THEN

  i. Page = 1

  s) END IF

  t) sPageText = mid(TeachingBody, (Page-1) * PageTextLen + 1, PageTextLen)

  u) Dim sFont

  v) sFont = Request("FontFace")

  w) Dim FileName

  x) FileName = GetTempFileName(Server.MapPath("tmp"), "XTImg_", "jpg")

  y) On Error Resume Next

  z) Set Obj = Server.CreateObject("XTAspImage.AspImage")

  aa) Response.Clear

  bb) If Err.Number <> 0 Then

  i. Response.Write "请先在服务器安装信天ASPIMAGE组件!"

  ii. Response.End

  cc) End If

  dd) Obj.bstrFilePath = FileName

  ee) Obj.lHeight = INT(Request("Height"))

  ff) Obj.lWidth = INT(Request("Width"))

  gg) Obj.bstrFont = sFont

hh) Obj.lLeft = INT(Request("ImgLeft"))

  ii) Obj.lTop = INT(Request("ImgTop"))

  jj) Obj.llfHeight = INT(Request("llfHeight"))

  kk) Obj.lWeight = INT(Request("Weight"))

  ll) Obj.l3D = INT(Request("l3D"))

  mm) Obj.lCSet = INT(Request("CSet"))

  nn) Obj.bstrText = sPageText

  oo) IF Obj.OutTextImg = 0 THEN

  i. Dim lDelFile ''是否删除临时文件,0为不删除,非0为删除

  ii. lDelFile = 1

  iii. ret = Obj.OutImg(FileName, lDelFile)

  iv. ''Response.Write "输出文件成功!"

  pp) ELSE

  i. Response.Write "输出文件失败!"

  qq) END IF

  rr) Set Obj = nothing

  5. %>

  6. <body>

  7. </body>

  8. </html>

  1,2,3 行为包含一数据库连接文件及网站配置信息

  4.a 至 4.x 从通过传入ID号从数据库里读取文本,并通过字数计算输出页要输出的文本并保存到sPageText里。

  4.y 至 4.nn创建信天asp 图像处理组件并设置输出文件名,图像长宽,字符集,字体等。

  4.oo以后输出文件及把图像数据转发给用户浏览器。

  在普通网页里的调用方法为:

<img src="outteachimg.asp?TeachID=67&PageTextLen=500&Height=300&Width=600&Page=1&
FontFace=%BB%AA%CE%C4%D0%C2%CE%BA&l3D=0&FontColor=0&CSet=134&BGImgPath=&ImgLeft=10&
ImgTop=20&ImgBottom=10&ImgRight=10&llfHeight=24&Weight=300" width="580" >
  五、结束语

  图片处理组件在互联网程序开发中使用很常见,例如我们注册论坛会员或商城会员里,总会有提示输入验证码的提示,而此验证码为了防软件自动识别,是以图像数据输出的。当我们掌握了图片处理组件开发方法时,开发基于asp的图片验证数字输出及字符输出将是轻而易举

本文作者:
咨询热线:020-85648757 85648755 85648616 0755-27912581 客服:020-85648756 0755-27912581 业务传真:020-32579052
广州市网景网络科技有限公司 Copyright◎2003-2008 Veelink.com. All Rights Reserved.
广州商务地址:广东省广州市黄埔大道中203号(海景园区)海景花园C栋501室
= 深圳商务地址:深圳市宝源路华丰宝源大厦606
研发中心:广东广州市天河软件园海景园区 粤ICP备05103322号 工商注册