Авторизация на сервере

[Seregakz]

Народ как послать авторизацию на сервер с помощью openHttp ???

[GOODBYTE]

нечто подобное этому..
этот пример с Basic-авторизацией.
Для работы требуется наличие библиотеки lib_base64

program NewProjectz;

uses base64;

var conn : http; 


begin
    if not OpenHttp(conn, 'http://адрес.до.части.с.basic.авторизацией') then Halt;
    
    SetHttpMethod(conn, GET); 
    
    AddHttpHeader(conn, 'User-agent', 'MIDletPascal browser'); 
    AddHttpHeader(conn, 'Authorization', 'Basic '+ base64.encode('user:password')); 
    AddHttpHeader(conn, 'Connection', 'Close'); 
    
    if SendHttpMessage(conn) <> 200 then Halt; 
    
    // дальнейшие операции...
    
    CloseHttp(conn); 

 
end. 


[Seregakz]

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

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. 


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

[Romanzes]

uses не забыл написать?

[Seregakz]

зачем? я сам уже спец закодирокал в басе и вписал!
AddHttpHeader(conn, 'Authorization', 'Basic '+'ТУТ логин:пасс в виде басе64');

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 '+'MTIzOjEyMw');   
    AddHttpHeader(conn, 'Connection', 'Close');   
      
    if SendHttpMessage(conn) <> 200 then Halt;   
      
    // ...  
      
    CloseHttp(conn);   

   
end. 


я проверку на сервере сделал чтоб даные которые поссылает прога созранялясь в тхт:
Авторизация: (Пусто)

[Piligrim]

А что мешает передать так?

if not OpenHttp(conn, 'http://serj.ru/aaa/aaa.php?auth=MTIzOjEyMw') then Halt;

Думаю PHP скрипт с этим справится.

[Seregakz]

Сообщение от pilgrim

А что мешает передать так?

if not OpenHttp(conn, 'http://serj.ru/aaa/aaa.php?auth=MTIzOjEyMw') then Halt;

Думаю PHP скрипт с этим справится.

так авторизуется?? прост пасс стоит на папки там где тхт и всякие файлы! которые долны быть под пасом директории!

[Piligrim]

Авторизацию на ftp можно передавать так
ftp://si2000:[email protected]/
первое - пользователь, второе - пароль.
PS: а просто гуглить не пробовали вопрос?

[Seregakz]

Сообщение от pilgrim

Авторизацию на ftp можно передавать так
ftp://si2000:[email protected]/
первое - пользователь, второе - пароль.
PS: а просто гуглить не пробовали вопрос?

Гугл отдыхает! компонент ОпенХТТП не пашет! с компонентом либ_веб всё вери гуд!