Вроде всё по сниферу делаю. Но тветтер мне просто не отвечает, тоесть если я запрос поставлю в условие if (запрос) then, то это условие не будет выполнено никогда. в синапсе новичок. ТОлько вчера перешёл из - за того, что инди очередной раз тупил с проксями. Собственно код: Code: begin list:=tstringlist.Create; http:=thttpsend.Create; stream:=TStringStream.Create(''); http.Protocol := '1.1'; http.AddPortNumberToHost := False; http.MimeType := 'application/x-www-form-urlencoded'; http.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:11.0) Gecko/20100101 Firefox/11.0'; stream.WriteString('authenticity_token=&user[name]=tipppp&user[email][email protected]&user[user_password]=654588428&user[screen_name]=tipppp1&user[remember_me_on_signup]=&context=front&user[discoverable_by_email]=1&user[send_email_newsletter]=1'); http.Document.LoadFromStream(stream); http.HTTPMethod('post','https://twitter.com/account/create'); showmessage(http.Headers.Text); list.LoadFromStream(http.Document); form1.Memo1.Text:=list.Text; if pos('dropdown-signup',list.Text)=0 then begin showmessage('ok'); end else showmessage('He OK!'); end; Либу для работы с https добавил. Есть у кого нить примеры авторизации в твитере на синапсе?
Кукисы шлеш? Отана эпическая свойство изза которого порт добавляеться. В файл сохрани ответ и смотри. Лог сниффера лучшебы привел что твитер отвечает,
Это свойство наоборот убирает порт. А как в синапсе посмотреть ответ? headers.text это мой запрос, я правильно понимаю? Когда я из программы шлю твиттер ничего не отвечает вроде.
Ну я об этом и говорю, ток узнал я про него только сегодня до этого сорцы руками правил В Headers после запроса хедеры которые тебе серв отдал, сниффером смотри что софт шлет и что ему отвечают.
А какой снифер юзать то, что бы https слушать? В браузере по твоей же наводки юзаю tamper data, а какой для проги юзать? Заголовок который возращает серф следующий: Code: POST /account/create HTTP/1.1 Host: twitter.com Keep-Alive: 300 Connection: keep-alive User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:11.0) Gecko/20100101 Firefox/11.0 Content-Type: application/x-www-form-urlencoded Content-Length: 223
Code: uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ssl_openssl, StdCtrls, httpsend; http.document после запроса остаются таким, как я его и сформировал: Code: authenticity_token=&user[name]=tipppp&user[email][email protected]&user[user_password]=654588428&user[screen_name]=tipppp1&user[remember_me_on_signup]=&context=front&user[discoverable_by_email]=1&user[send_email_newsletter]=1
Ну вроде уже всё правильно, захочу сначало на страницу регистрации, собираю куки, передаю данные для регистрации. и всё равно не могу зарегистрироваться! Code: begin list:=tstringlist.Create; http:=thttpsend.Create; stream:=TStringStream.Create(''); http.AddPortNumberToHost := False; http.MimeType := 'application/x-www-form-urlencoded'; http.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:11.0) Gecko/20100101 Firefox/11.0'; http.HTTPMethod('get','http://twitter.com/signup'); form1.Memo1.Lines.LoadFromStream(http.Document); http.Document.Clear; http.Headers.Clear; stream.WriteString('authenticity_token=&user[name]=tipppp&user[email][email protected]&user[user_password]=654588428&user[screen_name]=tipppp1&user[remember_me_on_signup]=&context=front&user[discoverable_by_email]=1&user[send_email_newsletter]=1'); http.Document.LoadFromStream(stream); http.HTTPMethod('post','https://twitter.com/account/create'); showmessage(http.Headers.Text); list.LoadFromStream(http.Document); http.Headers.Clear; http.Document.Clear; form1.Memo1.Text:=list.Text; if pos('dropdown-signup',list.Text)=0 then begin showmessage('ok'); end else showmessage('He OK!'); end; Есть код? На инди хоть, уже важна сама логика запросов, а не реализация, не могу понять! А в синапсе есть, что - то подобное handleredirect ?
