Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.049 c
2-1172082287
NightRain
2007-02-21 21:24
2007.03.11
Выключение компьютера


15-1171538435
Ega23
2007-02-15 14:20
2007.03.11
Миграция с Delphi5 на Delphi7


15-1171367145
pasha_golub
2007-02-13 14:45
2007.03.11
Не могу достучаться в локальную сеть


2-1171946978
Marat
2007-02-20 07:49
2007.03.11
QReport


4-1162452106
novill
2006-11-02 10:21
2007.03.11
Как заставить логин-диалог WinXP открываться всегда в полном виде