Отправка данных на сервер.

[iGlass]

Всем доброго времени суток.

У нас в локалке есть страничка с данными о балансе...

Так вот, я отправлю данные на сервер

procedure TForm1.RzBitBtn1Click(Sender: TObject);
var
vwebaddr, vpostdata, vframe, vheaders: olevariant;
i: integer;
stpostdata: string;
begin
stpostdata:='uid='+login.Text+'&pwd='+password.Text;
vheaders:= 'content="text/html; charset=windows-1251';

vpostdata:= vararraycreate([0, length(stpostdata)], varbyte);

for i := 0 to length(stpostdata)- 1 do

begin

vpostdata[i]:= ord(stpostdata[i+1]);

end;

vpostdata[length(stpostdata)]:= 0;

tvardata(vpostdata).vtype:= vararray;

vwebaddr:='http://stat.elcity.ru/showstat.php?';

try
webbrowser1.navigate2(vwebaddr,vpostdata,vheaders);

except

end;

У меня почему то открывается окно IE и пытается загрузиться страничка...

Как сделать так чтобы в label писалось "подключено" если логин с паролем правильный... А не открывалась страничка IE..

B и второй вопрос.. Как по простому спарсить данные с странички

Данных на две строчки...

Заранее очень брагодарен!

[tranceman]

У меня почему то открывается окно IE и пытается загрузиться страничка...

Как сделать так чтобы в label писалось "подключено" если логин с паролем правильный... А не открывалась страничка IE..

после try у тя в коде поменяй код на на вывод в каптион лабела в не вебраузер.

B и второй вопрос.. Как по простому спарсить данные с странички

как вариант загрузить саму страничку в мемо, примерно так:

memo1.Lines.Text:= IdHttp1.Get('http://www.google.ru/');

и с оттуда вытянуть уже регуляркой что тебе нужно.

[iGlass]

спасибо =) Но я уже через HTTP реализовал, ну его в опу этот веб браузер.. Через http в 100 раз удобнее... А на счёт парса спасибо =)