Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.09.2014, 05:25   #1
Raikerock
 
Регистрация: 04.09.2014
Сообщений: 6
По умолчанию Прошу помощи с переменными в ссылке Idhttp1.get

Помогите разобраться с кодом, необходимо чтобы переменные было можно вставлять в ссылку. Что только не пробовал, никак не выходит. Или подскажите в какую сторону смотреть, что прочитать, может какой пример есть вставки переменных.

Код:

procedure TForm1.Button1Click(Sender: TObject);

var auth: tstringlist;
bufer: string;
login: string;
password: string;
memos: string;
ip:string;

begin

login:= Edit2.Text;
password:= edit3.Text;
ip:= edit1.Text;


bufer := idhttp1.get('http://92.63.100.111:1500/manager/ispmgr?authinfo=login:password');  
// &owner_admins=off&progressid=false_1410144505091&reversezone=off&sfrom=ajax&sok=ok&webdomain=on&zoom-ip=


if pos('<doc lang="ru" func="domain.edit"',bufer) > 0 then    //если нашли запись на следующей странице, то авторизовались
label1.Caption := 'OK'

else label1.Caption := 'ERROR';        //если не нашли запись на следующей странице, то не авторизовались



memo1.Lines.Add(bufer);

end;

Последний раз редактировалось Stilet; 09.09.2014 в 07:59.
Raikerock вне форума Ответить с цитированием
Старый 09.09.2014, 05:36   #2
Raikerock
 
Регистрация: 04.09.2014
Сообщений: 6
По умолчанию

Как я понял проблема решается таким образом

bufer := idhttp1.get('http://92.63.100.111:1500/manager/ispmgr?authinfo='+login+':'+passwor d+''); // &owner_admins=off&progressid=false_ 1410144505091&reversezone=off&sfrom =ajax&sok=ok&webdomain=on&zoom-ip=
Raikerock вне форума Ответить с цитированием
Старый 09.09.2014, 09:25   #3
kta87
Форумчанин
 
Аватар для kta87
 
Регистрация: 22.02.2010
Сообщений: 912
По умолчанию

Да все просто
Код:
s := IdHTTP1.Get('ваш домен' + 'первый параметр' + 'второй параметр' + 'и т.п.');
Если в самом параметре встречается символ " ' ", то записывайте его в ASCII форме - #39. Пример
Код:
s := IdHTTP1.Get('ваш домен' + 'первый параметр' + #39 + 'второй параметр' + 'и т.п.');
kta87 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Прошу помощи Пупсончик PHP 11 12.01.2014 10:42
Прошу помощи Jimoros Общие вопросы C/C++ 0 11.01.2014 23:43
Прошу помощи taco48 PHP 9 25.12.2013 09:24