На серваке ставлю пасс на папку и
Делую так, не пашет:
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.
нехочет авторизовыватся((