Clone MSN

28/12/2009

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;

Diego Rosa.

Curtir t�pico + 0

Responder