VPF::Как заполнить форму и отослать?

GELEAF

Дата 20.4.2008, 13:56 (ссылка)

(голосов:2)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 11.3.2006

Репутация: нет
Всего: нет

Здраствуйте, вот есть код странички для отправки смс с сайта http://www.moldcell.md/sendsms , картинку я получил, а вот как мне вставить номер, текст, и цифры картинки и все это отправить ?....пожалуста помогите

Код странички :

Код


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><title>Expediaza SMS</title><link rel="shortcut icon" href="/favicon.ico" /><script type="text/javascript" src="/xds/js/menu.js"></script><script type="text/javascript" src="/xds/js/sendSms.js"></script><style type="text/css"><!--
            @import url("/xds/css/default.css");
            @import url("/xds/css/banner.css");
            @import url("/xds/css/blink.css");
            @import url("/xds/css/menu.css");
            @import url("/xds/css/breadCrumbles.css");
            @import url("/xds/css/content.css");
            @import url("/xds/css/sendSms.css");
          --></style></head><body><div class="topBlock"><div class="logo"><a title="MOLDCELL" href="/"><img alt="MOLDCELL" src="/xds/img/logo.gif" /></a></div><div class="topIcons"><form method="post" action="/xds/default.aspx"><input type="hidden" name="publicGuid" value="5edfd8bf-08e8-46a0-b99e-510d39a6ba50" /></form><a title="Русский" href="/rus/sendsms/" class="lang">
        Рус</a><a title="English" href="/eng/sendsms/" class="lang">
        Eng</a><a title="Romana" href="/sendsms/" class="lang" style="font-weight:bold;">
        Rom</a><a title="Hartă site" href="/sitemap" style="margin-right:25px;">Hartă site</a><img alt="" src="/xds/img/b.gif" style="width : 450px; height : 1px; float : right;clear : both;" /></div><div class="mainMenu"><table><tr><td id="m47" style="" class="mainMenuParent"><div><a onmouseover="menuShow(47);" href="/About/Company/"><img alt="" src="/xds/img/menu/arrow.gif" />Despre Moldcell</a></div></td><td id="m48" style="" class="mainMenuParent"><div><a onmouseover="menuShow(48);" href="/Products"><img alt="" src="/xds/img/menu/arrow.gif" />Produse</a></div></td><td id="m49" style="" class="mainMenuParent"><div><a onmouseover="menuShow(49);" href="/Services/Voice/"><img alt="" src="/xds/img/menu/arrow.gif" />Servicii</a></div></td><td id="m50" style="" class="mainMenuParent"><div><a onmouseover="menuShow(50);" href="/Coverage/Moldova"><img alt="" src="/xds/img/menu/arrow.gif" />Acoperire</a></div></td><td id="m51" style="" class="mainMenuParent"><div><a onmouseover="menuShow(51);" href="/Projects"><img alt="" src="/xds/img/menu/arrow.gif" />Proiecte</a></div></td><td id="m488" style="" class="mainMenuParent"><div><a onmouseover="menuShow(488);" href="/CSR"><img alt="" src="/xds/img/menu/arrow.gif" />Responsabilitate Sociala Corporativa si Sponsorizare</a></div></td></tr></table></div><div id="mainMenuItemBg"><img alt="" src="/xds/img/menu/left.png" style="float:left;" /><img alt="" src="/xds/img/menu/right.png" style="float:right;" /></div><div class="mainMenuItem hidden" id="mm47" onmouseout="menuHide();" onmouseover="menuShow(47);"><img alt="" src="/xds/img/menu/menuleft.png" style="float:left;" /><img alt="" src="/xds/img/menu/menuright.png" style="float:right;" /><div onmouseover="menuShow(47);"><a href="/About/Awards">Premii</a>|<a href="http://www.moldcell.md/pdf/Interconnection%20Offer%202007%20rom.pdf">Oferta de interconectare</a>|<a href="/news/line/moldcellNews">Noutati</a>|<a href="/About/Company">Despre companie</a>|<a href="/About/Career">Cariera la Moldcell</a>|<a href="/About/Contactinfo">Contact</a></div></div><div class="mainMenuItem hidden" id="mm48" onmouseout="menuHide();" onmouseover="menuShow(48);"><img alt="" src="/xds/img/menu/menuleft.png" style="float:left;" /><img alt="" src="/xds/img/menu/menuright.png" style="float:right;" /><div onmouseover="menuShow(48);"><a href="/Products/Alternative">ALOCARD Alternativ</a>|<a href="/Products/Alocard">ALOCARD</a>|<a href="/Products/Fantasy">FANTASY</a></div></div><div class="mainMenuItem hidden" id="mm49" onmouseout="menuHide();" onmouseover="menuShow(49);"><img alt="" src="/xds/img/menu/menuleft.png" style="float:left;" /><img alt="" src="/xds/img/menu/menuright.png" style="float:right;" /><div onmouseover="menuShow(49);"><a href="/Services/Voice">Voce</a>|<a href="/Services/Text">Text</a>|<a href="/Services/Data">Date</a>|<a href="/Services/Payments">Plati</a>|<a href="/Services/Entertainment">Divertisment</a>|<a href="/Services/networkservices">Servicii de retea</a>|<a href="/Services/Extra">Extra</a></div></div><div class="mainMenuItem hidden" id="mm50" onmouseout="menuHide();" onmouseover="menuShow(50);"><img alt="" src="/xds/img/menu/menuleft.png" style="float:left;" /><img alt="" src="/xds/img/menu/menuright.png" style="float:right;" /><div onmouseover="menuShow(50);"><a href="/Coverage/CamelRoaming">ALOCARD Roaming</a>|<a href="/Coverage/InternationalMMS">MMS International</a>|<a href="/Coverage/GPRSRoaming">GPRS Roaming</a>|<a href="/Coverage/Moldova">Moldova</a>|<a href="/Coverage/CountryList">Roaming</a></div></div><div class="mainMenuItem hidden" id="mm51" onmouseout="menuHide();" onmouseover="menuShow(51);"><img alt="" src="/xds/img/menu/menuleft.png" style="float:left;" /><img alt="" src="/xds/img/menu/menuright.png" style="float:right;" /><div onmouseover="menuShow(51);"><a href="/Projects/Time2Party">Time2Party</a>|<a href="/Projects/Scholarship">Bursa</a>|<a href="/Projects/Magazine">Revista</a></div></div><div class="mainMenuItem hidden" id="mm488" onmouseout="menuHide();" onmouseover="menuShow(488);"><img alt="" src="/xds/img/menu/menuleft.png" style="float:left;" /><img alt="" src="/xds/img/menu/menuright.png" style="float:right;" /><div onmouseover="menuShow(488);"><a href="/CSR/csr">RSC</a>|<a href="/CSR/ConferAndExhib">Conferinte si Expozitii</a>|<a href="/CSR/Sponsorship">Sponsorizare</a></div></div></div><table width="100%" cellpadding="0" cellspacing="0"><tr><td rowspan="2" class="left"><div class="clients"><a href="/corporatepage" title="Clienti Corporativi"><img alt="" src="/xds/img/corporate_rom.png" /></a></div><div class="LeftBanner"><a title="Fantasy" href="/products/fantasy"><img alt="Fantasy" src="/ServerBrowser/173b53ae-c790-4c2b-a398-ec66b53dd67b"/></a><br /><br /><br /><a title="Alocard" href="/products/alocard"><img alt="Alocard" src="/i/alocard/alocard_70.gif"/></a><br /><br /><br /><a title="Time2Party" href="/Projects/Time2Party"><img alt="Time2Party" src="/i/time2party/time2party.gif"/></a><br /><br /><br /></div><div class="blinks" style="background-image: url('/xds/img/page/cr_rom.png');"><table cellspacing="0" cellpadding="0"><tr><td><a href="/clientSupport" title="Serviciul Clientela">Serviciul Clientela</a></td></tr><tr><td><a href="/infoCenter" title="Intrebari Frecvente">Intrebari Frecvente</a></td></tr><tr><td><a href="/Questionnaire" title="Doriti sa Va expuneti &#xD;&#xA;parerea?">Doriti sa Va expuneti 
