зачем? я сам уже спец закодирокал в басе и вписал!
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.
я проверку на сервере сделал чтоб даные которые поссылает прога созранялясь в тхт:
Авторизация: (Пусто)
