[AJUDA] - ENVIO POST PARA ARQUIVO PHP....

FABRICIOPOHLMAN 01/03/2010 17:47:53
#335711
Amigos no caso do Delphi a função abaixo usando um componente IdHTTP1 da paleta INDY, resolve o problema com perfeição, minha duvida é possivel fazer isso em VB6?

Segue o codigo abaixo


procedure TForm1.EnviaPHP(texto, destinatario, assunto, remetente: string);
var
Lista: TStringList;
begin
Lista:=TStringList.Create;
try
Lista.Clear;
Lista.Add([ô]email=[ô] + destinatario);
Lista.Add([ô]from=[ô] + remetente);
Lista.Add([ô]subject=[ô] + assunto);
Lista.Add([ô]message=[ô] + texto);
try
IdHTTP1.post([ô]http://meusite.com.br/envio.php[ô],Lista);
except
MessageBox(0,[ô]Erro no Envio.[ô],[ô]Erro[ô],MB_ICONERROR);
end;
finally
MessageBox(0,[ô]Informações enviadas com sucesso![ô],[ô]Informação[ô],MB_ICONINFORMATION);
end;
end;
HENDELLCARDOSO 01/03/2010 18:05:37
#335717
VEJA SE SERVE...

Public Function EnviaPHP(Texto As String, Destinatario As String, Assunto As String, Remetente As String)
On Error Resume Next
Dim UrlBase As String
Dim WinHttpReq

Set WinHttpReq = CreateObject([Ô]WinHttp.WinHttpRequest.5.1[Ô])

UrlBase = [Ô]http://meusite.com.br/envio.php?[Ô]
WinHttpReq.Open [Ô]GET[Ô], UrlBase & [Ô]email=[Ô] & Destinatario & [Ô]&from=[Ô] & Remetente & [Ô]&subject=[Ô] & Assunto & [Ô]&message=[Ô] & Texto
WinHttpReq.Send

EnviaPHP = WinHttpReq.ResponseText

End Function
FABRICIOPOHLMAN 02/03/2010 09:39:04
#335747
hendell agradeço a força mas ainda nao consigo fazer funcionar o exemplo na frente do enviaphp pede uma funçao de =

Private Sub Command1_Click()
Dim texto, destino, assunto, enviador As String
...
EnviaPHP(texto,destino,assunto,enviador) [compilador da erro aqui pedindo sinal de = ]
End Sub



Fiz algumas pequenas alteraçoes e o erro passo para o inicio do comand1 qdo eu clico nele

Public Function EnviaPHP(texto As String, Destinatario As String, assunto As String, Remetente As String)
On Error Resume Next
Dim UrlBase As String
Dim WinHttpReq

Set WinHttpReq = CreateObject([Ô]WinHttp.WinHttpRequest.5.1[Ô])

UrlBase = [Ô]http://198.170.100.3/images/envio.php?[Ô]
WinHttpReq.Open [Ô]POST[Ô], UrlBase & [Ô]&email=[Ô] & Destinatario & [Ô]&from=[Ô] & Remetente & [Ô]&subject=[Ô] & assunto & [Ô]&message=[Ô] & texto
WinHttpReq.send

EnviaPHP = WinHttpReq.responseText
End Function
FABRICIOPOHLMAN 02/03/2010 10:32:02
#335752
hendell vlw pela força eu fiz o q postou e nao deu muito certo fiz algumas altareções GET PARA POST e o compilador para no inicio do comand1 sem dar msg de erro especifico

Public Function EnviaPHP(texto As String, Destinatario As String, assunto As String, Remetente As String)
On Error Resume Next
Dim UrlBase As String
Dim WinHttpReq

Set WinHttpReq = CreateObject([Ô]WinHttp.WinHttpRequest.5.1[Ô])

UrlBase = [Ô]http://198.170.100.3/images/envio.php[Ô]
WinHttpReq.Open [Ô]POST[Ô], UrlBase & [Ô]&email=[Ô] & Destinatario & [Ô]&from=[Ô] & Remetente & [Ô]&subject=[Ô] & assunto & [Ô]&message=[Ô] & texto
WinHttpReq.send

EnviaPHP = WinHttpReq.responseText
End Function



Private Sub Command1_Click()
Dim texto, destino, assunto, enviador As String
texto = [Ô]corpotext[Ô]
destino = [Ô]meuemail@gmail.com[Ô]
assunto = [Ô]assunto[Ô]
enviador = [Ô]enviador@gmail.com[Ô]

EnviaPHP(texto,destino,assunto,enviador)

End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar