Как мне отправить запрос, ввод данных вроде получается, а вот как вывести картинку и затем с её цифрами отправить SMS не знаю, нужно просто вывести эту картинку, затем пользователь сам пишет в Edit'e её цифры, предварительно написав сообщение и номер и нажимает конпку, и сообщение отправлено.
Помогите пожалуйста доделать вот код, но до этого ещё нужно отобразить как-то картинку и чтобы WebBrouser.Visible:=true, т.е. его не видно, может, да и наверное там что-то не правильно т.к. я в этом плохо разбираюсь, но хочется увидеть как это делается:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
vWebAddr, vPostData, vFlags, vFrame, vHeaders: OleVariant;
iLoop: Integer;
text,stPostData: String;
begin
text:=Memo1.Text;
stPostData:='phone='+ComboBox1.Text+'&message='+text+'&dcs=0';
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.beonline.ru/portal/comm/send_sms/simple_send_sms.sms';
vFlags:=navNoWriteToCache;
vFrame:=EmptyParam;
try
WebBrowser1.Navigate2(vWebAddr,vFlags,vFrame,vPostData,vHeaders);
except
end;
end;
Кто-нибудь помогите доделать
