ab.com コミュニティ

アドバイスありがとうございました。

第２に加え第６パラメーターにも問題が有り修正して動作しました。
ニーズは無いと思いますが、通信に関してABのサンプルが見当たらないので
コードを残しておきます。

[hide]
Declare Function inet_addr Lib "ws2_32.dll" (cp As BytePtr) As Long
Declare Function sendto Lib "wsock32.dll" (ByVal s As Long, buf As *Byte, ByVal lngLen As Long, ByVal flags As Long,ByRef sTo As sockaddr_in, ByVal tolen As Long) As Long

Sub MainWnd_Destroy()
udp_DestroyObjects()
PostQuitMessage(0)
End Sub

Sub MainWnd_CommandButton1_Click()

'IPアドレス、ポート番号、ソケット
Dim destSocket As Dword

'sockaddr_in 構造体
Dim destSockAddr As SOCKADDR_IN

'各種パラメータ
Dim toSendText[256] As Byte
lstrcpy(toSendText,"Test")

'************************************************************
'* Windows 独自の設定 *
Dim wsaData As WSADATA
WSAStartup(MAKEWORD(2,0), wsaData)

'* 相手先アドレスの入力 *
'* sockaddr_in 構造体のセット *
ZeroMemory( VarPtr(destSockAddr), Len(destSockAddr))
destSockAddr.sin_port = htons(1234)
destSockAddr.sin_family = AF_INET
destSockAddr.sin_addr = inet_addr("127.0.0.1")

'* ソケット生成 *
destSocket = socket(AF_INET, SOCK_DGRAM, 0)
'* パケット送出 *
sendto ( destSocket, toSendText,lstrlen(toSendText)+1, 0, destSockAddr , len(destSockAddr ))
MessageBox( 0,Str$(GetLastError()), "sendto", MB_OK)

'* Windows 独自の設定 *
closesocket(destSocket)
WSACleanup()

End Sub

[/hide]

私はUDP通信に関することは一切わかりませんが。

第２パラメータがString型での指定が影響してると思います。
そこでbuf As Stringをbuf As *Byteに直してみてください。
修正後
Declare Function sendto Lib "wsock32.dll" (ByVal s As Long, buf As *Byte, ByVal lngLen As Long, ByVal flags As Long,ByRef sTo As sockaddr_in, ByVal tolen As Long) As Long
念のためご確認願います。

String型は特殊な型をもつ変数です。またWin32 APIには対応してないようです。
詳細はトップページにあるヘルプセンターをご確認ください。
よろしくお願いいたします。

ユーザー名が消えてしましました。
前記は、質問者からの書き込みです。
申し訳ありません。

下記サイトの「UDP クライアント側」を移植してみました。
https://www.katto.comm.waseda.ac.jp/~katto/Class/10/GazoTokuron/code/socket.html

sendto()にて、エラーコード10014（呼び出しでポインター引数を使用するときに、無効なポインター アドレスを検出しました。）
がでます。

どなたか、アドバイスをお願いします。

[hide]

Declare Function inet_addr Lib "ws2_32.dll" (cp As BytePtr) As Long
Declare Function sendto Lib "wsock32.dll" (ByVal s As Long, buf As String, ByVal lngLen As Long, ByVal flags As Long,ByRef sTo As sockaddr_in, ByVal tolen As Long) As Long

Sub MainWnd_Destroy()
udp_DestroyObjects()
PostQuitMessage(0)
End Sub

Sub MainWnd_CommandButton1_Click()

'IPアドレス、ポート番号、ソケット
Dim destSocket As Dword

'sockaddr_in 構造体
Dim destSockAddr As SOCKADDR_IN

'各種パラメータ
Dim toSendText[256] As Byte
lstrcpy(toSendText,"Test")

'************************************************************
'* Windows 独自の設定 *
Dim wsaData As WSADATA
WSAStartup(MAKEWORD(2,0), wsaData)

'* 相手先アドレスの入力 *
'* sockaddr_in 構造体のセット *
ZeroMemory( VarPtr(destSockAddr), Len(destSockAddr))
destSockAddr.sin_family = AF_INET
destSockAddr.sin_port = htons(1234)
destSockAddr.sin_addr = inet_addr("127.0.0.1")

'* ソケット生成 *
destSocket = socket(AF_INET, SOCK_DGRAM, 0)

'* パケット送出 *
sendto ( destSocket, toSendText,lstrlen(toSendText)+1, 0, destSockAddr , len(destSockAddr.sin_addr ))
Sleep(5000)

MessageBox( 0,Str$(GetLastError()), "sendto", MB_OK)

'* Windows 独自の設定 *
closesocket(destSocket)
WSACleanup()

End Sub
[/hide]

UDP通信の仕方を教えて下さい。
WinSockが使えそうですがサンプルが無く困っています。
送信サンプルコードだけでも頂ければ助かります。