|
I'm encountering problems when i want to download files from my server to my clients. My client is able to connect to my server but it will never transfer the file over to my client and i am unable to solve it.
Private Sub btnDL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDL.Click
btnDL.Enabled = True
btnRef.Enabled = True
btnULAbort.Enabled = True
Try
Disconnect()
Catch ex As Exception
End Try
Dim Message As String = "[RequestFileDownload]"
'SelectedItems(0) so that it knows to get the item from column 0 which is name
Message += ListView1.SelectedItems(0).Text
Dim filename As String
If ListView1.SelectedItems.Count < 1 Or ListView1.SelectedItems.Count > 1 Then
MsgBox("Please select a file")
Exit Sub
Else
client = New TcpClient
client.Connect("152.226.152.179", portNo)
btnDL.Enabled = False
SendMessage(Message)
client.GetStream.BeginRead(msgData, 0, CInt(client.ReceiveBufferSize), AddressOf RReceiveMessage, Nothing)
'MsgBox(FileRequest)
If FileRequest = "[DLTotalBytes]" Then
Dim DLTotal As String
DLTotal = FileRequest.Remove(0, 14)
FTP_Send(filename, "152.226.152.179")
End If
FTP_Receive(filename)
End If
End Sub
Public Sub FTP_Receive(ByVal filename As String)
Try
'---get the local IP address
Dim localAdd As System.Net.IPAddress = System.Net.IPAddress.Parse(ips.AddressList(0).ToString)
Dim nws As NetworkStream = client.GetStream
'---delete the file if it exists
If File.Exists("C:\Documents and Settings\user\My Documents\My Received Files" & filename) Then
File.Delete("C:\Documents and Settings\user\My Documents\My Received Files" & filename)
End If
'---create the file
fs = New System.IO.FileStream("C:\Documents and Settings\user\My Documents\My Received Files" & filename, FileMode.Append, FileAccess.Write)
Dim counter As Integer = 0
Dim totalBytes As Integer = 0
Do
'---read the incoming data
Dim bytesRead As Integer = nws.Read(msgData, 0, client.ReceiveBufferSize)
totalBytes += bytesRead
fs.Write(msgData, 0, bytesRead)
'--update the status label
ToolStripStatusLabel1.Text = "Downloading " & totalBytes & " bytes...."
Application.DoEvents()
System.Threading.Thread.Sleep(200)
counter += 1
Loop Until Not nws.DataAvailable
ToolStripStatusLabel1.Text = "Downloading " & totalBytes & " bytes....Done."
fs.Close()
client.Close()
Catch x As Exception
End Try
End Sub
|
|
|
|
|
First, you might want to put something inside the Catch x As Exception blocks so you can see the errors you're getting instead of swallowing them without a trace.
Just a quick glance and I can tell you that the paths you're using are illegal. You're doing this:
If File.Exists("C:\Documents and Settings\user\My Documents\My Received Files" & filename) Then
File.Delete("C:\Documents and Settings\user\My Documents\My Received Files" & filename)
End If
'---create the file
fs = New System.IO.FileStream("C:\Documents and Settings\user\My Documents\My Received Files" & filename...
Which will result in a path that looks like this:
C:\Documents and Settings\user\My Documents\My Received FilesSomeFileName.Ext
See something wrong with that path?? I can see three things at a minimum. First, the user better be a legal user name. I hope you're replacing that with the real user name. Second, your code doesn't put a backslash between the end of the directory chain and the filename you appended to it. Third, you shouldn't be building paths with hard-coded path information. You should be using the Path class to build that paths and the Environment class to get the current users profile path. Also, you might want to just build the path once and reuse the variable holding it instead of building the path multiple times.
Private Const FileStoreFolderName As String = "My Received Files"
...
Dim filename As String ' (this should be set to something prior to this code)
Dim userDocumentsPath As String = Environment.GetFolderPath(Environment.MyDocuments)
' This code broken out for clarity
Dim fullReceiveFilePath As String
fullReceiveFilePath = Path.Combine(userDocumentsPath, FileStoreFolderName)
fullReceiveFilePath = Path.Combine(fullReceiveFilePath, filename)
There's a ton of other things wrong with the code, but this is the most glaring. For example, just above this code in your snippet, you (attempt) to get an IPAddress, but you never use it in the rest of the code.
|
|
|
|
|
i need a code to find a data in an excel file all worksheets and if it's find get the all row, i tried to use worksheetfunction but it always failured, i could not find any document about it, have you got? or would you like to help me about this subject
here is my code for match function but it's always return an error that could not find in google because it's turkish
Imports Microsoft.Office.Interop
Module ModuleVedop
Public Function MatchAndGetRowNumber(ByVal Data As String, ByVal ExcelPath As String, ByVal WorkBookname As String) As Double
Try
Dim i As Integer = 0
Dim RowNumber As Double = Nothing
Dim XlApp As Excel.Application = New Excel.Application
XlApp.Workbooks.Open(ExcelPath)
Dim XlWorkSheet As Excel.Worksheet = New Excel.Worksheet
Dim Matchrange As Excel.Range
For Each XlWorkSheet In XlApp.Worksheets
Matchrange = XlApp.Workbooks(WorkBookname).Worksheets(XlWorkSheet.Name).range("A1:Z65536")
RowNumber = XlApp.WorksheetFunction.Match(Data, Matchrange, 0)
Next
If IsError(RowNumber) Then
MsgBox("not found")
Else
MsgBox("Found on row: " & RowNumber)
End If
XlApp.Workbooks.Close()
Return RowNumber
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
|
|
|
|
|
Hi. I am an excellent VB programmer but a poor web programmer. I am trying to get some data off a grid on a web page into a vb app and I am having a terrible time doing it. The site also requires an id and password. The site is http://ctmls.mlxchange.com/ and I'm using VB 6 on Vista.
I don't care what form I get the data in but its not in the source when I view it or save the page. It looks like it is coming from javascript.
I think it changes pages in frames because the address never changes, but the display does. That's why I don't think I can use winsock. Inet doesn't work. I can browse to the page fine with the webBrowser control and see the data.
Here's how I get the data on the screen:
1. Type in URL; go to site
2. Login to site, frame changes
3. Click "Search" from menu, frame changes
4. Type in some criteria, click results
5. Frame loads with a grid with data on I need to get into VB
Here is what the screen looks like after the data is retrieved (with sensitive data blocked out). http://www.marvelousware.com/images/Form.jpg[^]
The Userid is not mine, I am using it to write this program for the owner.
What property(s) or method(s) will return data? Can it be in innerHTML or outerHTML? Or someplace else?
Can I find out what script is getting the data and run it?
What is a proxy? Can a proxy pass the data through? Can it be done in VB?
Otherwise I will have to write OCR code to pull the data off the screen. That doesn't seem like the smartest way, or easiest way.
any help is appreciated, I'll buy a book if anyone knows one that WILL solve this problem.
Thank you.
|
|
|
|
|
Looks as though the HTML is being served up by an ASP script into an iFrame (well at least from the homepage anyway). If this is the case then you will not be able to run the script. But if you look at the source of the iFrame (src attribute) and navigate to it you might be able to see the HTML when viewing source.
|
|
|
|
|
Thanks for the quick reply.
I looked at the source from the IFRAME ()[^]
I found nothing. I tried to navigate to it and didn't even see the logon text boxes. It seems to only work as an inline frame.
Does the data have to be in the HTML? And if not, where else can it come from?
|
|
|
|
|
Did you look at the iFrame source for the homepage or the datagrid page?
And yes, the datagrid in question will almost definately be presented using HTML (the other option is Flash but It doesn't look like Flash to me).
|
|
|
|
|
I looked at the IFRAME source on the homepage, this is what i found:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--
-- UserData.asp
--
-- This page acts as a host page to all the user data that will be used by the application
--
-- IMPORTANT: This page MUST reside in a static folder (e.g. outside 5.0.05.46) as user data
-- is only available in the same directory. If we move this file to a different directory,
-- previously saved user data would be lost.
--
-- IMPORTANT: The page using UserData must not contain a frame named "frameUserData"
--
-- Setup:
-- 1. Include UserData.js
-- <script language="javascript" src="/5.0.05.46/Include/UserData.js"></script>
-- 2. Create the iframe that contains this page. There are two ways of doing this.
-- a) Through javascript. Call CreateUserDataFrame() once before using
-- any other functions in UserData.js
--
-- or
--
-- b) Through html. Have the following html iframe:
-- <iframe src="/Tools/UserData.asp" id="frameUserData" style="display: none;" />
--
-- Usage:
--
--
-->
<HTML xmlns="http://www.w3.org/1999/xhtml" >
<HEAD>
<TITLE>User Data Utility - Host Page</TITLE>
</HEAD>
<BODY style="behavior: url('#default#userData');">
</BODY>
</HTML>
I don't know where it goes next. I tried running the following code when I get to the page:
Private Function PrintDomBegin(hDoc As HTMLDocument) As Long
Dim str As String
Dim str2 As String
Dim ElemColl As Object
'Dim ElemColl As HTMLElementCollection
If Not hDoc Is Nothing Then
frmDetail.List2.Clear
Set ElemColl = hDoc.getElementsByTagName("HTML")
str = PrintDom(ElemColl, str2, 0, 0)
frmDetail.Text1 = str
End If
'PrintDomBegin = ElemColl.Count
End Function
Private Function PrintDom(ByVal ElemColl As Object, ByRef ReturnStr As String, ByVal lngDepth As Long, lngIndex As Long) As String
Dim str As String
Dim strKey As String
Dim strElemName As String
Dim Elem As HTMLDTElement
For Each Elem In ElemColl
lngIndex = lngIndex + 1
strKey = "F: " & Trim(CStr(mlngFrameIndex)) & " - D: " & Trim(CStr(lngDepth)) & " #" & Trim(CStr(lngIndex))
mcol.Add Elem, strKey
'frmDetail.List1.AddItem strKey
strElemName = Elem.getAttribute("ID")
If strElemName = "" Then
strElemName = "" & Elem.getAttribute("name")
If strElemName = "" Then
strElemName = "<no name>"
End If
End If
'If strElemName = "txtLogin" Then Debug.Print Elem.outerHTML
str = Space(lngDepth * 4)
str = str & (strElemName & ": " & Elem.tagName & "(Level " & lngDepth & ")")
ReturnStr = ReturnStr & str & vbCrLf
frmDetail.List2.AddItem str
frmDetail.List2.ItemData(frmDetail.List2.NewIndex) = mlngFrameIndex * 1000000 + lngDepth * 1000 + lngIndex
frmDetail.lblItems = "Count = " & frmDetail.List2.ListCount
If (Elem.canHaveChildren) Then
PrintDom Elem.children, ReturnStr, lngDepth + 1, lngIndex
End If
str = ""
Next
PrintDom = ReturnStr
End Function
I can't get it to work with ElemColl decalred as HTMLElementCollection, but I don't think that it would make much difference. I then searched all the ElemColl objects' properties of .innerHTML, innerText, outerHTML & outerText and can't find anything that is in the grid. I don't know if tis helps, but the grid isn't completely populated when it first comes up, some data is there (that I can't find) but scroll down a little bit and it loads more rows.
Can data be on the screen and not accessable?
Does getElementsByTagName("HTML") return ALL the HTML?
Is there somewhere else I can look?
I don't know what I am missing and where.
|
|
|
|
|
Sorry, but without being able to see the source for the actualy page where the datagrid sits it's just to difficult for mw to help you. Maybe someone more experienced would be able to help?
You may better off posting on the Web Development board and asking how you can get to the HTML for the datagrid which you believe is in an iFrame. Once you have the HTML then ask here how to get the data out.
|
|
|
|
|
Thanks for the help. I'll repost it.
|
|
|
|
|
Hi There,
I have an Application of Laboratory Management.
In this i have created multiple pages to take the results of the tests that has been performed for the patient.
Supposidly, there are 2 Blood Tests out of 10 , 3 Urine Tests out of 8, 2 Stool Tests out of 10.
All these have different Pages and Different Tables to get store.
Now what i want is to print only the tests that have been performed having correct format of print.
I do not know how many Labels i have to use for the display and then print the same page. This will be decided at runtime.
If possible can you plz tell me how to Create a Scrolling Page in VB and Print the same.
Regards,
Kaushal Arora
|
|
|
|
|
Kaushal Arora wrote: Now what i want is to print only the tests that have been performed having correct format of print.
I do not know how many Labels i have to use for the display and then print the same page. This will be decided at runtime.
Why not just use a PDF document, fill in the fields propertly from your code, then display that on your form. The exact same document can be printed from your code or from another PDF reader without modification.
You'd need a 3rd party library to work with the PDF document, something like PDF.NET[^].
|
|
|
|
|
I have to Build a Dynamic Page. How can i do this?
|
|
|
|
|
What do you mean by saying 'dynamic page' a dynamicly created Windows Form or a page created using GDI+ or what else? Your question looks to me like a attempt to let others do your work.
Regards: Didi
|
|
|
|
|
hi,
:laugh:
i have develop new applictaion. ihave create new instance in sqlserver "systemname\instance". this instance not connected, but defalut instance is connected.  what is the problem.........
|
|
|
|
|
Without seeing your code and connection string, it's nearly impossible to tell you what the problem is.
|
|
|
|
|
Hi,
I had some problem with CR which I had posted earlier.
I needed to access a database in LAN environment...it works fine, accept some of the reports.
The solution I got is I need to give the connection information for the report.
I got the following code....
With crConnectionInfo
.ServerName = "YOUR SERVER NAME"
.DatabaseName = "YOUR DATABASE NAME"
.UserID = "YOUR DATABASE USERNAME"
.Password = "YOUR DATABASE PASSWORD"
End With
Now I just want to know what will be my server name, for access database?
Normally, what I used to do is::: I have the database in one server....and i access it through my connection string as follows
provider=......data source=\\MyServer\c:\aa\db1.mdb....;
So in this case...what will be the server name and database name?....Should I give server name as MyServer and database as c:\aa\db1.mdb?
Or should I give the full database path in DatabaseName like i used to do earlier(\\MyServer\c:\aa\db1.mdb).
Please help me out
-----------------------------
I am a beginner
|
|
|
|
|
Hi guys,
I'm supposed to develop a procedure to send SMS from a VB6 app. I have done a lot of research on this. Have information but I honestly dont know what is the major things to do in such an app.
I do not want to connect my phone to my PC, I really just want to send any cell number(regardless the network) to the procedure and have an sms sent 2 that number.
Please assist.
Thanks
|
|
|
|
|
|
Hi
I am looking for a way, to add another shortcut to Windows.
Ctrl-C does copy to clipboard
Ctrl-V does paste from the clipboard
I am looking to add another shortcut - e.g Ctrl-W - that will do the following:
1 - get the last entry from the clipboard
2 - add CRLF
3 - append to it the selected text
4 - copy it back to the clipboard
I am not a Windows developer. I only know VBA.
can someone help on this issue? I saw many posts on the web asking for COPY-APPEND to the clipboard but could not find any solution.
Actually I need it on IE only, But I saw that many are looking for this shortcut to be part of Windows.
Is it so complicated ?
many thanks for any help !!!
|
|
|
|
|
You can use Clipboard.Setdata while Pressing Key CTRL + W.
or Use Sendkeys({CTRL} + C ) while pressing CTRL + W key.
If you can think then I Can.
|
|
|
|
|
thanks for reply but I think I missed you.
Do I need to program it?
I would like to have this copy-append as part of windows. Not in my application.
link ctrl-c, ctr-v let us have ctrl-? to append what's selected to the last clipboard.
hope I am clear.
thanks again
|
|
|
|
|
In the key down event use the e argument to get the details of the key press combination
Then use your own suggestions
1 use the clipboard object to get the data into a var
2 clear the clipboard
3 add crlf to the var
4 add the selected text to the var
5 set the text into the clipboard object
6 informa the user it is ready for pasting.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Just wondering?
Are you still looking? The replies didn't quite enlighten me. I think one was talking about javascript, because of the usage of "var". Sure, you could do it with javascript, on a website... But what about OS-wide.
I don't know, does anyone have an answer, if not let's think about it!
|
|
|
|
|
I wrote a small program in vb.net that calls an external process.
I wanted to share this application between 40 users so I putted the content of the dir DEBUG (visual studio express 2008) into a shared folder and I used caspol to make it Trusted.
What I call in my app is an exe of a platform (PEBL) [http://pebl.sourceforge.net/battery.html] and I use it to execute some proprietary (PEBL) files.
What is STRANGE is this:
-if I share the same application on a shared dir and each client click on it executing the software I am not able to launch the external software for more than a single pc at time.
- IF I use a different publish for my vb.net application (that is, for K users, K different local(or remote) copies of my application, I am able to execute the same process contemporaneously
WHY THIS?
What I see is that if I use a single application shared on a common path [ for clear advantages of centralization] (example: just what you see in "debug" ] on a shared dir the process called does not allow for another client to execute the same external program. IS IT CORRECT? why should I use 40 different copies of my sw with 40 people?
IS IT CORRECT to share the same apps simply coping what includerd in debug?
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
