Показать сообщение отдельно
Старый 14.07.2008, 12:37   #3
Seregakz
Нуждающийся
 
Регистрация: 03.07.2008
Сообщений: 57
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Авторизация на сервере

На серваке ставлю пасс на папку и
Делую так, не пашет:
program NewProjectz; 

var 
conn : http;  

begin 
    
if not OpenHttp(conn, 'http://serj.ru/aaa/aaa.php') then Halt; 
     
    
SetHttpMethod(conn, GET);  
     
    
AddHttpHeader(conn, 'User-agent', 'MIDletPascal browser');  
    
AddHttpHeader(conn, 'Authorization', 'Basic '+'ТУТ логин:пасс в виде басе64');  
    
AddHttpHeader(conn, 'Connection', 'Close');  
     
    if 
SendHttpMessage(conn) <> 200 then Halt;  
     
    
// ... 
     
    
CloseHttp(conn);  

  
end. 
нехочет авторизовыватся((

Последний раз редактировалось Seregakz, 14.07.2008 в 15:14.
(Offline)
 
Ответить с цитированием