Показать сообщение отдельно
Старый 09.12.2011, 11:58   #1
-Flover-
Оператор ЭВМ
 
Регистрация: 15.01.2011
Сообщений: 23
Написано 0 полезных сообщений
(для 0 пользователей)
работа с 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);
но к сожалению при попытке авторизоваться, выдает ошибку, даже не подключается...

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