Вверх ↑
Этот топик читают: Гость
Ответов: 4505
Рейтинг: 719
#331: 2021-10-08 17:52:34 ЛС | профиль | цитата
Схема не влезла - в тег code надо вставлять.
prostov писал(а):
не получается отправить данные из программы
А как понять что не получается? Текст с onFinish показывает наличие сообщения. Или сообщение не программой было сделано?

Редактировалось 2 раз(а), последний 2021-10-08 17:54:06
карма: 26

0
Ответов: 10
Рейтинг: 0
#332: 2021-10-08 17:55:09 ЛС | профиль | цитата
Netspirit писал(а):
Схема не влезла - в тег code надо вставлять.

Редактировалось 1 раз(а), последний 2021-10-08 17:52:57


вот схема

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
Width=1205
Height=686
link(onCreate,10959725:doEvent1,[])
}
Add(Charset,4035241,252,91)
{
Type=7
link(onCharset,10385316:doReplace,[])
}
Add(Convertor,4909607,210,91)
{
Mode=11
link(onResult,4035241:doCharset,[])
}
Add(HTTP_Get,7044225,161,84)
{
URL="https://faills.ru/reglogin/cthat/chat.php"
Method=1
link(onDownload,4909607:doConvert,[])
}
Add(RichEdit,9856322,651,133)
{
Left=15
Top=15
Width=310
Height=310
Font=[MS Sans Serif,10,3,0,1]
ScrollBars=3
ReadOnly=0
}
Add(BlockFind,3450763,364,91)
{
StartBlock="<div class="msg"><div class="info"><span class="name">"
EndBlock="</div>"
link(onSearch,13353085:doReplace,[])
}
Add(Replace,13353085,420,91)
{
SubStr="</span><span class="misc"><span class="date">"
DestStr=" "
link(onReplace,5656781:doReplace,[])
}
Add(Replace,5656781,469,91)
{
SubStr="<div class="msg"><div class="info"><span class="name">"
link(onReplace,11981885:doReplace,[])
}
Add(Replace,11981885,525,91)
{
SubStr="</span> </span></div2>"
DestStr="\r\n"
link(onReplace,9909837:doReplace,[])
}
Add(Replace,10385316,308,91)
{
SubStr="</span></div>"
DestStr="</span></div2>"
link(onReplace,3450763:doSearch,[])
}
Add(Replace,9909837,574,91)
{
SubStr="</div>"
DestStr="\r\n"
link(onReplace,9856322:doAdd,[(625,97)(625,139)])
}
Add(MMTimer,607047,154,140)
{
Interval=10000
Enable=1
link(onTimer,2685135:doEvent1,[])
}
Add(Hub,10959725,84,119)
{
link(onEvent1,13742830:doWork2,[(107,125)(107,90)])
link(onEvent2,607047:doTimer,[(126,132)(126,146)])
}
Add(Hub,2685135,231,140)
{
link(onEvent1,9856322:doClear,[])
link(onEvent2,13742830:doWork3,[(257,153)(257,123)(130,123)])
}
Add(HubEx,13742830,126,84)
{
link(onEvent,7044225:doDownload,[])
}
Add(Edit,1329548,336,231)
{
Left=20
Top=365
Width=300
Text=""
}
Add(Button,2494136,259,294)
{
Left=260
Top=395
Caption="send"
link(onClick,5332216:doString,[])
}
Add(FormatStr,5332216,329,294)
{
Mask="name=%1\r\ntext=%2"
link(onFString,1821531:doEvent1,[])
link(Str1,6928940:Text,[(335,275)(279,275)])
link(Str2,1329548:Text,[])
}
Add(Edit,6928940,273,224)
{
Left=105
Top=340
Width=125
Text="андрей"
}
Add(RichEdit,9106734,539,350)
{
Left=365
Top=25
Width=275
Height=315
ScrollBars=3
}
Add(DoData,10388014,462,364)
{
link(onEventData,9106734:doText,[])
link(Data,12060081:RawHeaders,[(468,352)(440,352)(440,403)(413,403)])
}
Add(CookieManager,16324802,322,357)
{
Name="555"
}
Add(HTTPClient,12060081,393,359)
{
URL="http://faills.ru/reglogin/cthat/chat.php"
Method=1
CookieManager="555"
Point(RawHeaders)
Point(PostData)
Point(doLoadStream)
link(onHeadersAvail,10388014:doData,[(443,365)(443,370)])
link(onFinish,7006411:doText,[(483,372)(483,428)])
link(onError,5226607:doMessage,[(443,386)(443,447)])
link(PostData,6249464:Value,[(413,343)(412,343)])
}
Add(Memory,6249464,406,294)
{
}
Add(RichEdit,7006411,535,408)
{
Left=660
Top=25
Width=475
Height=595
ScrollBars=3
}
Add(Message,5226607,462,441)
{
Icon=1
}
Add(Hub,1821531,371,294)
{
link(onEvent1,6249464:doValue,[])
link(onEvent2,12060081:doLoadString,[(389,307)(389,365)])
}


--- Добавлено в 2021-10-08 17:58:53

