|
That's exactly what I'm trying to do but I still can't get it to work. All I need is this part of the code you provided.
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const adSaveCreateNotExist = 1
Dim uri
uri = "http://www.csdn.net/Images/logo_csdn.gif"
MyPath = ThisWorkbook.Path
ThisFile = MyPath & Application.PathSeparator
Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", uri, False
xml.Send
Set oStream = CreateObject("Adodb.Stream")
oStream.Type = adTypeBinary
oStream.Open
oStream.Write xml.responseBody
oStream.SaveToFile ThisFile, adSaveCreateOverWrite
oStream.Close
Set oStream = Nothing
Set xml = Nothing
When I get to the line
oStream.SaveToFile ThisFIle, adSaveCreateOverWrite
I get an error saying: Run-time error '3004' Write to file failed. Basically I just want the image to be stored in the same folder as my excel file. I may have an error in my file path.
I've tried another example that does work and is very similar to the one you provided but contains a minor problem.
Const adTypeBinary = 1
Const adSaveCreateNotExist = 1
Const TemporaryFolder = 2
Dim oStream ' ADODB.Stream
Dim oFSO ' Scripting.FileSystemObject
Dim xml ' Microsoft.XMLHTTP
Dim sURL
Dim oFil
Dim sImagePath
' create objects
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set xml = CreateObject("Microsoft.XMLHTTP")
Set oStream = CreateObject("Adodb.Stream")
sURL = "http://www.csdn.net/Images/logo_csdn.gif"
' get the temp file...
MyPath = ThisWorkbook.Path
ThisFile = MyPath & Application.PathSeparator & oFSO.GetTempName
xml.Open "GET", sURL, False
xml.Send
oStream.Type = adTypeBinary
oStream.Open
oStream.Write xml.responseBody
' Do not overwrite an existing file
oStream.SaveToFile ThisFile, adSaveCreateNotExist
oStream.Close
' cleanup...
'oFil.Delete
Set oStream = Nothing
Set xml = Nothing
Set oFSO = Nothing
Set oFil = Nothing
The problem with this code is
ThisFile = MyPath & Application.PathSeparator & oFSO.GetTempName
The oFSO.GetTempName creates and stores a .tmp file which is no good to me.
If you could help me figure this out I'd be very grateful
|
|
|
|
|
I got your example to work. Had the filename messed up.
Many thanks for the code!
You saved my life.
|
|
|
|
|
Hello,
I would like to create a program that can unpackprograms that have been packed. In other words I would like to create a program that does the opposite of UPX. For now I just would like to unpack UPX Packed files. Could someone point me to a tutorial or give me some advice on how to do this ??
Thanks
Al968
Avast Antivirus - http://www.avast.com
|
|
|
|
|
Hi all,
im trying to add something to my database if a particular form is open. ive embedded the following IF statement inside a larger if statement.
If form2.Visible = True Then
dsNewRow.Item("UseCaseID") = "2"
End If
The if statement is on form3. The above code doesnt seem to work for some reason, was hoping you guys may be able to help.
Thanks in advance
Jaidev
|
|
|
|
|
It doesn't work because your instance of Form3 doesn't have a reference to the instance of Form2. Your trying to look at the value of Visible as if it were a static property on a class. This is not VB6, where every form existed automatically and globally. Form3 needs a reference to an existing Form2 object passed to it before this will work.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
How do I do this?
I have around 15 different forms, ideally I would like them all to exist automatically and globally, is there a way in which I can do this? so that I can use different forms like in my code.
Thanks in advance.
Jaidev
|
|
|
|
|
The VB6 way is nasty, that's why it's history.
The best way to do it, is to use delegates to pass information between forms. The other way, is to pass your form2 instance in to your form3 instance, so it has a reference to it. Finally, the Application object has a collection of open forms, which you can look through, I believe.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
You can create a static (shared in VB) property in each form class where you store the current instance of the form. In the constructor of the form you store the reference to the instance:
This of course means that you can only create a single form from each form class.
---
single minded; short sighted; long gone;
|
|
|
|
|
Hi,
Thanks for your replies, however I dont fully understand the jargon, would it be possible for you guys to send me example codes on how this can work?
Cheers
Jaidev
|
|
|
|
|
If you don't understand what shared is, you should buy a VB.NET book and work through it. Delegates are widely documented on the web, if you google any of the 'jargon' we've given you, you'll get more detailed examples than you will find in a forum post.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
What ive done is created a new class (class1) in which ive stated my variable.
then ive referenced this class, but its still not working.
form3.
Dim var As New class1()
---------
If var.numberofcalls = 1 Then
dsNewRow.Item("UseCaseID") = "2"
End If
form1.
Dim var As New class1() --> seems to work
class1.
Public Class class1
Public numberofcalls = 0
End Class
Am i pointing in the right direction?
Jaidev
|
|
|
|
|
Perhaps, the problem is, you didn't make the variable 'shared'. Shared means, there's only one instance of the variable across all class instances, which means you can set it in one class, and get it in another, without having to pass an instance around. In C#, it's called 'static'. Google these terms and you should find good examples of how it works.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
How do I create an ESRI shapefile for my Dundas map control
|
|
|
|
|
Don't Dundas have support forums specific for this kind of thing?
|
|
|
|
|
Hi all,
I built client server application which using tcp protocol
example code :
listener = New Sockets.TcpListener(System.Net.IPAddress.Any, PORT_NUM) ...
If im the server and I behind router, i cannot communicate with a client side only if i open a port in my router.
I wonder how all multiplayer's games work if no one needs to open any port?
Can it be the server side is a not a home computer but a real server that control many clients?
Should i need to run a thread in the server that manage all players (all players are the clients?) ?
if this the way (using a thread that always run in the server and manage all players from home computers which are the clients)
What will happened if the thread stuck or the server shutdown, this will kill all users(players).
Ill appreciate any help building multiplayer's gaming manage by server side (or any other good technology for multiplayer's games using router)
|
|
|
|
|
As the game server has to work as a server, it has to have a port open in the firewall, regardless if it's a real server or just a regular computer acting as a server.
The server will have an application running that handles the traffic from the player's computers. How you choose to use threading depends on how you communicate with the player's computers, and what else the application should do. A web server for example uses a thread pool and handles each page request in a separate thread.
---
single minded; short sighted; long gone;
|
|
|
|
|
how could an image be captured from an avi file in vb.net?
|
|
|
|
|
There is at least one article on this site that uses the DirectShow wrapper to do it in C#. you could use the DLL and call it from VB.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
hello all,
I have a data grid in vb.net 2003 connected to the database
what I need is to select specific data by choosing the employeeID using comboBox
e.g: comboBox: a.srour
datagrid: view a.srour details ....
|
|
|
|
|
There are definately articles on the site for putting a combo box inside a data grid.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
thank u Christian Graus, but what i want that the combobox outside the datagrid, it is a kind of filter.
select a value from comboBox for its details to be viewed in the datagrid
srour_costavo@hotmail.com
|
|
|
|
|
Oh, OK. That's even easier. You just handle the index changed event on the combo, and run fresh SQL to fill the grid based on the selection. The combobox lets you store a value that's associated with each string entry, so you can hide the Id you need in there.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
ok man but the real problem is in the syntax, the concept is understood,
the help I need is syntax help would u do that
srour_costavo@hotmail.com
|
|
|
|
|
To be honest, I can't. How are you accessing your database ? What sort of database is it ? What value do you want to use to select your values ? What is your database schema ? I can't provide more direct help without all of that info, and if you can't do it, I'm wondering which bit you're stuck on ? Can you access your database at all ?
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
''The SQL select Command
Private Sub conn()
dt = ProfileDAO.ExecuteStrDt("SELECT [ComputerName], [Comming], [Leaving], [TotalTime], [IncludeTotalTime], [OverTime],[overtimeckh] FROM [HR].[dbo].[WorkingHours] )
DGtimeS.DataSource = dt
End Sub
' I am Accessing the db without problems
' the comboBox is also connected to db and retriving data without problems
Private Sub ttt1()
Dim FullName1 As String
Dim i As Integer
dt = ProfileDAO.ExecuteStrDt("Select EmployeeID, FirstName, fatherName, LastName from Employees order by FirstName")
Me.CmbEmployees.Items.Clear()
With CmbEmployees
For i = 0 To dt.Rows.Count - 1
FullName1 = dt.Rows(i)(1) & " " & dt.Rows(i)(2) & " " & dt.Rows(i)(3)
.Items.Add(New Mylist(FullName1, dt.Rows(i)(0)))
Next
End With
End Sub
'what i want is to connect the combo box and the data grid
'vb 2003 & sql 2000
is that possible
& if u give me ur email i may send u code of the app
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
