Manual para integrar el Índice IBP en aplicaciones de escritorio (VB)
Para acceder desde un programa o Web al índice IBP se deben seguir los siguientes pasos:
Leer el archivo que contiene los datos de la ruta GPS (track).
Simplemente accediendo al archivo y leyendo todo su contenido.
Ejemplo en VB:
Set f = fso.OpenTextFile(sfilename, ForReading)
BodyText = f.ReadAll
f.Close
Set f = Nothing
Enviar por “post”.
Para enviar por post el formato debe ser exactamente igual que si se
envía un formulario Web.
Enviamos el contenido que hemos leído usando el método post a la Web:
http://www.ibpindex.com/esp/ibpresponse.asp
FICHERO: es el contenido del track.
El tipo de estos datos será: “Content-Disposition: multipart/form-data;”
Al enviar el contenido del archivo tendremos que añadir algunos datos más:
MOD: es el tipo de track y los
valores posibles son: Carretera o BTT
UDO: es el origen del escaneo y el valor debe ser la web desde donde se
envia la petición o bien el nombre del programa.
El tipo de estos datos será: “Content-Disposition: form-data;”
Ejemplo en VB:
Se construye el cuerpo del mensaje para enviar por post.
strHeader = "Content-Type: multipart/form-data boundary=" _
+ boundary + Chr(10) + Chr(13)
varPostData = boundary & vbNewLine & "Content-Disposition: form-data;
name=""MOD""" & vbNewLine & vbNewLine & “BTT” & vbNewLine
varPostData = varPostData & boundary & vbNewLine & "Content-Disposition:
form-data; name=""UDO""" & vbNewLine & vbNewLine & "PROGRAMA" & vbNewLine
varPostData = varPostData & boundary & vbNewLine & "Content-Disposition:
multipart/form-data; name=""fichero""; filename=""Mitrack.trk"" & vbNewLine & "Content-Type: text/plain;" & vbNewLine & vbNewLine & BodyText & vbNewLine & boundary & "--"
ReDim bytpostdata(Len(varPostData))
bytpostdata = StrConv(varPostData, vbFromUnicode)
Leer la respuesta que devuelve la web.
Se envía el contenido bytpostdata y strHeader por post a la dirección y se recibe como respuesta el Índice IBP