Netspirit писал(а):
Схема не влезла - в тег code надо вставлять.
prostov писал(а):
не получается отправить данные из программы
А как понять что не получается? Текст с onFinish показывает наличие сообщения. Или сообщение не программой было сделано?

Редактировалось 1 раз(а), последний 2021-10-08 17:52:57

Текст с onFinish есть, но данные почему-то не отправляются хотя вроде всё верно

Редактировалось 1 раз(а), последний 2021-10-08 17:58:53
карма: 0

0
Ответов: 4505
Рейтинг: 719
#333: 2021-10-08 18:30:49 ЛС | профиль | цитата

Add(MainForm,12084562,273,196)
{
Width=1205
Height=686
link(onCreate,10959725:doEvent1,[])
}
Add(Charset,4035241,504,182)
{
Type=7
link(onCharset,10385316:doReplace,[])
}
Add(Convertor,4909607,462,182)
{
Mode=11
link(onResult,4035241:doCharset,[])
}
Add(HTTP_Get,7044225,413,175)
{
URL="https://faills.ru/reglogin/cthat/chat.php"
Method=1
link(onDownload,4909607:doConvert,[])
}
Add(RichEdit,9856322,903,224)
{
Left=15
Top=15
Width=310
Height=310
Font=[MS Sans Serif,10,3,0,1]
ScrollBars=3
ReadOnly=0
}
Add(BlockFind,3450763,616,182)
{
StartBlock="<div class="msg"><div class="info"><span class="name">"
EndBlock="</div>"
link(onSearch,13353085:doReplace,[])
}
Add(Replace,13353085,672,182)
{
SubStr="</span><span class="misc"><span class="date">"
DestStr=" "
link(onReplace,5656781:doReplace,[])
}
Add(Replace,5656781,721,182)
{
SubStr="<div class="msg"><div class="info"><span class="name">"
link(onReplace,11981885:doReplace,[])
}
Add(Replace,11981885,777,182)
{
SubStr="</span> </span></div2>"
DestStr="\r\n"
link(onReplace,9909837:doReplace,[])
}
Add(Replace,10385316,560,182)
{
SubStr="</span></div>"
DestStr="</span></div2>"
link(onReplace,3450763:doSearch,[])
}
Add(Replace,9909837,826,182)
{
SubStr="</div>"
DestStr="\r\n"
link(onReplace,9856322:doAdd,[(877,188)(877,230)])
}
Add(MMTimer,607047,406,231)
{
Interval=10000
link(onTimer,2685135:doEvent1,[])
}
Add(Hub,10959725,336,210)
{
link(onEvent1,13742830:doWork2,[(359,216)(359,181)])
link(onEvent2,607047:doTimer,[(378,223)(378,237)])
}
Add(Hub,2685135,483,231)
{
link(onEvent1,9856322:doClear,[])
link(onEvent2,13742830:doWork3,[(509,244)(509,214)(382,214)])
}
Add(HubEx,13742830,378,175)
{
link(onEvent,7044225:doDownload,[])
}
Add(Edit,1329548,490,315)
{
Left=20
Top=365
Width=300
Text="444"
}
Add(Button,2494136,385,441)
{
Left=260
Top=395
Caption="send"
link(onClick,5332216:doString,[])
}
Add(FormatStr,5332216,455,441)
{
Mask="name=%1\r\ntext=%2\r\nmode=post\r\nlastMod=0"
link(onFString,1821531:doEvent1,[])
link(Str1,6928940:Text,[(461,394)(433,394)])
link(Str2,1329548:Text,[(468,394)(496,394)])
}
Add(Edit,6928940,427,315)
{
Left=105
Top=340
Width=125
Text="андрей"
}
Add(RichEdit,9106734,798,490)
{
Left=365
Top=25
Width=275
Height=315
ScrollBars=3
}
Add(CookieManager,16324802,441,553)
{
Name="555"
}
Add(HTTPClient,12060081,644,504)
{
URL="http://faills.ru/reglogin/cthat/chat.php"
Method=1
CookieManager="555"
Point(RawHeaders)
Point(PostData)
Point(doLoadStream)
link(onHeadersAvail,10388014:doData,[])
link(onFinish,7006411:doText,[(718,517)(718,573)])
link(onError,5226607:doMessage,[(695,531)(695,594)])
link(PostData,6249464:Value,[])
}
Add(Memory,6249464,658,441)
{
}
Add(RichEdit,7006411,784,553)
{
Left=660
Top=25
Width=475
Height=595
ScrollBars=3
}
Add(Message,5226607,714,588)
{
Icon=1
}
Add(Hub,1821531,497,441)
{
link(onEvent1,6249464:doValue,[])
link(onEvent2,2157815:doData,[(553,454)(553,510)])
}
Add(DoData,2157815,595,504)
{
link(onEventData,12060081:doLoadString,[])
}
Add(DoData,10388014,735,504)
{
link(onEventData,9106734:doText,[])
link(Data,12060081:RawHeaders,[(741,492)(703,492)(703,548)(664,548)])
}

