ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.Button1Click(Sender: TObject);  
var  http:thttpsend;  res,data:string;  
begin  
//создаём обьект  
http:=thttpsend.Create;  
//формируем заголовок для отправления  
http.Headers.Append('Connection: close');  http.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.7) Gecko/2009021910 Firefox/3.0.7';  http.MimeType:='application/x-www-form-urlencoded';  
//формируем данные для ПОСТ запроса  data:='name='+edit1.Text+'&password='+edit2.text+'&x=0&y=0';  http.Document.Write(Pointer(data)^, Length(data));  
//посылаем запрос 
 if http.HTTPMethod('POST','http://www.proplay.ru') then     
begin       
//обрабатываем ответ     SetLength(res,http.Document.Size);  	 
http.Document.Read(pointer(res)^,http.Document.Size);     
if pos('301',http.Headers.Text)<>0 then     
begin label3.Caption:='Авторизация прошла успешно';     end  else      label3.Caption:='Авторизация не удалась';     end     else  showmessage('Ошибка подключения');  
//чистимся  
http.Free;  end;    end.