parerea?</a></td></tr></table></div></td><td class="leftline"></td><td class="right"><table width="100%" cellpadding="0" cellspacing="0"><tr><td><table cellspacing="0" cellpadding="0" class="BigBanner"><tr><td>
<table style="border:1px solid #d2d2d2"  width="100%"  border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table style="border:1px solid #ffffff" width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="216" width="400" align="right"><a href="/services/text/costcontrol" title="Cost Control"><img src="/i/costcontr/left.png" width="400" height="216" alt="Cost Control" border="0"/></a></td>
<td bgcolor="#ff6600" align="center"><a href="/services/text/costcontrol" title="Cost Control"><img src="/i/costcontr/rom.png" width="400" height="216" alt="Cost Control"/></a></td>
</tr>
</table>
</td>
</tr>
</table>
</td></tr></table></td></tr><tr><td class="center"><table width="100%" cellpadding="0" cellspacing="0" class="center"><tr><td style="vertical-align : top;"><table class="breadCrumbles" cellpadding="0" cellspacing="0"><tr><td><img alt="" src="/xds/img/breadCrumbles/left.gif" style="float:left;" /></td><td valign="top" class="breadCrumblesItem"><div><a title="Pagina principala" href="/">Pagina principala</a>|<a title="Expediaza SMS" href="/sendSMS/">Expediaza SMS</a><img alt="" src="/xds/img/breadCrumbles/arrow.gif" /></div></td><td><img alt="" src="/xds/img/breadCrumbles/right.gif" style="float:right;" /></td></tr></table><table cellspacing="0" cellpadding="0" class="pageHeader"><tr><td><img src="/xds/img/page/left.gif" alt="" /></td><td class="pageHeaderContent">Expediaza SMS<img alt="" src="/xds/img/page/arrow.gif" /></td><td><img src="/xds/img/page/right.gif" alt="" /></td></tr></table><table cellspacing="0" cellpadding="0" class="pageContent"><tr><td></td></tr></table><form action="/xds/default.aspx" method="post" onsubmit="return sendSmsValidator();"><div class="sendSms"><table><tr><td class="sendSmsLabel">Numar telefon</td><td><select name="phonePrefix" class="sendSms"><option value="373790">+373 790</option><option value="373791">+373 791</option><option value="373792">+373 792</option><option value="373793">+373 793</option><option value="373794">+373 794</option><option value="373795">+373 795</option><option value="373796">+373 796</option><option value="373797">+373 797</option><option value="373798">+373 798</option><option value="373799">+373 799</option><option value="373780">+373 780</option></select>&nbsp;<input class="sendSms" type="text" name="phoneNumber" maxlength="5" size="5" /></td></tr><tr><td class="sendSmsLabel">Mesaj</td><td><textarea class="sendSms" cols="40" rows="6" name="message"></textarea><span id="messageLength" class="semdSmsMessageLength">0</span></td></tr><tr><td class="sendSmsLabel">Introduceti codul 
din imagine</td><td><img src="/securePicture/5edfd8bf-08e8-46a0-b99e-510d39a6ba50" onclick="this.ssrc=this.src;this.src='about:blank';this.src=this.ssrc;" width="91" height="31" alt="" /><br /><input class="sendSms" type="text" name="pictureCode" maxlength="6" size="6" /></td></tr><tr><td><input type="hidden" name="type" value="sendSms" /><input type="hidden" name="publicGuid" value="5edfd8bf-08e8-46a0-b99e-510d39a6ba50" /><input type="hidden" name="url" value="/sendsms/" /><input type="hidden" name="langUrl" value="/" /></td><td><button type="submit" name="sendSmsSubmit">Expediaza</button></td></tr></table></div></form><script type="text/javascript"><!--
      sendSmsStart();
    --></script><div class="blinks2"><div><table cellspacing="0" cellpadding="0"><tr><td style="width: 143px;"><a href="/About/Career" title="Carieră">Carieră</a></td><td style="width: 140px;"><a href="/usefullInfo" title="Utile">Utile</a></td><td><a href="/About/contactInfo" title="Contact&#xD;&#xA;">Contact
