ReImg(v1.0 KO) YϤ

ɤ䤸.. JPG PNG GIF BMP WMF ... Ϥ榡

w˻
================================================================================================================ 
ServerFnw.NET Framework 2.0H~AٱowSDK~ϥΡA۳spUG

.NET Framework 2.0
http://www.microsoft.com/downloads/details.aspx?FamilyID=0856eacb-4362-4b0d-8edd-aab15c5e04f5&DisplayLang=zh-tw 

.NET Framework 2.0 SDK
http://www.microsoft.com/downloads/details.aspx?familyid=FE6F2099-B7B4-4F47-A244-C96D69C35DEC&displaylang=zh-tw 

 C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0> ؿU

U覡
 HUO ]m  E:\Reimg\Reimg.dll
REGSVCS E:\Reimg\Reimg.dll
GACUTIL /i E:\Reimg\Reimg.dll

================================================================================================================ 




Is覡 (ASP dҤ@) 
================================================================================================================ 
   Set R = Server.CreateObject("ReImg.ReimgLib")
   
   'vBL (KOq,Y@,бN0 令1)
   R.Trial = 0
   
   ']w~ؽuO_@ (Ѽ 0 OR 1)
   R.AllowRectangleLine = 1
      
   'ϥίxή (Ѽ 0 OR 1)
   R.AllowRectangle = 1

   ']w~ئ (eTӭȬRGBm, ĥ|ӭȬuϲʲ)
   R.FrontRectangleColor 230,230,230,2
      
   ']wI (TӭȬRGBm)
   R.SetBackGroundColor 255,255,255
      
   '\pϳQj (Ѽ 0 OR 1)
   R.AllowForceResize = 1
      
   'jx (Ѽ 0 OR 1)
   R.AllowCutRectangle = 0

   (HWѼƬܩʰѼ)   

   'ܼ IMG ϤGi (iqƮwX) , width ,height n]wϤe

   Img = Rs("ImgData") '<== ϤƨӷƮw
   Response.binarywrite R.StandPutimg(Img,width ,height)
   Set R = Nothing
'===============================================================================================================


Is覡 (ASP dҤG) 
================================================================================================================ 
   Set R = Server.CreateObject("ReImg.ReimgLib")

   'vBL (KOq,Y@,бN0 令1)
   R.Trial = 0


   ']w~ؽuO_@ (Ѽ 0 OR 1)
   R.AllowRectangleLine = 1
      
   'ϥίxή (Ѽ 0 OR 1)
   R.AllowRectangle = 1

   ']w~ئ (eTӭȬRGBm, ĥ|ӭȬuϲʲ)
   R.FrontRectangleColor 230,230,230,2
      
   ']wI (TӭȬRGBm)
   R.SetBackGroundColor 255,255,255
      
   '\pϳQj (Ѽ 0 OR 1)
   R.AllowForceResize = 1
      
   'jx (Ѽ 0 OR 1)
   R.AllowCutRectangle = 0

   (HWѼƬܩʰѼ)   

   If R.ReadImgFile("C:\0005.jpg") Then '} (pG}ɦ\ Gixs R.ImgBinary)
      Response.binarywrite R.StandPutimg(R.ImgBinary ,width ,height)
   End If
'===============================================================================================================


Is覡 (ASP dҤT) ֳtYŪ ,sWзŪɨ
================================================================================================================ 
      Set R = Server.CreateObject("ReImg.ReimgLib")

      'vBL (KOq,Y@,бN0 令1)
      R.Trial = 0


      ']w~ز{O_@
      R.AllowRectangleLine = 1
      
      'ϥίxή
      R.AllowRectangle = 1

      ']w~ئ
      R.FrontRectangleColor 230,230,230,2
      
      ']wI
      R.SetBackGroundColor 255,255,255
      
      '\pϳQj
      R.AllowForceResize = 0

      'jx
      R.AllowCutRectangle = 0

      If R.StandReadImgFile("C:\0005.jpg",width ,height) Then '},æPɧY (pG}ɻPYϦ\ , Gixs R.ImgBinary)
         Response.binarywrite R.ImgBinary 'NGiGX
      End If
      Set R = Nothing
'===============================================================================================================



   '\ (1) ˬdO_TϤƮ榡
   ReturnValue = R.ChkImgFormat(Img) 
   Img => ϤGi
   ReturnValue = 1 ɭ.. Ϥ榡T
   ReturnValue = 0 ɭ.. Ϥ榡~


   '\ (2) Base64 sXJ
   'Base64Img ܼ.. Jȥi Base64 榡 ,ѥ`ϤX , width ,height n]wϤe
   Response.binarywrite R.Putimg(Base64Img,width ,height)

================================================================================================================ 
pDάOݭnڽdҥi MAIL     martin@s23.net
