Текущий архив: 2007.03.11;
Скачать: CL | DM;

Вниз

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

← →
Павел789745   (2006-10-01 01:31) [0]

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;
Етот код у меня не работает в чём ошибка ?

---

← →
Орион ©   (2006-10-01 10:30) [1]

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

В коде.

---

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

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

---

← →
Ketmar ©   (2006-10-01 18:58) [3]

в DNA.

---

Страницы: 1 вся ветка

Текущий архив: 2007.03.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.117 c