</a></td></tr></table></div></div></td><td class="rightline"></td><td class="RightBanner" valign="top"><a href="/postcard/default.htm" title="Postcard"><img src="/i/wg/ro.png" alt="Postcard" /></a><br /><br /><br /><a href="/newsletter" title=""><img src="/xds/img/newsletter/newsletter.jpg" alt="" /></a><br /><br /><br /><a href="/sendsms" title=""><img src="/xds/img/sendsms//sendsms_rom.png" alt="" /></a><br /><br /><object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" width="230" height="230" id="doYouKnow" align="middle"><param name="allowScriptAccess" value="sameDomain" /><param name="movie" value="/xds/flash/doYouKnow_rom.swf" /><param name="src" value="/xds/flash/doYouKnow_rom.swf" /><param name="menu" value="false" /><param name="FlashVars" value="RotPeriod=3600000&amp;dataUrl=/doYouKnow" /><param name="quality" value="high" /><param name="bgcolor" value="#ffffff" /><script type="text/javascript"><!--
        document.write("<embed src=\"/xds/flash/doYouKnow_rom.swf?RotPeriod=3600000&dataUrl=/doYouKnow\" menu=\"false\" quality=\"high\" bgcolor=\"#ffffff\" width=\"230\" height=\"230\" name=\"doYouKnow\" align=\"middle\" allowScriptAccess=\"sameDomain\" type=\"application/x-shockwave-flash\" pluginspage=\"http://www.macromedia.com/go/getflashplayer\"/>");
      --></script></object><br /><br /><div class="root"><a target="_blank" title="MiniMania" href="http://www.minimania.md">
