質問

終了

文字列中の文字が化けているかどうかを検出したいため、
WIN32APIのGetGlyphIndices()を使って、グリフインデックスを取得しようとしましたが、動作しません。
ソースは下記のようになっています。
何がいけないのかを教えていただけませんか？
よろしくお願いします。

--------------------------------------------------------------------------------
Declare Function GetGlyphIndices Lib "gdi32.dll" Alias "GetGlyphIndicesW" _
(ByVal hdc As Long, ByVal lpStr As String, C As Integer, pgi() As Long, fl As Long) As Long

Public Const GGI_MARK_NONEXISTING_GLYPHS = &H1

Sub test()

Dim buf() As Long
Dim length As Integer
Dim str As String
Dim i As Long
Dim hdc As Long
Dim hFont As Long

str = Selection.Range.Text
length = Len(str)
ReDim buf(length - 1)
　Call GetGlyphIndices(0, str, length, buf, GGI_MARK_NONEXISTING_GLYPHS)

For i = 0 To length - 1

If buf(i) = HFFFFFFFF Then
MsgBox "false"
End If

Next

End Sub
--------------------------------------------------------------------------------

質問者：キョウ
質問日時：2009-12-22 11:53:08
0

この機能は、特定のユーザーとの接触を避け、トラブルを防止するためにご用意しております。ブロックされたユーザーは、今後あなたの質問に回答ができなくなり、またそのユーザーの質問に対して、あなたも回答を投稿できなくなるという、重大な機能です。一度設定すると簡単に解除することができませんので、以下の点にご注意ください。

あなたがブロック設定していることは相手にも伝わる可能性があります。
ブロック設定ができるユーザーは20人までです。

本当にこのユーザをブロックしますか？

通報完了しました。ご協力ありがとうございました。

ご連絡いただきました内容は、当サイトの禁止事項に基づいて、事務局にて確認後、適切な対応をとらせていただきます。場合によっては、検討・対応に多少お時間を頂戴する場合もございます。

なお、誠に恐れ入りますが、今回のご連絡に関する対応のご報告は、結果をもって代えさせていただきます。対応の有無や判断基準に関しましては悪用を避けるため、事務局宛にお問合せいただきましても、ご回答およびメールのご返信はいたしかねますので、予めご了承くださいませ。

ベスト回答を選ぶと回答受付が終了します。
引き続き募集したい場合はベスト回答は確定しないでください。
この回答をベスト回答に確定しますか？

質問

関連する質問・相談

Sooda!からのお知らせ