我使用UserControl_AsyncRead 从网上下载文件，想转换成为文本，但是全部是乱码，请问是什么原因？
Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty)
     On Error Resume Next
     Dim f() As Byte, fn As Long
     If AsyncProp.BytesMax <> 0 Then
        f = AsyncProp.Value
        debug.print strconv(asyncprop.value,vbUnicode )
     endif
end sub
英文正确，中文就是乱码，什么原因？有什么解决办法？我把vbUnicode改为vbFromUnicode也试过、把LocaleID改为&H804也试过，好象都没有什么用，都是乱码。请各位指教了下。

[ 本帖最后由 glenglenglen 于 2010-8-4 20:26 编辑 ]

网页编码的问题？纯猜测。

应该不是。网页编码没有问题，我直接下载为文件用编辑器打开能正常显示的。

'------------------------------------------------------------

' Language IDs, clipped from a random header file whose name I cannot remeber,
' or derived. Note that you can build these yourself any time you like using the
' constants and procs in this module.
'------------------------------------------------------------
Global Const LidUnknown = &HFFFF
Global Const LidNone = &H0
Global Const LidNoProof = &H400
Global Const LidArabic = &H401
Global Const LidDanish = &H406
Global Const LidGerman = &H407
Global Const LidSwissGerman = &H807
Global Const LidAmerican = &H409
Global Const LidBritish = &H809
Global Const LidAustralian = &HC09
Global Const LidSpanish = &H40A
Global Const LidFinnish = &H40B
Global Const LidFrench = &H40C
Global Const LidFrenchCanadian = &HC0C
Global Const LidHebrew = &H40D
Global Const LidItalian = &H410
Global Const LidDutch = &H413
Global Const LidDutchPreferred = &H13
Global Const LidDutchBelgian = &H813
Global Const LidNorskBokmal = &H414
Global Const LidNorskNynorsk = &H814
Global Const LidPortBrazil = &H416
Global Const LidPortIberian = &H816
Global Const LidSwedish = &H41D
Global Const LidCatalan = &H403
Global Const LidRussian = &H419
Global Const LidCzech = &H405
Global Const LidHungarian = &H40E
Global Const LidPolish = &H415
Global Const LidJapanese = &H411
Global Const LidKorean = &H412
Global Const LidTaiwan = &H404
Global Const LidChina = &H804
Global Const LidTurkish = &H41F
Global Const LidGreek = &H408
Global Const LidBasque = &H42D
Global Const LidSlovenian = &H424
Global Const LidMalaysian = &H43E
Global Const LidAfrikaans = &H436
Global Const LidBulgarian = &H402
Global Const LidCroatian = &H41A
Global Const LidEstonian = &H425
Global Const LidLatvian = &H426
Global Const LidLithuanian = &H427
Global Const LidMacedonian = &H42F
Global Const LidRomanian = &H418
Global Const LidSerbianCyrillic = &HC1A
Global Const LidSerbianLatin = &H81A
Global Const LidByelorussian = &H423
Global Const LidSlovak = &H41B
Global Const LidUkrainian = &H422
Global Const LidIcelandic = &H40F
Global Const LidVietnamese = &H42A   '  (LANGVIETNAMESE, SUBLANGDEFAULT)
Global Const LidThai = &H41E

'strconv LocaleID

[ 本帖最后由 bczgvip 于 2010-8-5 05:14 编辑 ]

我觉得还是编码问题,你可以将Down下的文件内容Copy到记事本中,再另存为...(注意选择不同的编码试,也可以用编码转换工具来处理)如果成功,就找到了编码方式.另外注意一下,设置字体,有的字体也可能将汉字显示为乱码

是不是网上你下载下来的数据流是 U7 的编码???

如果是U7的编码,需要你自己解码到 Unicode 去.

你看一下 HTTP 头.

如果是U7的如何转为Unicode啊？
我把下载的网页源文件打开来看了，但是里面没有编码的说明。

dim sTmp$,f() byte
f = ....value
sTmp$ = cstr(f) 'utf-16le

你自己检查吧。

UserControl_AsyncRead 下下来的数据是什么格式的？
流？ 直接生成文件？ 还是什么。

HTTP ，在传输过程中有  ANSI 编码 和 Unicode-7 编码 两种方式传输。
在 HTTP控制头中反应出来的，只存在传输过程中，如果是保存的文件是不存在控制头的。

然后， HTTP 文档格式的编码 也有 N 种编码，这些编码是 在 HTTP 文件 头中反应。

估计你遇到的是传输过程的编码 ，自己到网上去找解码吧，我以前在这个论坛也发过一个。
今天在WIN7里，没办法看源代码了。