<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" 
    width="215" height="297" id="minimania" align="middle">
<param name="allowScriptAccess" value="sameDomain" />
<param name="movie" value="/i/minimania/ro.swf" />
<param name="src" value="/i/minimania/ro.swf" />
<param name="menu" value="false" />
<param name="quality" value="high" />
<param name="bgcolor" value="#ffffff" />
<embed src="/i/minimania/ro.swf" menu="false" quality="high" bgcolor="#ffffff" width="215" height="297" name="minimania" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer"/>
</object>
</a></div></td></tr></table></td></tr></table></td></tr></table><div class="bottom"><img src="/xds/img/bottomline.gif" alt="" /><div class="bottomContent"><a title="Hartă site" href="/sitemap">Hartă site</a><br />
Contacts:
E-mail: <a title="[email protected]" href="mailto:[email protected]?subject=Mail from www.moldcell.md">[email protected]</a>

Copyright &copy; 2006-2007 SA "Moldcell"
All rights reserved.
    </div></div></body></html>

MetalFan

Дата 20.4.2008, 15:10 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128

простите, но "как?! опять?!".
поищи по форуму, как подобные задачи решаются... в 101й раз уже нет желание методику объяснять

--------------------

There are always someone smarter than you...

GELEAF

Дата 20.4.2008, 15:53 (ссылка)

(голосов:2)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 11.3.2006

Репутация: нет
Всего: нет

Я искал, но это все нито....плизз обьясни....если можно примерчик, хоть самый простенький smile

MetalFan

Дата 20.4.2008, 16:01 (ссылка)

(голосов:3)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128

кстати, название темы бессмысленно и ничего не говорит о содержании... плохо

--------------------

There are always someone smarter than you...

GELEAF

Дата 20.4.2008, 20:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 11.3.2006

Репутация: нет
Всего: нет

вот посмотриче в чем ошибка :

Код


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;

ishimcity

Дата 30.4.2008, 10:12 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1

или через HTTP.POST еще проще и короче все

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »