вот посмотриче в чем ошибка :
| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
vwebaddr, vpostdata, vflags, vframe, vheaders: olevariant;
iloop: integer;
text,stpostdata: string;
begin
text:=memo1.text;
stpostdata:='phonePrefix=373797&phoneNumber=87973&message=sdad&pictureCode='+edit1.Text+'&type=sendSms&publicGuid=c7c92aab-87d5-415a-8f9f-ae4315213471&url=%2FsendSms%2Fsent%2F&langUrl=%2Frus%2F&sendSmsSubmit=';
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:='http://www.moldcell.md/rus/sendSms/';
//vflags:=nowritetocache; // если оставить это то программа пишет мол неизвестный идентификатор
vframe:=emptyparam;
try
webbrowser1.navigate2(vwebaddr,vflags,vframe,vpostdata,vheaders);
except
end;
end;
|
|
