Como no he tenido manera de hacer funcionar el file_put_contents, me hecho una mierda de codigo en VB6 es lo mas cutre del mundo pero funcionar funciona
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
Dim Photo, X_ini As Long, X_fin As Long, Y_ini As Long, Y_fin As Long, Zoom As Long, Ample As Long, Alt As Long, Amplada_logo_icc As Long
Dim Offset_x As Long, Offset_y As Long, Coord_x As Long
Dim Y As Integer
Dim x As Integer
#2 instala PHP sobre windows, mete el script 'ejemplo.php' dentro de la carpeta donde esté PHP.exe instalado y ejecuta el script ahí mismo: c:PHP>php.exe ejemplo.php
Por otro lado, si no tienes el PHP 5.x.x puede cambiar la funcion SaveImage por esta:
Y para terminar... y ya que estas puesto en VB, te podrías currar una pequeña aplicación que poniéndole las coordenadas y la ruta de descarga, te pillara las fotos no ?
Comentarios
He puesto comas en las etiquetas
el file_put_contents sólo funciona a partir de PHP 5...
Corregida la etiqueta programación, ponía progamación.
Como no he tenido manera de hacer funcionar el file_put_contents, me hecho una mierda de codigo en VB6 es lo mas cutre del mundo pero funcionar funciona
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
Dim Photo, X_ini As Long, X_fin As Long, Y_ini As Long, Y_fin As Long, Zoom As Long, Ample As Long, Alt As Long, Amplada_logo_icc As Long
Dim Offset_x As Long, Offset_y As Long, Coord_x As Long
Dim Y As Integer
Dim x As Integer
X_ini = 415867
X_fin = 436155
Y_ini = 4592290
Y_fin = 4572066
Zoom = 1
Ample = 1200
Alt = 1000
Amplada_logo_icc = 60
Offset_x = Ample - Amplada_logo_icc
Offset_y = Alt
Coord_x = X_ini + (x * Offset_x)
contador = 0
bytes_escritos = 0
MsgBox (CInt((Y_ini - Y_fin) / Offset_y) + 1) * (CInt((X_fin - X_ini) / Offset_x) + 1)
For Y = 0 To CInt((Y_ini - Y_fin) / Offset_y) + 1
coord_y = Y_ini - (Y * Offset_y)
For x = 0 To CInt((X_fin - X_ini) / Offset_x) + 1
Coord_x = X_ini + (x * Offset_x)
Photo = "http://shagrat.icc.es/lizardtech/iserv/getimage?cat=orto5m&item=iserv-catalog-index&cp=" & Coord_x & "," & coord_y & "&lev=" & Zoom & "&wid=" & Ample & "&hei=" & Alt & "&oif=jpg&geo=true"
Text1.Text = Photo
errcode = URLDownloadToFile(0, Photo, App.Path & "" & "OrtoBarta_Col_" & x & "Fila" & Y & ".jpg", 0, 0)
contador = contador + 1
Next x
Label1.Caption = contador
DoEvents
Next Y
End Sub
ya ya pero que no he encontrado ningun server de ningun colega que tenga php5 asi que .... jajaja
#2 instala PHP sobre windows, mete el script 'ejemplo.php' dentro de la carpeta donde esté PHP.exe instalado y ejecuta el script ahí mismo: c:PHP>php.exe ejemplo.php
Por otro lado, si no tienes el PHP 5.x.x puede cambiar la funcion SaveImage por esta:
function saveImage($url, $nombre)
$cadena = file_get_contents($url);
$bytes = fopen($nombre,"w");
fputs ($bytes, $cadena);
fclose ($bytes);
return $bytes;
">
Y para terminar... y ya que estas puesto en VB, te podrías currar una pequeña aplicación que poniéndole las coordenadas y la ruta de descarga, te pillara las fotos no ?
Un saludo
es que soy vago por naturaleza
:D