構造体→文字列→構造体　をする方法

解決済

質問者：Chirs_Elfird
質問日時：2004/11/16 17:06
回答数：5件

ＶＢ６．０の話です。

　不特定の構造体を文字列（Ｓｔｒｉｎｇ）に格納し、これを最初の構造体に戻す事はできませんか？

　具体的には「共有メモリを使い構造体を文字列にして格納＞別ウインドウで文字列を取得して構造体に戻す」と言う事をやりたいんです。
　共有メモリに不特定の構造体をいれる方法でもいいんですが…VALIANTだとサイズが大きすぎて実用性がありませんし、違う主旨の質問をするのも良くないので回答はあくまで「構造体→文字列→構造体　をする方法」と言う事でお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： takasebou
回答日時：2004/11/16 18:16

APIを使えば出来ます。

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (cStr1 As Any, cStr2 As Any, ByVal iLen As Long)

構造体→文字列
Call CopyMemory(strB, ByVal typeA, Len(typeA))

文字列→構造体
Call CopyMemory(typeA, ByVal strB, Len(typeA))

ただし構造体のメンバに配列があると使えません（ＶＢの配列はメモリを連続してとらない為、メモリーリークします）。

また構造体の中身は string *5 などの固定長である必要があります。

以上です。

この回答への補足

　…やってみたのですが、デバックするとCopyMemoryの時にＶＢごと落ちてしまいます。構造体のサイズの問題なんでしょうか？

補足日時：2004/11/17 10:15

通報する

- 0
- 件

通報する

この回答へのお礼

　CopyMemoryですか。ありがとうございます。まさにこれがほしかったんです。

通報する

お礼日時：2004/11/16 19:47

No.5

回答者： ARC
回答日時：2004/11/16 21:16

こんな感じです。

Private Type typBuff
　　sBuff As String * 6　 '12Byte
End Type
Private mBuff　 As typBuff

Private Type typData
　　a As Long '4Byte
　　b As Long
　　c As Long
End Type

Private Sub Command1_Click()
　　Dim Dat As typData
　　With Dat
　　　　.a = 2
　　　　.b = 4
　　　　.c = 6
　　End With
　　
　　LSet mBuff = Dat
　　
End Sub

Private Sub Command2_Click()
　　Dim Dat As typData
　　LSet Dat = mBuff
　　MsgBox Dat.a & "," & Dat.b & "," & Dat.c
End Sub
Sub

- 2
- 件

通報する

この回答へのお礼

　原理としてはCopyMemoryと同じですよね？なんとなくこっちの方がすっきりしている気はしますけど。
　実は、扱う構造体の中はLong型とString型なので、Longが使えるかどうか多少不安だったんですが、これで大丈夫と分かりました。
　ありがとうございました。

通報する

お礼日時：2004/11/17 09:08

No.4

回答者： takasebou
回答日時：2004/11/16 20:59

#2です。

#3の方が「化けるのでは」？　と言われていますので、いちおう補足しておきますね。

これによって化ける事はありません。その為に値渡ししていますので（値渡しする事によって、暗黙の変換を回避しています）。

実際に開発したシステムで、長らく使っていますので問題はないはずです。

ただメモリ操作をするのであれば、バイナリで扱った方が無難なのは確かです。