forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   MidletPascal (http://forum.boolean.name/forumdisplay.php?f=46)
-   -   работа с Lib_proweb .... (http://forum.boolean.name/showthread.php?t=16004)

-Flover- 09.12.2011 11:58

работа с Lib_proweb ....
 
Здравствуйте.
Появилась такая проблема, не могу никак понять как сделать авторизацию на форуме, к примеру этом http://wap-forums.ru/index.php?c=1&fid=5374 и написать сообщение в какую нибудь тему, всё с проги нужно....

как показано в либе в примере авторизации здесь, пробовал разобраться, вот что получилось:

Код:

log:='-Flover-';
pas:='pass';
   
 // устанавливаем заголовки до вызова q_request!!!
q_property('Accept', '*/*');
q_property('Content-Type', 'application/x-www-form-urlencoded');
rc:=q_request('http://wap-forums.ru/login.php?fid=5374', GET, '', 'none');
cookie:=get_cookie;
close;

q_property('Accept', '*/*');
q_property('Accept-Language', 'ru');
q_property('Content-Type', 'application/x-www-form-urlencoded');
set_property('Cookie', cookie);
 rc:=q_request('http://wap-forums.ru/login.php?', POST, 'username='+log+'&password='+pas, 'none');
if get_error='' then str:=get_data;
if get_error=''
      then begin
                                                s := Copy(str, Pos(str, '<td class="panelsurround" align="center">'), length(str));
                                                s := Copy(s  , 0, Pos(s, '</td>')+5);
                                          id:=FormAddString('Response: '+rc+' Apart Data: '+s);
                                        end;
                  else id:=FormAddString(' Error: '+get_error);

но к сожалению при попытке авторизоваться, выдает ошибку, даже не подключается...

где-то видел давно тему, там рассказывалось как разобраться где что писать, но найти не могу её, помогите разобраться что и как

-Flover- 11.12.2011 14:46

Ответ: работа с Lib_proweb ....
 
как я только не пробовал.. постоянно выдает ошибку " Error: invalid first byte 10110101" :-(


Часовой пояс GMT +4, время: 21:38.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot