------------ Дoбавленo в 17.58:
уже второй день бьюсь с этими пост запросами
------------ Дoбавленo в 18.22:
может кто нибудь помочь разобраться почему через TCP порт не отпраляется не чего?? ни какой отправки и ответа от сервера
Add(TCP_Client,5715862,1001,392)
{
Port=80
IP="127.0.0.1"
link(onRead,3626567:doEvent1,[(1047,398)(1047,390)])
}
Add(Convertor,825475,314,176)
{
Mode=11
link(onResult,1806815:doText,[])
}
Add(Button,13409193,700,336)
{
Left=195
Top=425
Width=165
Caption="Отправить"
link(onClick,6704302:doBuild,[])
}
Add(BlockFind,16302640,433,274)
{
IncludeBlock=1
StartBlock="http://www.sendsms.megafon.ru/image.phtml?"
EndBlock="""
link(onSearch,7301050:doValue,[])
link(Text,16623902:Var2,[(439,237)(420,237)])
}
Add(Edit,12369398,819,126)
{
Left=90
Top=40
Width=105
Text=""
}
Add(ComboBox,11497199,798,63)
{
Left=5
Top=40
Width=65
Height=21
Strings=#4:7926|4:7925|4:7921|4:7931|4:7920|4:7922|4:7923|4:7924|4:7927|4:7928|4:7937|4:7929|4:7930|4:7932|4:7938|
Text="+7 ХХХ"
}
Add(Memo,9049723,865,119)
{
Left=10
Top=70
Width=390
Height=115
}
Add(Edit,8130774,914,125)
{
Left=60
Top=425
Width=125
Text=""
}
Add(FormatStr,9191121,480,438)
{
DataCount=1
Mask="http://www.sendsms.megafon.ru/image.phtml?%1"
link(onFString,356083:doText2,[])
link(Str1,7301050:Value,[])
}
Add(Hub,12852635,343,273)
{
OutCount=4
link(onEvent1,41630:doSearch,[(388,279)(388,234)])
link(onEvent2,16302640:doSearch,[(396,286)(396,280)])
link(onEvent3,9191121:doString,[(419,293)(419,444)])
link(onEvent4,8967054:doDownload,[(395,300)(395,531)])
}
Add(StrList,1806815,414,155)
{
}
Add(HTTP_Get,8967054,553,525)
{
link(onDownload,2205482:doEvent1,[])
link(URL,356083:Text,[])
}
Add(MainForm,315228,121,168)
{
Width=837
Height=626
Caption="Image Downloader"
link(onActivate,13545228:doDownload,[])
}
Add(Hub,2205482,615,532)
{
link(onEvent1,7354270:doLoadFromStream,[])
link(onEvent2,7354270:doBitmap,[])
}
Add(Image,7745594,685,518)
{
Left=10
Top=200
Width=390
Height=220
ViewStyle=0
}
Add(Jpeg,7354270,643,518)
{
Point(doLoadFromStream)
Point(doBitmap)
link(onBitmap,7745594:doLoad,[])
}
Add(Edit,356083,553,431)
{
Left=360
Width=320
Visible=1
Text="URL где находится капча"
}
Add(Label,12817504,194,35)
{
Left=15
Top=20
Width=81
Height=17
Caption="Введите номер"
}
Add(Label,8675130,189,32)
{
Left=20
Top=425
Width=34
Height=17
Caption="Капча"
}
Add(Label,8106850,189,32)
{
Left=305
Top=50
Width=67
Height=17
Caption="тест письма"
}
Add(HTTP_Get,13545228,224,168)
{
URL="http://www.sendsms.megafon.ru/"
link(onDownload,825475:doConvert,[(285,181)(285,182)])
link(onStop,12852635:doEvent1,[(300,195)(300,279)])
}
Add(WebBrowser,96662,1162,371)
{
Left=405
Top=330
Width=395
Height=225
Point(doFromText)
}
Add(URLBuilder,6704302,784,336)
{
Args=#7:codekey|9:charcheck|4:lang|6:prefix|4:addr|7:message|9:codevalue|2:go|
link(onBuild,6791773:doBuild,[])
link(codekey,10558621:Value,[(790,298)(731,298)])
link(charcheck,8854150:Value,[(797,283)(776,283)])
link(prefix,11497199:String,[])
link(addr,12369398:Text,[(818,196)(825,196)])
link(message,9049723:Text,[(825,211)(871,211)])
link(codevalue,8130774:Text,[(832,233)(920,233)])
link(go,2154126:Value,[(839,323)(911,323)])
}
Add(HTTP_PostBuilder,6791773,889,336)
{
URL="/sms.action"
Host="http://www.sendsms.megafon.ru"
link(onBuild,7386601:doEvent1,[(937,342)(937,398)])
}
Add(Memo,6795892,1092,413)
{
Left=25
Top=470
Width=345
Height=105
}
Add(Hub,7386601,952,392)
{
OutCount=3
link(onEvent1,5715862:doOpen,[])
link(onEvent2,5715862:doSend,[(984,405)(984,412)])
link(onEvent3,8110761:doText,[(972,412)(972,487)])
}
Add(Hub,3626567,1061,384)
{
link(onEvent1,96662:doFromText,[(1119,390)(1119,405)])
link(onEvent2,6795892:doText,[(1083,397)(1083,440)])
}
Add(Memory,2154126,905,264)
{
Default=String(Отправить)
}
Add(Memory,7301050,480,273)
{
}
Add(BlockFind,41630,638,228)
{
IncludeBlock=1
StartBlock="name="codekey" value=""
EndBlock="""
link(onSearch,10558621:doValue,[])
link(Text,16623902:Var3,[(644,222)])
}
Add(Memory,8854150,770,224)
{
Default=String(йцукен)
}
Add(GetDataEx,16623902,414,217)
{
link(Data,1806815:Text,[])
}
Add(Memory,10558621,725,228)
{
}
Add(Memo,8110761,998,460)
{
Left=405
Top=35
Width=395
Height=275
}