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

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

Помогите с ПОСт отправкой!

Павел789745 ©   (2006-10-01 01:31:00) 

procedure TForm1.Button1Click(Sender: TObject);
begin

stPostData:=Edit1.Text;
vHeaders:= 'Content-Type:application/x-www-form-urlencoded'+ #10#13#0;
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;
TVarData(vPostData).vType:= varArray;
vWebAddr:='https://merchant.webmoney.ru/lmi/payment.asp';
vFlags:=navNoWriteToCache;
vFrame:=EmptyParam;
try
WebBrowser1.Navigate2(vWebAddr,vFlags,vFrame,vPostData,vHeaders);
except
end;
end;
Етот код у меня не работает в чём ошибка ?

---

Ketmar   (2006-10-01 18:58:00) [1]

в DNA.

---

Павел789745   (2006-10-01 11:44:00) [2]

а подскажите пожалуйста где сидит ошибка

---

Орион   (2006-10-01 10:30:00) [3]

> Етот код у меня не работает в чём ошибка ?

В коде.

---

Наверх