Загрузка капчи в image

[oe24]

Хочу сделать программу, как Вы, только для МТС-Беларусь. Вот сайт - freesms.mts.by . Вот и не знаю, какие у меня данные отправляются, то есть какие я должен отправлять в idHTTP1.Post() ?
Может подскажите?

[mustang007]

ну вот нашел пост данные кажется

<input name="MMObjectType" value = "0" TYPE="hidden">
<input name="isFree" value = "1" TYPE="hidden">
<input name="MMObjectID" value = "" TYPE="hidden">

Но как вы собираетесь получать капчу?

[oe24]

Вот как я загружаю в каптчу:

Var i,a, dl,cifra:integer;
str: TMemoryStream;
URL, test, STRcifra,im,find:string;
begin
URL:=http.Get('http://freesms.mts.by/cgi-bin/cgi.exe?function=sms_send&isFree=1');
Memo1.Text:=URL;
  a:=Pos('<td><img src="cgi.exe?function=sms_show_antispam_image&ImageNumber=', Memo1.Lines.Text);
 
Edit1.Text:=Copy(Memo1.Lines.Text, a+67,2);
cifra:=StrtoInt(  Copy(Memo1.Lines.Text, a+67,2  )  );
str:=tmemorystream.create;
ShowMessage('перед запросом картинки');
http.Get('http://freesms.mts.by/cgi-bin/cgi.exe?function=sms_show_antispam_image&ImageNumber='+ Copy(Memo1.Lines.Text, a+67,2)+'.jpeg' , str);
ShowMessage('get картинку');
str.SaveToFile('1.jpeg');
ShowMessage('Было сохр в файл');

Image2.Picture.LoadFromFile('1.jpeg');

Вот и все! Думаю, разберетесь.
Ну вот Вы написали мне то, что Вы нашли: я думаю, что это не то, так как тут нет ни номера, ни сообщения, ни кода каптчи!..

[Пепел Феникса]

шапка формы(куда и как)

<form name="send" action="cgi.exe?function=sms_send"  method="post" onsubmit="return CheckEmpty();">

(как я понял это не оч важно но тем не менее)

<input name="MMObjectType" value = "0" TYPE="hidden">
<input name="isFree" value = "1" TYPE="hidden">
<input name="MMObjectID" value = "" TYPE="hidden">

префикс номера

<input type="hidden" value="375" name="Prefix" id="Prefix">

я так и не понял зачем он(рекомендую проснифферить)

<input type="hidden" value="" name="To" id="To">

изменяемая часть префикса

<select name="NDC" id="NDC" slyle="heigth:bold;"></h3>
<option value="29">29</option>
<option value="33">33</option></select>

сам номер(без префикса)

<input size="7" maxlength="7" value="" name="mobnum" id="mobnum" type="text">

само сообщение

<textarea  style="overflow: auto;" rows="5" cols="40" wrap="virtual" name="Msg" id="Msg" onKeypress="checkMes();" onfocus="checkMes();" onkeyup="checkMes();" onkeydown="checkMes();"></textarea>

длина сообщения(может быть важным)

<input size="4" value="0" name="count" id="count" type="text" onfocus="window.document.send.Msg.focus();" onchange="window.document.send.Msg.focus();" onkeypress="window.document.send.Msg.focus();">

транслит(тут аккуратно, там скрипт)

<input type=checkbox name="TranslitCB" CHECKED onChange="if(window.document.send.TranslitCB.checked) window.document.send.ForcedTranslit.value = 1; else window.document.send.ForcedTranslit.value = 0;" onClick="if(window.document.send.TranslitCB.checked) window.document.send.ForcedTranslit.value = 1; else window.document.send.ForcedTranslit.value = 0;"><input type=text name="ForcedTranslit" value="1">

Крайний срок отправки (время суток и дата)
час

<select name="Hour"><option > 00<option > 01<option > 02<option > 03<option > 04<option > 05<option > 06<option > 07<option > 08<option > 09<option > 10<option > 11<option > 12<option > 13<option > 14<option > 15<option > 16<option > 17<option > 18<option > 19<option > 20<option > 21<option selected> 22<option > 23</select>

