delphi

Смотрите вот есть авторизация ЖМАК надо составить POST запрос чтоб сделать авторизацию на дельфи!

Code:

procedure TForm1.Button1Click(Sender: TObject); 
 var    LoginInfo: TStringList;    Response: TStringStream; 
 begin 
 try      LoginInfo := TStringList.Create;     
 Response := TStringStream.Create('');      
 LoginInfo.Add('login=MyName');      
 LoginInfo.Add('password=MyPass');      
 IdHTTP1.Post('http://mywebsite.xxx/ login.php',LoginInfo,Response);     
 Showmessage(Response.DataString);  
 finally      
 begin       
 Response.Free;        
 LoginInfo.Free;      
 end;   
 end;  
 end;

 

Code:

procedure TForm1.Button1Click(Sender: TObject); 
 var    LoginInfo: TStringList;    Response: TStringStream; 
 begin 
 try      LoginInfo := TStringList.Create;     
 Response := TStringStream.Create('');      
 LoginInfo.Add('login=MyName');      
 LoginInfo.Add('password=MyPass'); 
 LoginInfo.Add('Submit=Login');      
 IdHTTP1.Post('http://megayoutubeviews.com/login-exec.php',LoginInfo,Response);     
 Showmessage(Response.DataString);  
 finally      
 begin       
 Response.Free;        
 LoginInfo.Free;      
 end;   
 end;  
 end;

+ куки

 

как?

 

так.

PHP:

procedure TForm1.Button1Click(Sender: TObject); 
 var    LoginInfo: TStringList;    Response: string; 
 begin 
 try      
LoginInfo := TStringList.Create;         
 LoginInfo.Add('login=MyName');      
 LoginInfo.Add('password=MyPass'); 
 LoginInfo.Add('Submit=Login');   

IdCookieManager1.CookieCollection.Clear;
IdHTTP1.CookieManager :=   IdCookieManager1;
IdHTTP1.AllowCookies:=true;
   
Response:= IdHTTP1.Post('http://megayoutubeviews.com/login-exec.php',LoginInfo);     
 Showmessage(Response);  
 finally          
 LoginInfo.Free;        
 end;  

end;



 

Это лишнее.Свойства "true" будет вполне достаточно.
Все же инди криво работает с куками, ибо при массовом кол-ве запросов потеря 12-20% где-то будет (проверено).Во всяком случае при авторизации на движке DLE так обстоят дела, да и куки с объявленным куки менеджером так же не сохраняются.