10月30th

修正「安全通道支援發生錯誤 (an error occurred in the secure channel support)」

robert web 技術 說兩句! 0

最近的cloudflare.com改了https的認證為 TLS 1.2,造成 Windows Server 2008 R2 很多機器,因為預設值 DefaultSecureProtocols 並非TLS 1.2,VB6與 classic ASP的winhttp,ServerXMLHTTP 相繼無法正常運作,會有報錯:安全通道支援發生錯誤 (an error occurred in the secure channel support)。

Windows Server 2008 R2  VB6  winhttp  ServerXMLHTTP  

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