|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Manual |
 |
|
|
Manual para integrar el Índice IBP en aplicaciones de escritorio o Web
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”.
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
|
