
19.02.2008, 21:48
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме: 422909
Репутация:
200
|
|
Сообщение от GSM™
Собственно имеется сервер со скриптом файлового архива. при переходе по адресу http://mydomen.ru/index.php предлагается ввести имя и пароль. имя и пароль в виде хеша хранится в файле .htpasswd который лежит на сервере. как сделать программу на делфи чтобы при нажатии button1 пользователь попадал в файловый архив без ввода имени и пароля?
Я так понимаю, что авторизация должна прохадить на форме и по клику на нужную страницу файлового архива?Если так то из того, что дал Kaimi:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
host, URI, login, password: string;
MyThread : TMyThread;
begin
Label1.Caption:='';
Login := Edit1.Text; //Можешь так и оставить
Password := Edit2.Text; //Можешь так и оставить
Host := 'sysman.ru'; //ну сюда понятное дело свой домен
URI := '/index.php?act=Login&CODE=01';
{Создаём поток с параметрами Host, URI, Login, Password.}
MyThread := TMyThread.Create(True);
MyThread.Host := Host;
MyThread.URI := URI;
MyThread.Login := Login;
MyThread.Password := Password;
MyThread.Resume;
End;
Но вместо
Код:
URI := '/index.php?act=Login&CODE=01';
Попробуй
Код:
URI := '/index.php?act='+Login+'&'+'Password';
Обращая внимание на то какое значение должно передоваться скрипту index.php (в данном случае через act)
P.S могу ошибаться так как php я не знаю 
Последний раз редактировалось A2GIL; 19.02.2008 в 21:50..
Причина: a mistake
|
|
|