| ■58023 |
Re[5]: ASCコードで受け取るサーバに送信したい |
□投稿者/ コアラ主任 -(2011/03/24(Thu) 00:57:27)
| ■No58020 (コアラ主任 さん) に返信
> ■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
>
《自己レス》
---------------------------------------------------------
Dim sdatc As String
sdatc = ChrB(&H41) + ChrB(0) + ChrB(&H42) + ChrB(0)
lngRet = send(mlngSock, ByVal sdatc, 2, 0)
---------------------------------------------------------
テスト環境で行うと「AB」と言うデータを受け取っているのですが、
ASCコードにて受け取る環境では、正しく、解読できるのでしょうか・・・。
（※今、一歩、コードと言うものを理解できていない・・・。）
|
|