![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Edit и web страничка?
asd © (2005-11-27 22:22:00)В Edit содержится нейкий текст и есть web страничка с окном ввода. Как присвоить значения Edit в это окно ввода?
asd (2005-12-05 17:53:00) [1]Спасибо за помощь
SergP (2005-12-04 21:29:00) [2]
> asd © (04.12.05 17:08) [21]
> У меня Delphi 7.0. Там нету этой закладки. Может надо скачать
> эту закладку.
> Не подскажите где?
Значит используй тогда idhttp
Можно еще Tclientsocket или TTcpClient (но в таком случае http-протокол придется самому реализовывать).
Можешь еще wininet поюзать,
вот тут мне один хороший человек дал код:
http://delphimaster.ru/cgi-bin/forum.pl?id=1127731558&n=4
asd (2005-12-04 17:08:00) [3]У меня Delphi 7.0. Там нету этой закладки. Может надо скачать эту закладку.
Не подскажите где?
SergP (2005-12-04 16:08:00) [4]
> asd © (04.12.05 14:36) [19]
> Где находится этот компонент? А то я не могу его найти в
> палитре компонентов.
Закладка FastNet
asd (2005-12-04 14:36:00) [5]Где находится этот компонент? А то я не могу его найти в палитре компонентов.
asd (2005-12-04 14:31:00) [6]Не, я просто плохо знаю работу Delphi с инетом. Так, что такое nmhttp1?
Дебил-Дебилович (2005-12-04 12:17:00) [7]asd необижайся но тебе будет всё более понятно если ты почитаеш какуйнибуть книжку по дельфи благо их можно спокойно скачать из интернета и бесплатно, google ,yandex.ru тебе в помощь =)
Palladin (2005-12-03 23:39:00) [8]компонент
asd (2005-12-03 21:18:00) [9]Дурачок, куда вы пропали?
А вот к примеру, отправка SMS-сообщений:
nmhttp1.HeaderInfo.Referer:='www.mts.ru';
nmHTTP1.Get(' http://www.mts.ru/sms/sent.html?Posted=1&To=ПОЛНЫЙНОМЕР ТЕЛЕФОНА&Msg=СООБЩЕНИЕ&count=ДЛИНА СООБЩЕНИЯ БЕЗ ПРОБЕЛОВ&SMSHour=1&SMSMinute=16&SMSDay=12&SMSMonth=11&SMSYear=2001');
Если правильно, то что означает nmhttp1?
asd (2005-12-01 20:53:00) [10]Delphi 7.
idhttp - есть.
Вот в чём вопрос. У меня есть форма с 3-мя компонентами Edit и 1 Memo.
Их значения я хочу присвоить полям ввода на одном сайте. После этого сгенерировать нажати кновки отправить. Напишите, пожалуйста, полный алгоритм с объяснениями, а то вы единственный, кто может отвтить на все мои вопросы, я надеюсь.
Дурачок (2005-12-01 20:39:00) [11]//request.Add('user_name=nicktest);
//request.Add('id=123'); - Что это??
//request.Add('password=qwerty');
Это запрос на веб страничку
Дурачок (2005-12-01 20:37:00) [12]У тебя какая версия дельфи ? и есть ли у тебя компонент idhttp?
так как примеры сдесь представлены на основе этого компонента.
И воопще что ты конкретно хочеш написать ?,был вопрос насчёт присвоения edit в окно ввода веб странички я тебе показал как это сделать.
Дурачок (2005-12-01 20:32:00) [13]всё неправельно =)
asd (2005-12-01 20:23:00) [14]procedure TForm1.ButtonStartClick(Sender: TObject)
var
AData : TStringStream;
request : TStringList;
F:TStringList;
STR : String;
S : String;
otvet:string;
begin
request := TStringList.Create;//буффер для запроса
AData := TStringStream.Create(''); //Создаём пустой буфер для приёма данных
с сервера
//формируем запрос
request.Add('user_name=nicktest);
request.Add('id=123');
request.Add('password=qwerty');
try
idhttp1.Post(' http://www.delphimaster.ru/cgi-bin/forum.pl?n=4&search=Edit.text',request,Adata);//отпровляем запрос
except on E:Exception do
end;
request.free;
try
otvet := AData.DataString;//получили ответ с сервера и записали его в переменную
AData.Free;//освободили память
F:=TStringList.Create;//создали буфер текстовый
F.Text:=otvet;//присвоили получиный ответ текстовой переменной
S:=F.Strings[255];//если нужно что то конкретное получить то находим нужную строку
Str := Copy(S,79,32);//сдесь копируем из строки то что нужно на примере 32 символа копируем
F.Free;//выгрузили память
Except
end;
end;
request.Add('user_name=nicktest);
request.Add('id=123'); - Что это??
request.Add('password=qwerty');
Я сделал также, но ничего не получилось. Извините за такие вопрсы, но я не понял. Так ли я написал???
Дурачок (2005-12-01 20:02:00) [15]Вот так можно присвоить Edit.text
http://www.delphimaster.ru/cgi-bin/forum.pl?n=4&search=Edit.text
обыкновенный get запрос
и незабуть правельно сформировать запрос делается это так
try
idhttp1.Get(' http://www.delphimaster.ru/cgi-bin/forum.pl?n=4&search='+Edit.Text);
except
end;
для поиска мы должны передать переменной search= значение того что мы ищем соотвественно мы туда присваиваем Edit.text а переменная n=4 это форум сети
Неужели так сложно?
asd (2005-12-01 17:25:00) [16]Извините, но разве никто не может ответить на мой вопрос...
asd (2005-11-30 18:55:00) [17]Может кто-нибудь поможет!
Напишите полный пример программы(например с Edit перекинуть значение в поисковик на этом сайте).
asd (2005-11-28 19:43:00) [18]А дальше, если нетрудно.
asd (2005-11-28 00:10:00) [19]Спасибо большое. А адрес странички - любой
Дурачок (2005-11-27 23:40:00) [20]ты лучше скажи адресс странички с этим окном ввода и что надо ввести туда я тебе примерчик приведу