|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Internet)
|
|
 |
Título da Dica: Enviando dados via POST com o INET
|
 |
|
|
|
Postada em 3/9/2003 por Ð@®l@n
O componente INET do VB nos permite fazer transmissões de dados via método POST, nos permitindo realizar comunicações, troca de dados, com páginas na web mesmo que estas não tenham sido preparadas para este fim.
A transmissão POST apenas pode ser realizada através do método EXECUTE e não através do método OPENURL. Mas além disso existe um truque para que a transmissão funcione : É necessário enviar ao servidor um cabeçalho indicando o que está sendo transmitido, do contrário o servidor irá ignorar os dados.
Veja um pequeno exemplo :
Inet1.Execute "http://localhost/livro/testalogin.asp", "POST",strData, "Content-Type: application/x-www-form-urlencoded"
Lembre-se que o método execute é assincrono, ou seja, a aplicação não irá parar esperando que ele seja executado. Portanto é necessário que você recupere a resposta do servidor através do método getchunk utilizado no evento statechanged, veja :
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vtdata As String
Dim res As String
If State = 12 Then
Do
vtdata = Inet1.GetChunk(1024, icString)
res = res & vtdata
Loop While Len(vtdata) <> 0
Debug.Print res
End If
End Sub
|
|
|
|
|
