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

← →
asd © (2005-11-27 22:22) [0]

В Edit содержится нейкий текст и есть web страничка с окном ввода. Как присвоить значения Edit в это окно ввода?

← →
Дурачок (2005-11-27 23:17) [1]

используй post или get запрос,ведь на веб странички после ввода в окно надо нажать кнопку и отправляется запрос,соотвественно и на прямую из программы можно отправить этот запрос.

← →
asd © (2005-11-27 23:20) [2]

А можете привести наглядный пример, а то в этой теме я новичок

← →
Дурачок (2005-11-27 23:39) [3]

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://adressSaita/send.php",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;

← →
Дурачок (2005-11-27 23:40) [4]

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

← →
asd © (2005-11-28 00:10) [5]

Спасибо большое. А адрес странички - любой

← →
asd © (2005-11-28 19:43) [6]

А дальше, если нетрудно.

← →
asd © (2005-11-30 18:55) [7]

Может кто-нибудь поможет!
Напишите полный пример программы(например с Edit перекинуть значение в поисковик на этом сайте).

← →
asd © (2005-12-01 17:25) [8]

Извините, но разве никто не может ответить на мой вопрос...

← →
Дурачок (2005-12-01 20:02) [9]

Вот так можно присвоить 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 20:23) [10]

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:32) [11]

всё неправельно =)

← →
Дурачок (2005-12-01 20:37) [12]

У тебя какая версия дельфи ? и есть ли у тебя компонент idhttp?
так как примеры сдесь представлены на основе этого компонента.
И воопще что ты конкретно хочеш написать ?,был вопрос насчёт присвоения edit в окно ввода веб странички я тебе показал как это сделать.

← →
Дурачок (2005-12-01 20:39) [13]

//request.Add("user_name=nicktest);
//request.Add("id=123"); - Что это??
//request.Add("password=qwerty");
Это запрос на веб страничку

← →
asd © (2005-12-01 20:53) [14]

Delphi 7.
idhttp - есть.
Вот в чём вопрос. У меня есть форма с 3-мя компонентами Edit и 1 Memo.
Их значения я хочу присвоить полям ввода на одном сайте. После этого сгенерировать нажати кновки отправить. Напишите, пожалуйста, полный алгоритм с объяснениями, а то вы единственный, кто может отвтить на все мои вопросы, я надеюсь.

← →
asd © (2005-12-03 21:18) [15]

Дурачок, куда вы пропали?
А вот к примеру, отправка 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?

← →
Palladin © (2005-12-03 23:39) [16]

компонент

← →
Дебил-Дебилович (2005-12-04 12:17) [17]

asd необижайся но тебе будет всё более понятно если ты почитаеш какуйнибуть книжку по дельфи благо их можно спокойно скачать из интернета и бесплатно, google ,yandex.ru тебе в помощь =)

Не, я просто плохо знаю работу Delphi с инетом. Так, что такое nmhttp1?

Где находится этот компонент? А то я не могу его найти в палитре компонентов.

> asd © (04.12.05 14:36) [19]
> Где находится этот компонент? А то я не могу его найти в
> палитре компонентов.

Закладка FastNet

У меня Delphi 7.0. Там нету этой закладки. Может надо скачать эту закладку.
Не подскажите где?

> asd © (04.12.05 17:08) [21]
> У меня Delphi 7.0. Там нету этой закладки. Может надо скачать
> эту закладку.
> Не подскажите где?

Значит используй тогда idhttp

Можно еще Tclientsocket или TTcpClient (но в таком случае http-протокол придется самому реализовывать).

Можешь еще wininet поюзать,
вот тут мне один хороший человек дал код:

http://delphimaster.net/view/6-1127731558/

Спасибо за помощь

Edit и web страничка? Найти похожие ветки