Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Edit и web страничка?


Страницы:   1 2

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]

ты лучше скажи адресс странички с этим окном ввода и что надо ввести туда я тебе примерчик приведу


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо