吉田さん
おはようござます。
Byte()に変更しても同じだったのですね。
THDLL2VB.DLL側には問題ないということみたいですね…。
あと確認するとしたら、データのコピーのあたりですかねぇ。
> JO1SIM 出島さん、おはようございます。
>
> 同じデータをUpdateではなくAppendで追加するときは、正常に追加できます。
>
> > UpdateQsoDataはByte()で定義して…
> >
> > bytesData = System.Text.Encoding.GetEncoding(932).GetBytes(u_DataTbl(d))
> > ' 932はShift_JISの意味
> >
> > のようにして、ShiftJISのバイト列に変換してSetThBufferに与えてみてはいかがでし>>ょうか?
>
> 試みに、SetThBufferの定義部分の第二引数をバイト配列型に変更して
>
> Dim UpdateQsoData As Byte()
>
> For d As Integer = 0 To 14
> UpdateQsoData = System.Text.Encoding.GetEncoding(932).GetBytes(u_DataTbl(d))
> SetThBuffer(u_th, UpdateQsoData, d)
> Next
>
> としてShiftJISのバイト列に変換してSetThBufferに与えてみとしましたが、結果はstring型の場合と同じで、修正できるデータ項目と修正できないデータ項目はまったく同一でした。