Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Страницы: < 1 2
asd © (2005-11-27 22:22:00)
В Edit содержится нейкий текст и есть web страничка с окном ввода. Как присвоить значения Edit в это окно ввода?

Дурачок (2005-11-27 23:39:00) [21]
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;

asd (2005-11-27 23:20:00) [22]
А можете привести наглядный пример, а то в этой теме я новичок

Дурачок (2005-11-27 23:17:00) [23]
используй post или get запрос,ведь на веб странички после ввода в окно надо нажать кнопку и отправляется запрос,соотвественно и на прямую из программы можно отправить этот запрос.

Страницы: < 1 2

Наверх

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