Clone MSN

28/12/2009

1

Peguei na Internet o projeto PixarMSN que é um clone do MSN caso você não conheça. Como Tenho que usar ele numa rede que tem proxy mudei a conexão dele da internet para o Indy 9, já que as configurações de proxy da unit Winnet não estavam funcionando.

Como é realizado um post numa pagina https conforme na função do e-mail abaixo abaixo (function sslget(url,chal:string):string; ), neste momento acaba gerando o erro que está em anexo. Tentei procurar em vários sites referencias de como realizar um comendo post numa pagina https e até o motivo do erro em anexo, mas não obtive sucesso.

Por gentileza poderia passar alguma orientação?

Grato.


function sslget(url,chal:string):string; 

var 

  password, username, Retorno: string; 

  Auth: TIdHTTP; 

  SSLIO : TIdSSLIOHandlerSocketOpenSSL; 

  Pars : TStringList; 

begin 

  password:=form1.passedit.text; 

  username:=form1.useredit.text; 

  Auth:=TIdHTTP.Create(Form1); 

//  Auth.ProxyParams.BasicAuthentication := True; 

//  Auth.ProxyParams.ProxyServer := '192.168.1.2'; 

//  Auth.ProxyParams.ProxyPort := 8080; 

//  Auth.ProxyParams.ProxyUsername := 'felipe'; 

//  Auth.ProxyParams.ProxyPassword := '4293337'; 



  Auth.Request.CustomHeaders.Clear; 

  Auth.Request.CustomHeaders.Add('Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in='+username+',pwd='+password+',{'+chal+' {}}'); 



  Auth.HandleRedirects:=true; 

  SSLIO := TIdSSLIOHandlerSocketOpenSSL.Create(Auth); 

  try 

   Auth.Request.BasicAuthentication := true; 

   Auth.Request.ContentType := 'application/x-www-form-urlencoded'; 

   Auth.Request.UserAgent := 'My agent name'; 

   Auth.IOHandler := SSLIO; 

   SSLIO.Host := 'messenger.msn.com'; 

   SSLIO.Port := 1863; 

   SSLIO.DefaultPort := 1863; 

   SSLIO.SSLOptions.Method := TIdSSLVersion(sslvSSLv23); 

   Auth.Connect; 



   Pars := TStringList.Create; 

   Pars.Add('OrgVerb=GET'); 

   Pars.Add('OrgURL=http://messenger.msn.com'); 

   Pars.Add('sign-in='+username); 

   Pars.Add('pwd='+password); 

   //Auth.Post(URL, Pars, Res); 

   Retorno := Auth.Post(URL, Pars); 

   Result := Retorno; 

  finally 

    Pars.Free; 

  end; 

end; 

Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira