Всем привет. У меня долга была идея создать такую  прогу но как я не думал всё немог придумать как реализовать. Возможность заполнение формы. А аказывается. Всё просто в теории а напрактике намного сложней. И так у меня 2 переменный x и y их надо передать на сервер а точнее строницы adres а эта страница имеет формат PHP. и так почти все работает кроме одной строчки. вот исходник.

[code]procedure TForm1.Button1Click(Sender: TObject);
var
vWebAddr, vPostData, vFlags, vFrame, vHeaders: oleVariant;
iLoop: integer;
text,stPostData: String;
begin
text:=edit1.Text;
stPostData:='D='+ComboBox1.Text+'&w='+text;
vHeaders:= 'Content-Type:application/x-www-form-urlencoded'+ #10#13#1;
vPostData:= VarArrayCreate([0, Length(stPostData)], varByte);
for iLoop := 0 to Length(stPostData)- 1 do
begin
vPostData[iLoop]:= Ord(stPostData[iLoop+1]);
end;
vPostData[Length(stPostData)]:= 0;
[code]TVarData(vPostData).vType:= varArray;
/Вот эта строчка дает ошибку. Говорит тип непровельно подобран. Люди хоть убейте но немоу понять какой тип неправильный[/code]
vWebAddr:='http://avto.com/auth2.php';
vFlags:=navNoWriteToCache;
vFrame:=EmptyParam;
try
WebBrowser1.Navigate(vWebAddr,vFlags,vFrame,vPostData,vHeaders);
except
end;
end;[/code]
Ребят кто может что предложить. Я буду рад. Всем предложениям.
Спосибо!