November 19, 2008 02:13am pst

1. saurabh726 28,750
2. zorvek 22,970
3. RobSamp... 17,364
4. byundt 13,700
5. irudyk 12,600
6. rorya 10,730
7. brettdj 10,000
8. webtubbs 9,200
9. robberbaron 8,625
10. patrickab 8,000
11. GrahamSkan 7,500
12. jpaulino 7,000
13. emoreau 6,500
14. mlmcc 6,490
15. purplepo... 6,375
16. Idle_Mind 5,500
17. ssaqibh 5,325
18. boag2000 4,875
18. Psychotec 4,875
20. matthews... 4,300
21. capricorn1 4,000
22. nutsch 3,700
23. sstampf 3,600
24. danaseaman 3,275
25. TheLearn... 3,250

1. saurabh726 30,750
2. zorvek 30,470
3. RobSamp... 24,664
4. rorya 23,430
5. byundt 19,700
6. patrickab 19,405
7. Idle_Mind 17,500
8. sirbounty 15,900
9. robberbaron 14,425
10. irudyk 12,600
11. GrahamSkan 12,000
12. mlmcc 10,790
13. brettdj 10,000
14. webtubbs 9,200
15. capricorn1 8,589
16. emoreau 8,500
17. jeverist 8,000
18. jpaulino 7,000
19. purplepo... 6,375
20. JohnBPrice 6,240
21. dirknibleck 6,172
22. danaseaman 5,675
23. chris_bot... 5,436
24. PaulHews 5,375
25. ssaqibh 5,325

10.05.2008 at 09:24PM PDT, ID: 23789491 | Points: 200

	[x] Attachment Details

Winsock problems

Asked by POSiTrack in WInsock, Visual Basic v1.0.5.x, Microsoft Programming

Tags: Microsoft, Visual Basic, 6.0

I am attempting to send an XML string to an IP address using winsock. Specifically 127.0.0.1 port 1010. When I send a text file it works properly but when I try to create the same file in a text box or in a procedure it doesn't work. I am attaching the VB6 app I am trying to use. The XML string I am creating is the same as in the text file on C:.Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

           
           
             Dim strFile As String, strXML As String
strXML = "<ParataRds_Msg>"
strXML = strXML & "<Msg_Header>"
strXML = strXML & "<Version>6.6</Version>"
strXML = strXML & "<Msg_ID>foo</Msg_ID>"
strXML = strXML & "<MsgType>REQUEST</MsgType>"
strXML = strXML & "<RequestType>GetAllNdcStatus</RequestType>"
strXML = strXML & "</Msg_Header>"
strXML = strXML & "</ParataRds_Msg>"
strFile = strXML
'strFile = "C:\GetAllNDC.txt"
    Dim Buffer() As Byte, P As Long, strData As String
    iFileNum = FreeFile
    Open strFile For Binary Access Read Lock Write As iFileNum
    ReDim Buffer(lngMIN(LOF(iFileNum), PacketSize) - 1)
    Get iFileNum, , Buffer ' read data
    SckSendFile.SendData CStr(LOF(iFileNum)) & ","  
    P = InStrRev(strFile, "\")
    SckSendFile.SendData Mid(iFileNum, P + 1) & ":" 
    SckSendFile.SendData Buffer

           
         

Keywords: Winsock problems

	Title
1	winsock control
2	Winsock reset
3	WinSock Error Code
4	WinSock control and ASP.NET
5	request multiple pages
6	Winsock in ActiveX DLL

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628