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

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

0
Ответов: 35
Рейтинг: 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
Ответов: 4628
Рейтинг: 749
#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
Ответов: 35
Рейтинг: 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
Ответов: 4628
Рейтинг: 749
#335: 2021-10-11 10:29:58 ЛС | профиль | цитата
Не надо в сообщении цитировать весь код.
карма: 26

0
Ответов: 203
Рейтинг: 2
#336: 2021-11-04 23:33:55 ЛС | профиль | цитата
Давно не работал с Hiasm... Попросили подправить схему, а компонент внутри MultiElementEx не хочет работать... А web служба не доступна из интернета...

Редактировалось 1 раз(а), последний 2021-11-04 23:34:12
карма: 0

0
Ответов: 4628
Рейтинг: 749
#337: 2021-11-05 13:25:26 ЛС | профиль | цитата
В чем выражается "не хочет работать"?
карма: 26

0
Ответов: 249
Рейтинг: 4
#338: 2022-07-02 10:54:28 ЛС | профиль | цитата
а где посмотреть расшифровку ошибок 12002, 12029 а лучше все что есть в компоненте.
карма: 1

0
Ответов: 233
Рейтинг: 12
#339: 2022-07-02 11:41:47 ЛС | профиль | цитата
ric писал(а):
а где посмотреть расшифровку ошибок 12002, 12029 а лучше все что есть в компоненте.

В интернете. Это ошибки не компонента а WinHTTP
карма: 2

0
Ответов: 249
Рейтинг: 4
#340: 2022-07-02 13:42:52 ЛС | профиль | цитата
благодарствую
карма: 1

0
Ответов: 4628
Рейтинг: 749
#341: 2022-07-02 21:02:30 ЛС | профиль | цитата
ric, это коды ошибок Windows: https://docs.microsoft.com/en-us/windows/win32/debug/system-error-codes
карма: 26

0
Ответов: 249
Рейтинг: 4
#342: 2022-07-04 10:44:52 ЛС | профиль | цитата
Netspirit писал(а):
https://docs.microsoft.com/en-us/windows/win32/debug/system-error-codes

Благодарю за помощь
карма: 1

0
342
ФорумыКомпонентыHTTP компоненты ← Ctrl12345...1920212223Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика