Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 4 481

/ вопрос открыт /

Здравствуйте, эксперты!

 
procedure TForm1.Button1Click(Sender: TObject);
var
//Создаём переменную res
res,a: string;
begin
//Посылаем get запрос
res:=idHTTP1.get('http://yandex.ru/yandsearch?text='+Edit1.Text+');
//Добавляем загруженную страницу в Memo1
Memo1.lines.add(res);
end;
 
end.

Хочу передать текст из Edit1, не пойму никак какой синтаксис.

eJay Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: eJay (статус: Посетитель)
Вопрос отправлен: 2 августа 2010, 23:27
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 12; последнее сообщение — 3 августа 2010, 12:47; участников в обсуждении: 4.
Вадим К

Вадим К (статус: Академик), 2 августа 2010, 23:35 [#1]:

Здесь
res:=idHTTP1.get('http://yandex.ru/yandsearch?text='+Edit1.Text+');
точно одну кавычку не забыли?
Галочка "подтверждения прочтения" - вселенское зло.
eJay

eJay (статус: Посетитель), 3 августа 2010, 00:14 [#2]:

Точно. Такой вариант не прокатил.
min@y™

min@y™ (статус: Доктор наук), 3 августа 2010, 08:11 [#3]:

Смахивает на попытку SQL-injection :))
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
eJay

eJay (статус: Посетитель), 3 августа 2010, 10:10 [#4]:

да нет. просто нужно из базы взять команду и передать гет запрос с Id. Не могу нигде найти синтаксис правильный.
eJay

eJay (статус: Посетитель), 3 августа 2010, 10:29 [#5]:

procedure TForm1.Button1Click(Sender: TObject);
var
//Создаём переменную res
res: string;
begin
//Посылаем get запрос
res:=idHTTP1.get('http://192.168.0.16/test/test.php?id='+Edit1.Text+'');
//Добавляем загруженную страницу в Memo1
Memo1.lines.add(res);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
Edit1.Clear;
end;
eJay

eJay (статус: Посетитель), 3 августа 2010, 10:30 [#6]:

Так работает!
Вадим К

Вадим К (статус: Академик), 3 августа 2010, 10:31 [#7]:

если передаются английские буквы и без пробелов. то
res:=idHTTP1.get('http://yandex.ru/yandsearch?text='+Edit1.Text+')';
должно работать.
Если же нужно передавать и их, то нужно использовать URL кодирование. к примеру пробел заменяется на %20.
Галочка "подтверждения прочтения" - вселенское зло.
min@y™

min@y™ (статус: Доктор наук), 3 августа 2010, 10:34 [#8]:

Цитата (eJay):

Не могу нигде найти синтаксис правильный.

А в хэлпе смотреть пробовал? Там же всё написано:
procedure Get(AURL: string; const AResponseContent: TStream); overload;
function Get(AURL: string): string; overload;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
min@y™

min@y™ (статус: Доктор наук), 3 августа 2010, 10:44 [#9]:

Цитата (Вадим К):

res:=idHTTP1.get('http://yandex.ru/yandsearch?text='+Edit1.Text+')';

Исправь ошибку. Перегрелся от жары?
Как у вас там в Одессе погодка? Хорошо, наверно: море рядом, значит есть ветер. А ветер - это есть гут.

А у нас тут +35...+40°С и сплошная дымка от лесных пожаров. И ещё месяц мне в этом аду плавиться, билет в Крым на 3 сентября...
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Вадим К

Вадим К (статус: Академик), 3 августа 2010, 10:57 [#10]:

to min@y™ ?
Исправь? ну что же такой недогретый и не смог исправить:)?
Галочка "подтверждения прочтения" - вселенское зло.
min@y™

min@y™ (статус: Доктор наук), 3 августа 2010, 11:10 [#11]:

Цитата (Вадим К):

Исправь? ну что же такой недогретый и не смог исправить:)?

У меня нет на этом сайте таких полномочий.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
DNK

DNK (статус: Студент), 3 августа 2010, 12:47 [#12]:

res:=idHTTP1.get('http://yandex.ru/yandsearch?text='+Edit1.Text+'&lr=50');
"Digital Networked Knight"

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:57
Выполнено за 0.03 сек.