11/06/04 13:49:07.48 hyDuayc40
ためしにバイナリコピーを書いてみた。
adoS.LoadFromFile(GET_CUR_DIR + "\ReadMe.txt")
adoS.CopyTo(adoD, -1)
adoD.SaveToFile("copy.bin", 2 ) // adSaveCreateOverWrite
↑動く
↓動かない
while ! adoS.EOS
buf = CopyB("",0,0) // 本家からの引用で、文字コードをユニコードじゃなくANSIにする技。
// buf = "" だとユニコード扱いらしい。
for i = 1 to 512
if adoS.EOS then break
buf = buf + CopyB( adoS.Read(bufsize), 1, 1 )
size = i
next
print size
print buf
adoD.Write(buf) // そもそもCOMエラーで動かない。バリアント型に変換されないのか。
wend
adoD.SaveToFile("copy.bin", 2 )
UWSCがデータを触らないで済めば受け渡し自体は出来るんだよ。
型変換ができればいけそうな気はするんだけど
VARTYPE( 変数, [変換タイプ] ) とか書いてあるところがあったけどUWSCは対応してないみたいで