AgilentのUSB-GPIB(82357A)のVBライブラリに関する質問

1 名前： おかもと 投稿日：2004/11/17(水) 14:13 ID:eSGPC16c

お世話になっております。おかもとと申します。

USB-GPIBのVBライブラリ について質問させて頂きたいと思います。

Agilent製USB-GPIB(82357A)をVisualBasic6.0で制御プログラミングを
作成しています。"SICL32.bas"のiopen(), iwrite(), iread()などを
使っています。

しかし、時々iwrite()を呼び出す際、以下の内容のエラーメッセージボックス
が勝手に出ます。

　　Unicode to ANSI conversion failed

このメッセージボックスのOKボタンを押すと、問題なく動作しますが、
OKボタンを押さないとプログラム続行できません。

このメッセージボックスが出ないようにする設定やコマンドを
どなたかご存知でしたら教えて頂きたいと思います。

よろしくお願いいたします。

2 名前： 匿名４８８ 投稿日：2004/11/17(水) 15:59 ID:???

> Unicode to ANSI conversion failed

エラーを文字通りに受け取ると、VB の String(Unicode) から
DLL に渡す際か、受け取ってからの変換(Unicode->ASCII) でエラーがでてそうですが、
「時々」だそうですが、エラーが出たときに渡している文字列の中身はわかりますか？
また、String でなく Byte の配列で渡すとどうなりますか？

3 名前： 匿名４８８ 投稿日：2006/11/18(土) 11:31 ID:zIs8Pwf6

きっともう解決してると思いますが...，

　　Dim buf() As Byte
　　buf = StrConv(str, vbFromUnicode)
　　Call iwrite(id, buf, Len(str), 1, 0&)

当方の環境でも同じ症状でしたが，こんな感じで逝けました。
VBでは文字コードをUnicodeで扱っているので，
ASCIIに変換してByte型に入れてから渡すといいみたいです。
通りすがりですが，ちょうど同じ悩みが解決できたもので...