Специально обновился, все работает. С етими вопросами уже не ко мне, а к разработчикам.
А еще лучше поставьте себе ХР на витуалке, уверен что проблем станет на порядок меньше.
------------ Дoбавленo в 18.17:
Вот вариант без етих компонентов
Add(MainForm,2953706,70,126)
{
Width=399
Height=194
}
Add(Button,6662602,70,77)
{
Left=10
Top=10
Width=110
Caption="Выбрать"
link(onClick,7745772:doExecute,[])
}
Add(Button,5427057,70,168)
{
Left=10
Top=70
Width=110
Caption="Отправить"
link(onClick,12846532:doBuild,[])
}
Add(Label,8293928,518,357)
{
Left=10
Top=100
Width=43
Height=17
Caption="Ссылка"
}
Add(Edit,15672319,462,357)
{
Left=10
Top=125
Width=370
Text=""
}
Add(TCP_Client,12742276,301,168)
{
Port=80
IP="81.176.70.59"
PColor(onConnect,16755200)
PColor(onDisconnect,16755200)
link(onRead,8103714:doEvent1,[])
link(onConnect,6466760:doOn,[(394,181)(394,321)])
link(onDisconnect,6466760:doOff,[(394,188)(394,314)])
}
Add(HTTP_FileUpload,12846532,224,168)
{
URL="/perl?upload_id="
Host="upload.webfile.ru"
Name="userfile"
link(onBuild,3028790:doEvent1,[])
link(FileName,3784711:Value,[])
}
Add(Hub,3028790,273,168)
{
link(onEvent1,12742276:doOpen,[])
link(onEvent2,12742276:doSend,[(294,181)(294,188)])
}
Add(TCP_Client,5976182,749,189)
{
Port=80
IP="81.176.70.58"
PColor(onConnect,16755200)
link(onRead,13304099:doSearch,[(825,195)(825,244)])
link(onConnect,12436967:doOn,[(797,202)(797,342)])
link(onDisconnect,6060115:doEvent1,[])
}
Add(Hub,15214794,721,189)
{
link(onEvent1,5976182:doOpen,[])
link(onEvent2,5976182:doSend,[(742,202)(742,209)])
}
Add(ODialog,7745772,119,77)
{
link(onExecute,3784711:doValue,[])
}
Add(Memory,3784711,224,77)
{
link(onData,15757743:doText,[])
}
Add(Edit,15757743,294,77)
{
Left=10
Top=40
Width=370
Text=""
}
Add(BlockFind,3188254,448,168)
{
@Hint=#8:userfile|
IncludeBlock=1
StartBlock="<textarea name='userfile'>"
EndBlock="</textarea>"
link(onSearch,2893609:doValue,[])
AddHint(-12,-26,48,13,@Hint)
}
Add(Memory,2893609,490,168)
{
}
Add(Hub,8103714,399,168)
{
link(onEvent1,3188254:doSearch,[])
link(onEvent2,7609554:doSearch,[(431,181)(431,223)])
}
Add(BlockFind,7609554,448,217)
{
@Hint=#3:sid|
IncludeBlock=1
StartBlock="<textarea name='sid'>"
EndBlock="</textarea></Form>"
link(onSearch,13010535:doValue,[])
link(onEndSearch,171764:doString,[(627,230)(627,195)])
AddHint(-6,40,28,13,@Hint)
}
Add(Memory,13010535,490,217)
{
}
Add(FormatStr,171764,651,189)
{
@Hint=#32:Формирование запроса методом GET|17:с: userfile и sid|49:GET /store?userfile=(userfile)&sid=(sid) HTTP/1.1|
Mask="GET /store?userfile=%1&sid=%2 HTTP/1.1\r\nHost: webfile.ru\r\n\r\n\r\n"
link(onFString,15214794:doEvent1,[])
link(Str1,8295226:Var2,[])
link(Str2,4383186:Var1,[(664,177)(701,177)])
AddHint(-260,-137,190,65,@Hint)
}
Add(BlockFind,13304099,903,238)
{
@Hint=#52:Извекаем идентификатор загруженного файла из строки:|54:<input type="hidden" name="upload" value="(значение)">|
IncludeBlock=1
StartBlock="<input type="hidden" name="upload" value=""
EndBlock="">"
link(onSearch,6806126:doValue,[(951,244)(951,111)])
AddHint(-56,76,180,52,@Hint)
}
Add(HTTP_PostBuilder,11888593,1141,238)
{
Host="webfile.ru"
Point(Cookies)
link(onBuild,6556024:doEvent1,[])
link(Content,821365:FString,[])
link(URL,3281442:FString,[(1154,226)(1070,226)(1070,282)(986,282)])
}
Add(FormatStr,3281442,980,238)
{
@Hint=#34:Формирование адреса со значениями |41:/store?userfile=(значение)&sid=(значение)|0:|
Mask="/store?userfile=%1&sid=%2"
Point(FString)
link(onFString,821365:doString,[(1032,244)(1032,160)])
link(Str1,9485664:Var2,[])
link(Str2,4383186:Var3,[(993,226)(849,226)(849,261)])
AddHint(-93,-175,204,52,@Hint)
}
Add(Memory,6806126,1148,105)
{
}
Add(InfoTip,2218861,210,42)
{
Info=#15:Отправка файла.|24:Файл в теле запроса POST|
Frame=3
Width=155
Height=172
Margin=5
}
Add(InfoTip,6645243,595,112)
{
Info=#12:Отправка GET|
Frame=3
Width=211
Height=165
Margin=5
}
Add(FormatStr,821365,1141,154)
{
@Hint=#55:Формирование данных (Content) для отправки методом POST|51:name=(значение)&upload=(значение)&password=& и т.д.|
Mask="name=%1&upload=%2&password=&description=&folder=0&email=&friend=&update=%D0%9F%D0%BE%D0%BB%D1%83%D1%87%D0%B8%D1%82%D1%8C+%D1%81%D1%81%D1%8B%D0%BB%D0%BA%D1%83\r\n"
Point(FString)
link(onFString,5033474:doData,[])
link(Str1,9485664:Var3,[(1147,144)])
link(Str2,6806126:Value,[])
AddHint(-80,170,245,52,@Hint)
}
Add(GetDataEx,4383186,695,256)
{
Angle=3
link(Data,13010535:Value,[(496,261)])
}
Add(TCP_Client,8063418,1225,238)
{
Port=80
IP="81.176.70.58"
PColor(onConnect,16755200)
PColor(onDisconnect,16755200)
link(onRead,2454658:doSearch,[(1275,244)(1275,287)(23,287)(23,321)])
link(onConnect,5563379:doOn,[(1321,251)(1321,349)])
link(onDisconnect,5563379:doOff,[(1321,258)(1321,342)])
}
Add(Hub,6556024,1190,238)
{
link(onEvent1,8063418:doOpen,[])
link(onEvent2,8063418:doSend,[(1218,251)(1218,258)])
}
Add(BlockFind,3747645,91,420)
{
@Hint=#44:Далее надо отправлять последний запрос(GET),|90:но учитывая что конечная ссылка состоит из строк http://webfile.ru/ + значение placed?id=|44:то ее можно сформировать уже на етом етапе. |
IncludeBlock=1
StartBlock="<p>The document has moved <a href="/placed?id="
EndBlock="">here</a>.</p>"
link(onSearch,12680227:doStrCat,[])
AddHint(36,34,196,91,@Hint)
}
Add(StrCat,12680227,147,420)
{
Str1="http://webfile.ru/"
link(onStrCat,12885462:doWork3,[(397,426)])
}
Add(GetDataEx,9485664,980,139)
{
Angle=3
link(Data,8295226:Var3,[])
}
Add(InfoTip,9428387,427,126)
{
Info=#
Width=106
Height=165
}
Add(InfoTip,1762202,1113,70)
{
Info=#13:Отправка POST|
Frame=3
Width=204
Height=242
Margin=5
}
Add(FormatStr,8243878,175,315)
{
Mask="GET /placed?id=%1 HTTP/1.1\r\nHost: webfile.ru\r\n\r\n"
link(onFString,3185844:doEvent1,[])
link(Str1,3546021:Value,[(181,303)(160,303)(160,359)(139,359)])
}
Add(BlockFind,2454658,84,315)
{
IncludeBlock=1
StartBlock="<p>The document has moved <a href="/placed?id="
EndBlock="">here</a>.</p>"
link(onSearch,3546021:doValue,[])
}
Add(TCP_Client,7046810,245,315)
{
Port=80
IP="81.176.70.58"
PColor(onConnect,16755200)
PColor(onDisconnect,16755200)
link(onRead,2127011:doSearch,[])
link(onConnect,11693173:doOn,[(363,328)(363,461)])
link(onDisconnect,11693173:doOff,[(363,335)(363,454)])
}
Add(Hub,3185844,217,315)
{
link(onEvent1,7046810:doOpen,[])
link(onEvent2,7046810:doSend,[(234,328)(234,335)])
}
Add(InfoTip,3068834,70,385)
{
Info=#9:Вариант 1|
Width=281
Height=172
}
Add(InfoTip,7663386,63,252)
{
Info=#9:Вариант 2|34:Так должно быть, но не обязательно|
Width=295
Height=123
}
Add(BlockFind,2127011,301,315)
{
IncludeBlock=1
StartBlock="value='[url="
EndBlock="]"
link(onSearch,12885462:doWork1,[(397,321)])
}
Add(DoData,5033474,1183,154)
{
link(onEventData,11888593:doBuild,[(1222,160)(1222,215)(1126,215)(1126,244)])
}
Add(Memory,3546021,133,315)
{
link(onData,8243878:doString,[])
}
Add(HubEx,12885462,393,357)
{
link(onEvent,15672319:doText,[])
}
Add(GetDataEx,8295226,651,139)
{
Angle=3
link(Data,2893609:Value,[(577,144)(577,212)(496,212)])
}
Add(LED,6466760,455,301)
{
Left=140
Top=70
Width=15
Height=15
ColorOn=65280
}
Add(LED,12436967,812,322)
{
Left=160
Top=70
Width=15
Height=15
ColorOn=65280
}
Add(LED,5563379,1386,329)
{
Left=180
Top=70
Width=15
Height=15
ColorOn=65280
}
Add(LED,11693173,448,441)
{
Left=200
Top=70
Width=15
Height=15
ColorOn=65280
}
Add(Hub,6060115,805,203)
{
PColor(onEvent2,16755200)
link(onEvent1,3281442:doString,[(963,209)(963,244)])
link(onEvent2,12436967:doOff,[(831,216)(831,276)(800,276)(800,335)])
}