告别VB6乱码 ( 增强 vb6内建字符串 + 我的字符串COM ) 源代码

instemast

告别VB6乱码 ( 增强 vb6内建字符串 + 我的字符串COM ) 源代码

终于搞完了。支持 OLE 自动化，即支持 VB6, .NET, C++, Java, Delphi...

RAR 内容：COM组件dll和VC++源代码,以及测试用的 VB6 代码

这个DLL含有以下 COM 接口:

IStr 接口

我的 inst::CStr 的包装类。

IStrHelper 接口

DelAnsi - 删除Ansi字符数组
GetBSTRAddr - 取得 vb6 内建的 字符串变量 所指向的 地址（不是变量本身的地址！）
CreateBSTR - 根据一个unicode的指针，建造一个BSTR

使用指南：

首先要知道，VB6 内 部 采用 BSTR，本质是 unicode，但由于VB6无法和 外 围 unicode 交互，
导致 vb6 的“unicode”形同虚设，乱码依然存在。
所以，你可以选择你喜欢的用法：

1 - 主要用我的 Str 类，该类可以和 外 围 unicode, ansi 交互。(也可以和BSTR交互哦！)
2 - 借用我的 Str 类，和 外围的 unicode, ansi 交互，其他操作，用 BSTR 。
3 - 使用IStrHelper和外围的 unicode 交互。

instemast

关于 COM 组件的注册，推荐使用我的代码：

Option Explicit

Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Sub RegCom(file As String)
    DllFunc file, "DllRegisterServer"
End Sub

Public Sub UnregCom(file As String)
    DllFunc file, "DllUnregisterServer"
End Sub

Private Sub DllFunc(file As String, funcname As String)
    Dim hdll As Long
    Dim lpfn As Long
    hdll = LoadLibrary(file)
    lpfn = GetProcAddress(hdll, funcname)
    CallWindowProc lpfn, 0, 0, 0, 0
End Sub

打酱油去

一条狗而已

流氓书生

不懂LZ在说些什么,估计LZ自己也不知道自己在说什么

打酱油去

流氓书生: Re:告别VB6乱码 ( 增强 vb6内建字符串 + 我的字符串COM ) 源代码

不懂LZ在说些什么,估计LZ自己也不知道自己在说什么

打酱油的

VB6这种还使用ANSI作为内建字符的落后语言，WINDOWS从NT 4.0开始内存里面就使用UNICODE了，VB6天生就是给WINDOWS98用的

instemast

打酱油的: Re:告别VB6乱码 ( 增强 vb6内建字符串 + 我的字符串COM ) 源代码

VB6这种还使用ANSI作为内建字符的落后语言，WINDOWS从NT 4.0开始内存里面就使用UNICODE了，VB6天生就是给WINDOWS98用的

vb6从98开始就使用unicode作为内建字符串，可是它不能正确输入ansi，于是造成乱码，并且unicode让乱码持久化。

xdiff

不可以下载，？
很需要这份资料参考，哪位可以帮忙一下啊。
谢谢。

instemast

http://files.genteu.info/instStrVB.rar

vbsix

支持楼主！