| ■58020 |
Re[4]: ASCコードで受け取るサーバに送信したい |
□投稿者/ コアラ主任 -(2011/03/23(Wed) 23:17:26)
| ■No58017 (shu さん) に返信
> ■No58016 (コアラ主任 さん) に返信
>
>>-----------------------------------------------------
>>Dim sdatB(10) As byte
>>
>>sdatB(1) = &H41
>>lngRet = send(mlngSock, ByVal sdatB, Len(sdatC), 0)
>>-----------------------------------------------------
>>
>>と言う事でしょうか・・・。
>
> sdatB(0) = &H41
> ^
> で
> Len(sdatC)は1
>
早速のご返答ありがとうございます。
コーディング、コピペミスがありましたが・・・、
複数文字を送信する場合は、
-----------------------------------------------------
Dim sdatB(10) As byte
sdatB(0) = &H41
sdatB(1) = &H42
lngRet = send(mlngSock, ByVal sdatB, 2, 0)
-----------------------------------------------------
という事になるかと思ったのですが、sendのsdatBが
「型が一致しません」とコンパイルエラーになってしまいました。
宣言を見ると第2引数は「buf As Any」となっています。
デバッグをしていただくようで申し訳ありません。
よろしければ、よろしくお願いいたします。
Private Declare Function send Lib "wsock32.dll" (ByVal s As Long, buf As Any, ByVal lngLenlen As Long, ByVal flags As Long) As Long
|
|