tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルwinsock
記事No13434
投稿日: 2009/02/18(Wed) 12:42
投稿者JT
初めまして 画面上でサーバとクライアントで一つずつコントロールを持っていてクライアントソケットボタン(コマンドボタン2)を押下したらテキストデータにいれた文字がサーバから返ってくる処理になります。会社で使っているものなのでここに置いてはいけないんですがsockman.exeという仮想通信で現在作成しているんですがクライアントの送受信が実行時エラー”400006”とでて解説を見たんですが理解できません ご教示お願いします

Option Explicit
Dim GetId As Long
Dim intGetPort As Integer
Dim strMaxData As String
Dim intGetData As Integer
Dim intLoop As Integer
Dim intConnectMax As Long

Private Sub Cmd1_Click()
'Win_Send.Protocol = sckTCPProtocol
Win_Send.Connect (Txt2.Text), Txt3.Text
Win_Send.SendData (Txt1.Text)
End Sub

Private Sub Cmd2_Click()
Win_Recv.LocalPort = Txt3.Text
Win_Recv.Listen
Cmd2.Enabled = False
End Sub

Private Sub Cmd4_Click()
Win_Recv.Close
Win_Send.Close
End Sub

Private Sub Form_Load()
Form1.Caption = "winsock"
Win_Recv.LocalPort = "0"
'Win_Recv.RemoteHost = Txt2.Text
Win_Send.LocalPort = 0
Win_Send.Connect
Win_Send.Protocol = sckTCPProtocol
Win_Send.Connect Txt2.Text, Txt3.Text
End Sub

Private Sub Win_RecvConnectionRequest(Index As Integer, ByVal requestID As Long)
intConnectMax = intConnectMax + 1
Win_Recv.Accept requestID
End Sub


Private Sub Win_RecvDataArrival(Index As Integer, ByVal bytesTotal As Long)
Win_Recv.GetData strMaxData
Win_Recv.SendData StrConv(strMaxData, vbWide)
End Sub
Private Sub Win_SendDataArrival(ByVal bytesTotal As Long)
Win_Send.GetDatastrmaxdata
End Sub

Private Sub Win_Recv_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

End Sub

[ツリー表示へ]
タイトルRe: winsock
記事No13435
投稿日: 2009/02/18(Wed) 13:38
投稿者YuO
とりあえず,情報共有のためのリンク
http://www.play21.jp/board/formz.cgi?resno=28927&id=dixq

[ツリー表示へ]
タイトルRe^2: winsock
記事No13436
投稿日: 2009/02/18(Wed) 13:46
投稿者JT
> とりあえず,情報共有のためのリンク
> http://www.play21.jp/board/formz.cgi?resno=28927&id=dixq

ありがとうございます。自力で頑張ってますが限界です

[ツリー表示へ]
タイトルwinsock(現状)
記事No13438
投稿日: 2009/02/18(Wed) 15:16
投稿者JT
win_sendのエラーになりうまく行きません><

Option Explicit
Dim intGetId As Integer
Dim intGetPort As Integer
Dim strMaxData As String
Dim intGetData As Integer
Dim intLoop As Integer
Dim intConnectMax As Long

Private Sub Cmd1_Click()
Win_Send.RemoteHost = Txt2.Text
Win_Send.RemotePort = Txt3.Text
Win_Send.Protocol = sckTCPProtocol
Win_Send.Connect Txt2.Text, Txt3.Text
End Sub

Private Sub Cmd2_Click()
Win_Recv.LocalPort = Txt3.Text
Win_Recv.Listen
Cmd2.Enabled = False
End Sub

Private Sub Cmd3_Click()
Win_Send.SendData Txt1.Text
End Sub

Private Sub Cmd4_Click()
Win_Recv.Close
Win_Send.Close
End Sub

Private Sub Form_Load()
Form1.Caption = "winsock"
Win_Recv.LocalPort = "0"
Win_Send.LocalPort = 0
Win_Send.Protocol = sckTCPProtocol
Win_Recv.Close
Win_Send.Close

End Sub

Private Sub Win_RecvConnectionRequest(Index As Integer, ByVal requestID As Long)
Win_Recv.Accept requestID
End Sub

Private Sub Win_RecvDataArrival(Index As Integer, ByVal bytesTotal As Long)
Win_Recv.SendData Txt1.Text
Win_Recv.GetData strMaxData
End Sub
Private Sub Win_SendDataArrival(ByVal bytesTotal As Long)
Win_Send.GetData strMaxData
Txt1.Text = strMaxData
End Sub

Private Sub Win_Recv_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Recv_Error"
End Sub

Private Sub Win_Send_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Send_Error"
End Sub

[ツリー表示へ]
タイトルマナーをお守りください
記事No13442
投稿日: 2009/02/19(Thu) 04:39
投稿者花ちゃん
>win_sendのエラーになりうまく行きません><
http://glossary.tank.jp/t024A.html
http://glossary.tank.jp/t01EF.html

マナーを守って下さい。

当サイトをご利用になるのなら、メニューの[初めにお読み下さい]を読んでからご利用
願います。
http://hanatyan.sakura.ne.jp/hazimeni.htm

掲示板をご利用になるのなら、必ず【掲示板ご利用に際し】をよく読んでから
ご利用願います。
http://hanatyan.sakura.ne.jp/hazimeni.htm#keijiban

[ツリー表示へ]