Manual per a integrar l'Índex IBP en aplicacions d'escriptori
Per a accedir des d'un programa o Web a l'índex IBP s'han de seguir els següents passos:
Llegir l'arxiu que conté les dades de la ruta GPS (traça).
Símplemente accedint a l'arxiu i llegint tot el seu contingut.
Exemple en VB:
Set f = fso.OpenTextFile(sfilename, ForReading)
BodyText = f.ReadAll
f.Close
Set f = Nothing
Enviar per “post”.
Per a enviar per post el format ha de ser exactament igual que si s'envia un formulari Web.
Enviem el contingut que hem llegit utilitzant el mètode post a la Web:
http://www.ibpindex.com/esp/ibpresponse.asp
FITXER: és el contingut de la traça.
El tipus d'aquestes dades serà: “Content-Disposition: multipart/form-data;”
A l'enviar el contingut de l'arxiu haurem d'afegir algunes dades més:
MOD: és el tipus de traça i els valors possibles són: Carretera o BTT
UDO: és l'origen de l'escaneig i el valor ha de ser la web des d'on s'envia la petició o bé el nom del programa.
El tipus d'aquestes dades serà: “Content-Disposition: form-data;”
Exemple en VB:
Es construeix el cos del missatge per a enviar per 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)
Llegir la resposta que torna la web.
S'envia el contingut bytpostdata i strHeader per post a l'adreça i es rep com a resposta l'Índex IBP
| < Anterior |
|---|
