5月31th

class ASP 包含 VB DLL 移植至 Windows Server 2008 R2 64位元系統

robert web 技術 說兩句! 0

傳統的ASP移植到WINDOWS SERVER 2008-2012 系統,網路上已經有很多文件說明。因為傳統ASP是32位元程式,在64位元系統,IIS 7 裡面的 appPool都要調整成允許32位元程式執行運作。ODBC 也得使用 SYSWOW64 裡面的 odbcad32.exe 進行設定。

不過,很少人提到以前的3-tier架構的ASP網站,都還有中間層 middle-tier,一般都是COM DLL,或稱COM元件。

以下就是我的例子,移植一個傳統ASP 3-tier 網站至Windows Server 2008 R2 64位元作業系統:

ASP  VB6  IIS  Windows Server 2008 R2  

10月16th

安裝 VB6 在 Windows 7 (WIN7) 64位元系統

robert web 技術 說兩句! 0

安裝 VB6 在 Windows 7 (WIN7) 64位元系統


  1. 準備事項:

  • 關閉UAC

  • 建立零長度的 MSJAVA.DLL,放在C:\Windows內。目的是為了讓安裝過程跳過JAVA的安裝。

VB6  Windows 7  

4月02th

使用Adodb.Stream判斷文件編碼及進行編碼轉換(Unicode,Utf-8,GB2312等

robert web 技術 說兩句! 0
Sub FileZM(sFile As String, sCode As String, dFile As String, dCode As String)
'參數:源文件,源文件編碼,目標文件,目標文件編碼。編碼舉例----"gb2312"、"UTF-8"等
Dim ObjStream As Object
Set ObjStream = CreateObject("Adodb.Stream")
With ObjStream
    .Mode = 3         'adModeReadWrite = 3 ' 指示讀/寫權限。
    .Type = 1         'adTypeBinary = 1
    .Open
    .LoadFromFile sFile   '源文件
    .Position = 0
    .Type = 2         'adTypeText = 2
    .Charset = sCode
    sCode = .ReadText '讀取文本到sCode
    
    .Position = 0     ' 這只是定位到文件頭,保留
    .SetEOS           ' 完全重寫不要漏了這個,通過使當前 Position 成為流的結尾來更新 EOS 屬性的值。當前位置後面的所有字節或字符都將被截斷
    .Type = 2         'adTypeText = 2
    .Charset = dCode       '指定輸出編碼
    .WriteText sCode       '寫入指定的文本數據到Adodb.Stream
     .SaveToFile dFile, 2
    .Close
End With
Set ObjStream = Nothing
End Sub

ADODB.Stream組件Charset屬性值

ADODB.Stream  VB6  ASP  

3月06th

VB6 圖形中的文字進行細化 (Thinning)

robert web 技術 說兩句! 0

繼上篇文章:VB6 切割圖形中的文字,接著對圖形中的文字進行細化 (Thinning)。

採用9宮格算法,只以9宮格中心點為準,進行消去。

判斷條件如下:

VB6  captcha  驗證碼辨識  

3月06th

VB6 切割圖形中的文字

robert web 技術 說兩句! 1

繼上篇大津閥值法分離圖形中的文字後,今天把切割圖形中的文字也寫出來。

用一個不規則矩陣 (jagged array) 儲存切割後的文字排列。

原始驗證碼圖形為, 來自 yunfile.com:

經由OTSU大津法,找出閥值,轉成矩陣 Pix(x,y),如以下所示的數字,準備切割:

VB6  captcha  驗證碼辨識  

3月04th

VB6 otsu 大津演算法 (最大類間方差法)

robert web 技術 說兩句! 0

OTSU, 最大類間方差法是由日本學者大津展之於1979年提出的,是一種自適應的閾值確定的方法,又叫大津法,簡稱OTSU。


用VB6,實作成函數,可隨時叫用。


VB6  otsu