|
Hi,
I am trying to make a client server form application using VB2005. I am using VS2005 Professional for development.
The problem is as follows:
When more than one client tries to connect to the server. The connection is refused and the Client gets an exception in Connect() method - Target machine actively refused the connection.
This problem occurs only when 2 or more clients try to simultaneously connect to the server. For a single client accessing at a time the problem does not occur.
The code segment is as given below:
-----------1 Module
Imports System.Net.Sockets
Imports System.Net
Public Class FrmMdiParent
Dim WithEvents wsServer As New Winsock2005DLL.Winsock
Private Sub FrmMdiParent_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If wsServer.State = Winsock2005DLL.WinsockStates.Connected Then wsServer.Close()
End Sub
Private Sub FrmMdiParent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
main()
Try
wsServer.MaxPendingConnections = 20
wsServer.LocalPort = 8000
wsServer.Listen()
Catch ex As Exception
MessageBox.Show(ex.Message, "Exceptions Handler!", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub wsServer_ConnectionRequest(ByVal sender As Object, ByVal e As Winsock2005DLL.WinsockClientReceivedEventArgs) Handles wsServer.ConnectionRequest
If wsServer.State = Winsock2005DLL.WinsockStates.Connected Then
MessageBox.Show("Server is busy with other clients.", "Server connection failed!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
wsServer.Accept(e.Client)
End Sub
Private Sub wsServer_DataArrival(ByVal sender As Object, ByVal e As Winsock2005DLL.WinsockDataArrivalEventArgs) Handles wsServer.DataArrival
Try
Dim str As String = ""
wsServer.Get(str)
.........(other statements)
End Select
Catch ex As Exception
MessageBox.Show(ex.Message, "Exceptions handler!", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub wsServer_Disconnected(ByVal sender As Object, ByVal e As System.EventArgs) Handles wsServer.Disconnected
wsServer.Listen()
End Sub
Private Sub mnuItmLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuItmLogin.Click
Select Case mnuItmLogin.Tag
Case 0
' Login
Dim objfrmlogin As New FrmLogin
objfrmlogin.ShowDialog()
Case 1
' Logout
mnuSvrAuth.Enabled = False
mnuItmLogin.Tag = 0
mnuItmLogin.Text = "&Login"
End Select
End Sub
End Class
----------------2 Module
Dim WithEvents winSock1 As New Winsock2005DLL.Winsock
#Region " WinSock events "
#Region " Connected "
Private Sub winSock1_Connected(ByVal sender As Object, ByVal e As System.EventArgs) Handles winSock1.Connected
If isRequest Then
.................
End Sub
#End Region
#Region " Data Arrival "
Private Sub winSock1_DataArrival1(ByVal sender As Object, ByVal e As Winsock2005DLL.WinsockDataArrivalEventArgs) Handles winSock1.DataArrival
Dim str As String = ""
winSock1.Get(str)
.................
End Sub
#End Region
#Region " Error Occured "
Private Sub winSock1_ErrorReceived(ByVal sender As Object, ByVal e As Winsock2005DLL.WinsockErrorEventArgs) Handles winSock1.ErrorReceived
MessageBox.Show(e.Message, "Error Occured from server.", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Sub
#End Region
-----------------
The above exception is thrown when more than 1 clients try to access the server simultaneously.
I am not able to find any solution to this problem, any help will be really useful.
Thanks
-Dev
|
|
|
|
|
Your going to have to contact the people that wrote the Winsock2005 library you're using to get this question answered.
|
|
|
|
|
A project in VB6 had a reference to a DLL. When the project started it made a decision to load this DLL or not load it (based on reading a configuration setting from a file) If it needed to load it it would launch the DLL which opened a separate window.
After upgrading to .NET, I am not sure how this reference equivalent is done, but when I start my project it always loads this DLL, whether or not I want it to. It appears to load it in the InitializeComponent, but I do not understand why, or how I can prevent it from loading the DLL when I start the project. It is after the initializeConponent that the program looks for the config setting to determine it it should load this. Any idea how I need to handle this?
Public Sub New()
MyBase.New()
If m_vb6FormDefInstance Is Nothing Then
m_vb6FormDefInstance = Me
End If
'This call is required by the Windows Form Designer.
InitializeComponent() ' loads my dll here for some reason
End Sub
Any help or point in a good direction is appreciated...
No-e
|
|
|
|
|
I strongly suspect that one of the controls you are using in your upgraded application uses some method/control from the VB6 dll. That is the only way I know that the dll can get loaded in InitializeComponent().
Just in case you don't know how to use the dll in code, here[^] is a link I have found useful in the past, although there are loads more out there.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
I am working on a VB2008 project and added the HelpProvider control to display a .chm file. I had built the .chm file and tested before trying to use. However everytime I tried to display it in my VB application the index tab was empty. When I closed the HTML viewer (which I assume is hh.exe) it caused an exception and displayed the familar "Send Report" dialog. Up on further testing I discovered that I could no longer display any .chm file on my system including the one that had previously worked. It almost seems like something in VS2008 has clobbered a link in my system that no longer will properly display any .chm file that has an index associated with it. Has anyone seen this problem before and/or know of a solution?
|
|
|
|
|
I was finally able to solve my own problem by simply reregistering (regsrv32) the HHCTRL.OCX module. I don't know how the problem started or why this fixed it but it did.
|
|
|
|
|
I am trying to create print designer. Users can drag and place fields according to their needs.i searched many places. could not find a working vb.net sample code. please help thanks in advance
|
|
|
|
|
Well, what have you tried? Can you explain clearer what it is you are trying to construct? Are you simply looking for a working example or are you attempting to create something yourself?
|
|
|
|
|
These two links may help. The first from MSDN should have VB Code Samples, the second, if memory serves is C# but is nonetheless an excellent article on this sort of thing.
Create And Host Custom Designers With The .NET Framework 2.0[^]
hosting-windows-forms-designers/[^]
If they are of no help, what you are trying to do is essentially the same as a 'Drawing' application. Allowing users to place shapes on a surface and move them around. So Google for drawing applications vb.net, sketchpad vb.net and similar phrases.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Hi all,
i'm using web service in my form, this web service return html text format, i want to extract text writen between html tags
Thanks for help
|
|
|
|
|
You can parse the HTML if it is XML, using the DOM. Or you can use regex.
Christian Graus
Driven to the arms of OSX by Vista.
"! i don't exactly like or do programming and it only gives me a headache." - spotted in VB forums.
I can do things with my brain that I can't even google. I can flex the front part of my brain instantly anytime I want. It can be exhausting and it even causes me vision problems for some reason. - CaptainSeeSharp
|
|
|
|
|
Thanks for your help
do you have any paper about this subject
|
|
|
|
|
Well, it's really pretty easy. USe the DOM ( XmlDocument class ) to parse XML, or use the RegEx object to run a regular expression. In both cases, there's tons of info on the web.
Christian Graus
Driven to the arms of OSX by Vista.
"! i don't exactly like or do programming and it only gives me a headache." - spotted in VB forums.
I can do things with my brain that I can't even google. I can flex the front part of my brain instantly anytime I want. It can be exhausting and it even causes me vision problems for some reason. - CaptainSeeSharp
|
|
|
|
|
Hello everybody,
Iam trying to make like xp panel.Here iam unable to move up my 4th panel.
i've 5panels.1main panel,2panels on top and 2 panels on bottom in main panel.
iam unable to move my panel4 "UP" when am unexpanding(pressing up arrow button) my panel2, and getting back to its original height i.e, oldheight when am expanding my panel2....
Please Help me....
Thanks.
modified on Monday, June 22, 2009 5:27 AM
|
|
|
|
|
I think that to get any help you are going to have to reword your question. Currently it makes no sense to me.
What on earth is XP Panel?
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Hello,
Actually XP Panel means is what we see when we double click on my computer at the left hand side.These panels consists of lables 1)View System Information, Change a setting 2)My Network Place, My Documents.I already made this one but the problem is when we click on an up(^) arrow of lets say panel1 then the bottom panels should come up and when we click on down arrow these panels should go to their standard(old) positions.I need the code of how to move those panels when we click on up and down arrows of panels.
Plz Help me
Thanks in advance
modified on Monday, June 22, 2009 7:47 AM
|
|
|
|
|
Have you looked at Full-featured XP Style Collapsible Panel[^]?
If you do not find the answers there, there are plenty more examples on t'interweb.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
I've seen that article but i'm not getting some part of it.i only need how to move the below panels when we click on the up arrow button of a top panel.....
its a small code but dont know y i'm unable to do....
Thanks for your reply..
if u can provide me that code....
thanks.
|
|
|
|
|
mirzamujib wrote: if u can provide me that code....
You show me yours and I, or somebody else, might show you ours!
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
sory i dont get u...
kindly do help.. 
|
|
|
|
|
You show us what you have done so far. Not all of it, just the bit you can't get to work, together with a full explanation of how it doesn't work, error messages etc.
Then if anyone sees a problem they will probably offer some help.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Dear All,
I have a problem whle declaring input and output variable to pass a 'C' based Dll.
The Dll Api is as follows:
int rw_polling(int PortNumber,unsigned char *SelSysCode, unsigned char *IDm, unsigned char *PMm,int *Response)
Function :Send Polling Command to Card
Return :TRUE = succeeded FALSE = failed
Input :
*PortNumber : com port number (1-8)
*SelSysCode(2bytes) : systemcode of target card
Output :
*IDm(8bytes) : IDm from card
*PMm(8bytes) : PMm from card
*Response : 0 = succeeded
1 = Reader Writer is not open
2 = no response (ACK) from reader/writer
3 = check sum error of received data
10 = card is not detected
Problem:
In the above function I want to pass values of the variable
Input Variables
1) PortNumber=1
2) unsigned char *SelSysCode = 2bytes i.e FF and FF
Output variables
3)IDm (8 Bytes)
4) PMm (8 Bytes)
5) Response.
How I tried:
in Declarations:
Declare Function rw_polling Lib "RCS962INSPCT.dll" (ByVal PortNumber As Long, ByRef SelSysCode As Long, ByRef IDm As Long, ByRef PMm As Long, ByRef Response As Long) As Long
While calling through VB Form:
Dim PortNumber As Long
Dim SelSysCode(1) As Byte
Dim IDm(7) As Byte
Dim PMm(7) As Byte
Dim Response As Long
Dim ReturnCode As Long
'PortNumber = cmbComPort.ItemData(Me.cmbComPort.ListIndex)
PortNumber=1
'Here I want to pass value of 2 bytes i.e FF and FF
SelSysCode(0) = &HFF
SelSysCode(1) = &HFF
ReturnCode = rw_polling(PortNumber, VarPtr(SelSysCode(0)), VarPtr(IDm(0)), VarPtr(PMm(0)), Response)
Result: Function is returning false
Response: 10
If Response = 0 Then
pp = "succeeded"
ElseIf Response = 1 Then
pp = "Reader Writer is not open"
ElseIf Response = 2 Then
pp = "no response (ACK) from reader/writer"
ElseIf Response = 3 Then
pp = "check sum error of received data"
ElseIf Response = 10 Then
pp = "card is not detected"
End If
If ReturnCode = 0 Then
txtMsg.Text = Trim(txtMsg.Text) & vbCrLf & pp
txtMsg.Text = Trim(txtMsg.Text) & vbCrLf & "Pooling Fail"
Else
txtMsg.Text = Trim(txtMsg.Text) & vbCrLf & pp
txtMsg.Text = Trim(txtMsg.Text) & vbCrLf & "Pooling Success"
End If
What I want is:
by which way can I pass the value (FF and FF 2bytes) Input Variable for SelSysCode.
I am able to caputre the Response also.
Please anybody help me in this regarding in VB6
Ram
|
|
|
|
|
Why are you still using VB6 in 2009 ?
Vuyiswa Maseko,
Few companies that installed computers to reduce the employment of clerks have realized their expectations.... They now need more and more expensive clerks even though they call them "Developers" or "Programmers."
C#/VB.NET/ASP.NET/SQL7/2000/2005/2008
http://www.vuyiswamaseko.somee.com
http://www.vuyiswamaseko.tiyaneProperties.co.za
vuyiswa@its.co.za
http://www.itsabacus.co.za/itsabacus/
|
|
|
|
|
This is my normal reaction until one of the junior devs found out that passing a struct from C#/VB.net to a C DLL fails whereas using VBA/VB6 works  . I found this so distressing I refused to have anything to do with the project.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
In my company we had VB6 Apps and our main Priority was to get rig of them. and we Did, and never wanted to do anything that is related to it  , i will not attempt to answer vb6 Questions , i cant remember how it is
Vuyiswa Maseko,
Few companies that installed computers to reduce the employment of clerks have realized their expectations.... They now need more and more expensive clerks even though they call them "Developers" or "Programmers."
C#/VB.NET/ASP.NET/SQL7/2000/2005/2008
http://www.vuyiswamaseko.somee.com
http://www.vuyiswamaseko.tiyaneProperties.co.za
vuyiswa@its.co.za
http://www.itsabacus.co.za/itsabacus/
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
