delphi 如何判断编码格式,解决乱码问题
? ? ? ? ? 前陣子因?yàn)樾枰玫絠dhttp下載網(wǎng)頁,然而令人很生氣的是,他下載的html源碼是亂碼的,這樣子是沒有辦法使用的,所以就必須要把他進(jìn)行編碼格式轉(zhuǎn)換,然而令人困擾的是,他是什么格式,又該怎么轉(zhuǎn),轉(zhuǎn)成什么格式,這都是問題,轉(zhuǎn)成什么格式,自然是ansi ,可以正常人看的懂的才行了,該怎么轉(zhuǎn),就必須先知道原先是什么格式了,,他是什么格式,這個(gè)就不好辦了
????????? 網(wǎng)頁格式,不外乎三種,utf8 ,gbk,gb2312,? 再細(xì)分的話,utf8 屬于雙字節(jié),gbk,gb2312屬于單字節(jié),他們的編碼方式分別為 unicode 和ansi ;也就是說,我們下載的網(wǎng)頁他們的編碼方式就是unicode 和ansi,那么目標(biāo)明確了我們需要做的是,判斷網(wǎng)頁到底是哪種編碼,二選一,然而很遺憾的是,在網(wǎng)上并沒有找到有用的信息,而且也沒有找到能夠判斷字符是屬于那種編碼的函數(shù),于是自己就想了個(gè)方法,寫了下面的語句:
function htmlDecode(html:string); beginhtml:=lowercase(html);if (not containtext('charset=',html) or containtext('=utf',html)) thenhtml:=utf8decode(html);result:=html; end;這個(gè)函數(shù)對(duì)于大多數(shù)網(wǎng)頁還是有效果的,然而卻存在兩個(gè)問題:
1、如果"charset=" 等號(hào)和charset 中間存在空格,那么就會(huì)出問題,
2、用這個(gè)方法解析出來的網(wǎng)頁,雖然是ansi的,而且也能看懂,然而,在有的標(biāo)簽和中文間轉(zhuǎn)換會(huì)出錯(cuò),會(huì)把標(biāo)簽的"<" 和中文的編碼,一起轉(zhuǎn)義成"?"號(hào),破壞html文件。
????? 若果對(duì)于標(biāo)簽不是很在乎的還是可以用,然而對(duì)于需要的卻是個(gè)災(zāi)難性問題,后來在看一篇文章的時(shí)候,找到了另一種有效的方法;
方法二:
?????? 這種方法使用的是預(yù)編譯,如下:
function htmldecode(html:string):string; begin{$IFDEF UNICODE}result:=html;{$ELSE}result:=utf8decode(html);{$ENDIF} end;用這種方法后,第一種的出現(xiàn)的問題都沒了。
總結(jié):第一種方法并不是沒用,二手沒有找到足夠的判斷條件
????
總結(jié)
以上是生活随笔為你收集整理的delphi 如何判断编码格式,解决乱码问题的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 两艘国产航母疑将同时造
- 下一篇: 电脑屏幕出现彩色条纹_电脑屏幕出现条纹