private Sub DownloadPhotoHTTP()
Try
Dim J As HttpJob
Dim URL As String
Dim F As Boolean,FL As Boolean
Dim S As Int,FS As Int
Dim MySQL As String
Dim Cursor1 As Cursor
Dim Res As Boolean
Dim Photo As String
Dim Logo As String
MySQL="select FacilityID,FacilityName,ProviderID,UserID,ProviderPhoto,ProviderName,Address,City,State,Zip,Phone,Logo from tblFacility order by FacilityName"
Cursor1=SQL1.ExecQuery(MySQL)
For i=0 To Cursor1.RowCount-1
Cursor1.Position=i
Photo=Cursor1.GetString("ProviderPhoto")
If Photo="" Then
Continue
End If
F=File.Exists(Main.filedir, Photo)
S=File.Size(Main.filedir, Photo)
If F = False Or s=0 Then
URL= modFun.URLImage & Photo' Let say http://servername/imahes/photo.jpg
j.Initialize("", Me)
j.Download(URL)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim out As OutputStream = File.OpenOutput(Main.FileDir, Photo, False)
File.Copy2(j.GetInputStream, out)
out.Close '<------ very important
Log("Photo " & Photo & " downloaded Ok")
Main.TestRet=True
Else
modFun.ShowError("HTTP Download error " & CRLF & "Try again later with better connection and check if photo exists on a provider profile.")
Main.TestRet=False
End If
j.Release
End If
Next
i=0
If Main.TestRet=False Then
'ProgressDialogHide
'Return
End If
For i=0 To Cursor1.RowCount-1
Cursor1.Position=i
Logo=Cursor1.GetString("Logo")
If Logo="" Then
Continue
End If
FL=File.Exists(Main.filedir, Logo)
FS=File.Size(Main.filedir, Logo)
If FL = False Or FS=0 Then
URL= modFun.URLImage & Logo
j.Initialize("", Me)
j.Download(URL)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim out As OutputStream = File.OpenOutput(Main.FileDir, Logo, False)
File.Copy2(j.GetInputStream, out)
out.Close '<------ very important
Log("Logo " & Logo & " downloaded Ok")
Main.TestRet=True
Else
modFun.ShowError("HTTP Download error. Try again later with better connection. Also check if the profile has a photo.")
Main.TestRet=False
End If
j.Release
End If
Next
Log("DownloadPhotoHTTP " & Main.TestRet)
CallSubDelayed(Me,"DownloadPhotoHTTP_Complete")
Catch
Log("DownloadPhotoHTTP " & LastException)
modFun.ShowError("DownloadPhotoHTTP " & LastException)
Main.TestRet=False
End Try
End Sub
Try Log the URL
Log(URL)FTP is not an option if you want to secure your traffic.
I only made the suggestion because he is using his own PC as a server, so it appeared to be a personal app, not needing high security.
Ok, but regular http is better.
You mean you created a dns or set your servername map to your server IP by editing C:\Windows\System32\drivers\etc\hosts ?
I mean that I have in my database a url to the server. It might be anywhere on the Internet. I just pull it from the DB by using modFun.URLImage function that does this job.
I have an VB6 Server, wrote by me, running in a PC. I need to send several info and several pictures from the PC to the phone.
what does it mean NO-IP? You need either set a web site so your server will be accessed like http://servername/image/image.jpg or set up ftp and access to your images like ftp.servername/images/image.jpg where servername either IP (external or internal) or servername on your local network or domain name
