|
Hello there
I have a desktop application using webservices at backend. the problem is when I upload the file of more then 100MB it says after some time that "Connection time out". I increased the IIS - webservice time out property but even now the error is coming. my idea is that it is coming due to connection time out property of desktop application.
any information or suggestion will be appreciated to remove the bug
|
|
|
|
|
Hi,
I'm trying to send a windows message from vb6 to a vb.net app. The problem is that I can recieve a message, but the string I send with it is not recieved correctly by the vb.net app. When I try to put it back into a string again I get garbage.
Here is some code from the sending app (vb6):
<code>Private Sub cmdSendData_Click()
Dim sString As String
Dim lHwnd As Long
Dim cds As COPYDATASTRUCT
Dim buf(1 To 255) As Byte
sString = Trim$(txtString)
If sString = "" Then Exit Sub
'
' Get the handle of the target application's visible window.
'
lHwnd = FindWindow(vbNullString, cWINDOW_TITLE)
'
' Copy the string into a byte array,
' converting it to ASCII. Assign lpData
' the address of the byte array.
'
Call CopyMemory(buf(1), ByVal sString, Len(sString))
With cds
.dwData = 3
.cbData = Len(sString) + 1
.lpData = VarPtr(buf(1))
End With
'
' Send the string.
'
Call SendMessage(lHwnd, WM_COPYDATA, Me.hwnd, cds)
End Sub</code>
And here is the recieving app(vb.net):
<code> Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = MainForm.WM_COPYDATA Then
Dim data As CopyData
Dim message As String
' get the data...
data = CType(m.GetLParam(GetType(CopyData)), CopyData)
message = Marshal.PtrToStringAuto(data.lpData, data.cbData \ Marshal.SystemDefaultCharSize)
' add the message
Messages.Items.Add(String.Format("{0}: {1}", DateTime.Now.ToShortTimeString(), message))
' let them know we processed the message...
m.Result = New IntPtr(1)
Else
MyBase.WndProc(m)
End If
End Sub
Private Const WM_COPYDATA As Integer = &H4A
<StructLayout(LayoutKind.Sequential)> _
Private Structure CopyData
Public dwData As IntPtr
Public cbData As Integer
Public lpData As IntPtr
End Structure</code>
If I send the same message from a vb.net app then everything works.
Can anyone tell me what I'm doing wrong?
Thanks!
|
|
|
|
|
ok fixed it!
changes (in the .net code):
[code]
'message = Marshal.PtrToStringAuto(data.lpData, data.cbData \ Marshal.SystemDefaultCharSize)
Dim B(255) As Byte
Marshal.Copy(data.lpData, B, 0, 255)
message = System.Text.Encoding.Default.GetString(B)
[/code]
|
|
|
|
|
In VB.NET that permission read and write file .XML.
In Visual Basic, Can I do similar VB.NET?
|
|
|
|
|
|
|
try XML DOM object in vb6 add it from references.
|
|
|
|
|
In VB.NET that permission read and write file .XML.
In Visual Basic, Can I do similar VB.NET?
|
|
|
|
|
In VB.NET that permission read and write file .XML.
In Visual Basic, Can I do similar VB.NET?
|
|
|
|
|
what kind of english is that ?
i don't understand anything at all...
please re-formulate your question, sir.
TOXCCT >>> GEII power
[toxcct][VisualCalc]
|
|
|
|
|
I have a database in Access and a table is there whose values may change run time.One data report is there to show the report from this table. But datareport is not getting refreshed while changing the values of table. Any solution..?
|
|
|
|
|
I've been trying to override the ListView's Paint event as I need to handle this event in my Windows Forms Project.
I've managed to get the Paint event to fire (as desired) but any items that I add to the ListView are not visible. I am completely clueless when it comes to custom draw controls but I suspect that as I'm overriding the paint event I'm going to need to draw the items I add.
Can anyone point me in the right direction in terms of what I need to do to be able to see the ListViewItems that I add to my custom ListView?
Here's the code that I'm using to expose the paint event.
Thanks,
Karl
<br />
Imports System<br />
Imports System.Drawing<br />
<br />
Public Class MyCustomListView<br />
Inherits ListView<br />
<br />
Public Sub New()<br />
<br />
Me.SetStyle(ControlStyles.UserPaint, True)<br />
Me.SetStyle(ControlStyles.DoubleBuffer, True)<br />
Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)<br />
<br />
End Sub 'New<br />
<br />
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)<br />
<br />
MyBase.OnPaint(e)<br />
<br />
End Sub 'OnPaint<br />
<br />
End Class 'MyCustomListView<br />
|
|
|
|
|
Are you saying that your trying to add items to the ListView inside the Paint event? (Not a good idea BTW!)
Or if your just trying to custom paint the thing, search the artciels for "custom listview" and you'll come up with a few examples. They might have what you're looking for.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Dave Kreskowiak wrote:
Are you saying that your trying to add items to the ListView inside the Paint event? (Not a good idea BTW!)
I'm not trying to add items inside the Paint event. I'd like to get away from that as much as possible. I don't even want to custom paint the thing (if I can get away with that).
All I wanted to do was to expose the ListView's Paint event but ever since I did that (using the code shown in my initial thread) any items that I add to the listview don't show up.
If I comment out the line below, any items I add show up, but then of course the Paint event is not exposed anymore:
<br />
Me.SetStyle(ControlStyles.UserPaint, True)<br />
|
|
|
|
|
hi there,
i have a asp page which display record from the database in my database there are 8 record i sorted the record and display only last 3 record but my srno is same as in database that " 3,4,5" i want my srno to display as "1,2,3" can any body help me
this is code
<%=(1)%>
"><%=rst("fileName")%> <%=rst("reportMonth")%> <%=rst("reportYear")%> <%=rst("status")%>regard
ybasha
|
|
|
|
|
check rst.recordcount plus where is the while loop for your code
while not rst.eof
<td><%=(1)%></td>
<td><%=rst("fileName")%></td>
<td><%=rst("reportMonth")%></td>
<td><%=rst("reportYear")%></td>
<td><%=rst("status")%></td>
rst.movenext
wend
|
|
|
|
|
Hi I am learning VB.Net. Right now my knowledge is all in bits and pieces I want to put all this together so I want ot create a small project that covers all the features of vb.net. Do any of you have guidelines to any such project for a vb.net beginner.
Thanks
|
|
|
|
|
A good beginner level project is an address book.
Use a treeview/listview design. Treeview has a top node for each alphabet letter, and names under each letter. List view shows details when you click on a name. Adda menu and a toolbar. Create forms to allow you to add/edit data. Use a small Access database as the data source. Make sure it is normalized. If you don't know what that means, time to learn. 
This is a good beginner level exercise that uses a variety of controls and their events, requires field level validation, data binding, data access, and sharing data between forms.
Plus you can actually use it when you are done.
|
|
|
|
|
Ok, I am planning out right now a new VB.Net application and am looking for suggestions.
I will be storing the username & passwords inside a SQL table and need suggestions or pointers for code to handle the read/write and decription for verification of the passwords.
This is a system being developed for the Federal Government so a serious level of security is required for this app.
I have been looking through the Microsoft Enterprise Patterns & Practices but am not sure if this is the way to go.
Suggestions?? or Ideas??
David @ Premier
You are only as good as your last project.
|
|
|
|
|
|
Hi All. I have 2 windows application build with Visual Studio Enterprise Architect.
1st one is the actual application and the 2nd one is the installation project.
1st application utilizes 2 crystal 10 reports build with CR10 that comes with the studio.
Then I obfuscate this project and place the exe in 2nd - installation project. After installation everything
works except the crystal reports. I get an error stating: "can not find the report in the manifest file.
Please recompile and try again"
BUT if I recompile WITHOUT obfuscating the project and install it everything works!!!
ANY IDEAS??? What is wrong??
|
|
|
|
|
I'm (beginner) programming a web service with win application, both in VB.NET (VStudio.NET 2003). How can I send messages from Debug class used in web service to output (debug) window in VS? Messages from application side appear in this window.
|
|
|
|
|
I'm getting an error when I try to call my function getPMOhistory().
The error is:
An unhandled exception of type 'System.InvalidOperationException' occurred in system.data.dll
Additional information: ExecuteReader: Connection property has not been initialized. I've bolded the line that is causing the problem.
I've created a class that handles all my data requests and it looks like this:
Imports System.Data
Imports System.Data.OleDb
Public Class DataBroker
Dim gConn As OleDb.OleDbConnection
Dim gDataReader As OleDb.OleDbDataReader
Dim gobjDBCommand As OleDbCommand
Dim goData As OleDbDataReader
Dim gstrSQL As String
Dim gstrPETConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\PET\Data\pet.mdb;User Id=;Password=;"
Dim gstrPMOConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\PET\Data\sr.mdb;User Id=;Password=;"
Const PET As String = "PET"
Const PMO As String = "PMO"
Dim gstrError As String = Nothing
Public Function GetProjectTypes() As DataSet
'If Connect(PET) Then
'gstrSQL = "Select *"
'End If
End Function
Private Function Connect(ByVal strDB As String) As Boolean
If strDB = PET Then
gConn = New OleDbConnection(gstrPETConnString)
Else
gConn = New OleDbConnection(gstrPMOConnString)
End If
Try
gConn.Open()
Connect = True
Catch
Me.ErrorMessage = Err.Number & " " & Err.Description
Connect = False
End Try
End Function
Private Function DisConnect(ByVal strDB As String) As Boolean
gConn.Close()
End Function
Public Function GetPMOHistory() As Boolean
gstrSQL = "SELECT * FROM QUERY1"
gobjDBCommand = New OleDbCommand(gstrSQL, gConn)
If Connect(PMO) Then
QueryResults = gobjDBCommand.ExecuteReader()
Else
Me.ErrorMessage = "Unable to connect to database. Please try again later"
End If
End Function
Public Property ErrorMessage() As String
Get
ErrorMessage = gstrError
End Get
Set(ByVal Value As String)
gstrError = Value
End Set
End Property
Public Property QueryResults() As OleDbDataReader
Get
QueryResults = goData
End Get
Set(ByVal Value As OleDbDataReader)
goData = Value
End Set
End Property
Public Sub New()
End Sub
End Class
|
|
|
|
|
Try moving the gobjDBCommand = New OleDbCommand(gstrSQL, gConn) line into the body of the IF statement like this...
Public Function GetPMOHistory() As Boolean
gstrSQL = "SELECT * FROM QUERY1"
' gobjDBCommand = New OleDbCommand(gstrSQL, gConn) ' FROM HERE
If Connect(PMO) Then
gobjDBCommand = New OleDbCommand(gstrSQL, gConn) ' TO HERE
QueryResults = gobjDBCommand.ExecuteReader()
Else
Me.ErrorMessage = "Unable to connect to database. Please try again later"
End If
End Function
The variable gConn is not initialized until after function Connect() is called so the instantiation of gobjDBCommand is not valid until this time.
...Steve
|
|
|
|
|
Thanks steve.
A while after I posted... I figured it out!
Thanks!
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
