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 есть, но данные почему-то не отправляются хотя вроде всё верно