минута

<select name="Min"><option > 00<option > 01<option > 02<option > 03<option > 04<option > 05<option > 06<option > 07<option > 08<option > 09<option > 10<option selected> 11<option > 12<option > 13<option > 14<option > 15<option > 16<option > 17<option > 18<option > 19<option > 20<option > 21<option > 22<option > 23<option > 24<option > 25<option > 26<option > 27<option > 28<option > 29<option > 30<option > 31<option > 32<option > 33<option > 34<option > 35<option > 36<option > 37<option > 38<option > 39<option > 40<option > 41<option > 42<option > 43<option > 44<option > 45<option > 46<option > 47<option > 48<option > 49<option > 50<option > 51<option > 52<option > 53<option > 54<option > 55<option > 56<option > 57<option > 58<option > 59</select>

день

<select name="Day"><option selected> 01<option > 02<option > 03<option > 04<option > 05<option > 06<option > 07<option > 08<option > 09<option > 10<option > 11<option > 12<option > 13<option > 14<option > 15<option > 16<option > 17<option > 18<option > 19<option > 20<option > 21<option > 22<option > 23<option > 24<option > 25<option > 26<option > 27<option > 28<option > 29<option > 30<option > 31</select>

месяц

<select name="Mon">
<option  value="01">Январь</option>
<option  value="02">Февраль</option>
<option  value="03">Март</option>
<option  value="04">Апрель</option>
<option selected value="05">Май</option>
<option  value="06">Июнь</option>
<option  value="07">Июль</option>
<option  value="08">Август</option>
<option  value="09">Сентябрь</option>
<option  value="10">Октябрь</option>
<option  value="11">Ноябрь</option>
<option  value="12">Декабрь</option>
</select>

год

<select name="Year">
<option  value="2009">2009</option>
<option  value="2010">2010</option>
</select>

[Пепел Феникса]

а какой хрена должны все всё за тебя делать?
одно дело помощь другое наглость.
здесь не пристанище тех кто делает за других все.

[oe24]

Так! Не ссоримся!!!
В этой теме, в середине страниц, уже кто-то спрашивал о том, как грузить в Image прямо из потока, но никто не ответил... Я пробовал в одном из клмпонентов RX (там есть LoadFromStream), но у меня ничего не получилось. А вот кстати, файлы не будут плодиться, а просто файл 1.png будет заменяться и все, - так что на диске будет только один экземпляр файла 1.png.
Вот так.

[Пепел Феникса]

загрузка в поток из него

Var i,a, dl,cifra:integer;
str: TMemoryStream;
URL, test, STRcifra,im,find:string;
begin
URL:=http.Get('http://freesms.mts.by/cgi-bin/cgi.exe?function=sms_send&isFree=1');
Memo1.Text:=URL;
a:=Pos('<td><img src="cgi.exe?function=sms_show_antispam_image&ImageNumber=', Memo1.Lines.Text);
Edit1.Text:=Copy(Memo1.Lines.Text, a+67,2);
cifra:=StrtoInt(  Copy(Memo1.Lines.Text, a+67,2  )  );
str:=tmemorystream.create;
http.Get('http://freesms.mts.by/cgi-bin/cgi.exe?function=sms_show_antispam_image&ImageNumber='+ Copy(Memo1.Lines.Text, a+67,2)+'.jpeg' , str);
str.Seek(0,soFromBeginning);
Image2.Picture.LoadFromStream(str);
end;

[oe24]

Хорошо бы было так, но нет у Image свойства Picture.Picture.LoadFromStream()...
(в Delphi 7)

[Пепел Феникса]

оно есть у Picture.BitMap
но тут иная проблема он не хочет грузить JPEG в себя(картинка то ДЖПЕГовская)

[oe24]

Подскажите, люди, как потом просмотреть ту, страницу, на которую браузер отправляет после нажатия на кнопку "отправить"? (Например, на сайте freesms.mts.by).
Спасибо всем!!!