Показать сообщение отдельно

  #7  
Старый 19.02.2008, 21:48
A2GIL
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909

Репутация: 200
Отправить сообщение для A2GIL с помощью ICQ
По умолчанию

Цитата:
Сообщение от 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
 
Ответить с цитированием