Заглушить данные на входе doLoadString, добавить дополнительные параметры в PostData (в FormatStr).
карма: 26

0
Ответов: 10
Рейтинг: 0
#334: 2021-10-08 20:20:39 ЛС | профиль | цитата
Netspirit писал(а):



Add(MainForm,12084562,273,196)
{
Width=1205
Height=686
link(onCreate,10959725:doEvent1,[])
}
Add(Charset,4035241,504,182)
{
Type=7
link(onCharset,10385316:doReplace,[])
}
Add(Convertor,4909607,462,182)
{
Mode=11
link(onResult,4035241:doCharset,[])
}
Add(HTTP_Get,7044225,413,175)
{
URL="https://faills.ru/reglogin/cthat/chat.php"
Method=1
link(onDownload,4909607:doConvert,[])
}
Add(RichEdit,9856322,903,224)
{
Left=15
Top=15
Width=310
Height=310
Font=[MS Sans Serif,10,3,0,1]
ScrollBars=3
ReadOnly=0
}
Add(BlockFind,3450763,616,182)
{
StartBlock="<div class="msg"><div class="info"><span class="name">"
EndBlock="</div>"
link(onSearch,13353085:doReplace,[])
}
Add(Replace,13353085,672,182)
{
SubStr="</span><span class="misc"><span class="date">"
DestStr=" "
link(onReplace,5656781:doReplace,[])
}
Add(Replace,5656781,721,182)
{
SubStr="<div class="msg"><div class="info"><span class="name">"
link(onReplace,11981885:doReplace,[])
}
Add(Replace,11981885,777,182)
{
SubStr="</span> </span></div2>"
DestStr="\r\n"
link(onReplace,9909837:doReplace,[])
}
Add(Replace,10385316,560,182)
{
SubStr="</span></div>"
DestStr="</span></div2>"
link(onReplace,3450763:doSearch,[])
}
Add(Replace,9909837,826,182)
{
SubStr="</div>"
DestStr="\r\n"
link(onReplace,9856322:doAdd,[(877,188)(877,230)])
}
Add(MMTimer,607047,406,231)
{
Interval=10000
link(onTimer,2685135:doEvent1,[])
}
Add(Hub,10959725,336,210)
{
link(onEvent1,13742830:doWork2,[(359,216)(359,181)])
link(onEvent2,607047:doTimer,[(378,223)(378,237)])
}
Add(Hub,2685135,483,231)
{
link(onEvent1,9856322:doClear,[])
link(onEvent2,13742830:doWork3,[(509,244)(509,214)(382,214)])
}
Add(HubEx,13742830,378,175)
{
link(onEvent,7044225:doDownload,[])
}
Add(Edit,1329548,490,315)
{
Left=20
Top=365
Width=300
Text="444"
}
Add(Button,2494136,385,441)
{
Left=260
Top=395
Caption="send"
link(onClick,5332216:doString,[])
}
Add(FormatStr,5332216,455,441)
{
Mask="name=%1\r\ntext=%2\r\nmode=post\r\nlastMod=0"
link(onFString,1821531:doEvent1,[])
link(Str1,6928940:Text,[(461,394)(433,394)])
link(Str2,1329548:Text,[(468,394)(496,394)])
}
Add(Edit,6928940,427,315)
{
Left=105
Top=340
Width=125
Text="андрей"
}
Add(RichEdit,9106734,798,490)
{
Left=365
Top=25
Width=275
Height=315
ScrollBars=3
}
Add(CookieManager,16324802,441,553)
{
Name="555"
}
Add(HTTPClient,12060081,644,504)
{
URL="http://faills.ru/reglogin/cthat/chat.php"
Method=1
CookieManager="555"
Point(RawHeaders)
Point(PostData)
Point(doLoadStream)
link(onHeadersAvail,10388014:doData,[])
link(onFinish,7006411:doText,[(718,517)(718,573)])
link(onError,5226607:doMessage,[(695,531)(695,594)])
link(PostData,6249464:Value,[])
}
Add(Memory,6249464,658,441)
{
}
Add(RichEdit,7006411,784,553)
{
Left=660
Top=25
Width=475
Height=595
ScrollBars=3
}
Add(Message,5226607,714,588)
{
Icon=1
}
Add(Hub,1821531,497,441)
{
link(onEvent1,6249464:doValue,[])
link(onEvent2,2157815:doData,[(553,454)(553,510)])
}
Add(DoData,2157815,595,504)
{
link(onEventData,12060081:doLoadString,[])
}
Add(DoData,10388014,735,504)
{
link(onEventData,9106734:doText,[])
link(Data,12060081:RawHeaders,[(741,492)(703,492)(703,548)(664,548)])
}

Заглушить данные на входе doLoadString, добавить дополнительные параметры в PostData (в FormatStr).

спасибо огромное.
карма: 0

0
Ответов: 4505
Рейтинг: 719
#335: 2021-10-11 10:29:58 ЛС | профиль | цитата
Не надо в сообщении цитировать весь код.
карма: 26

0
335
Сообщение
...
Прикрепленные файлы
(файлы не залиты)