Вверх ↑
Этот топик читают: Гость
Ответов: 220
Рейтинг: 10
#241: 2020-03-23 18:49:17 ЛС | профиль | цитата
Kolchak,

Не все так легко как ты пытаешься


Add(MainForm,2953706,42,49)
{
Width=468
Height=441
Name="VK"
Caption="Вконтакте"
Position=1
}
Add(Edit,9089818,196,49)
{
Left=10
Top=10
Width=165
Text=""
}
Add(Edit,2480487,259,49)
{
Left=185
Top=10
Width=190
Text=""
}
Add(Button,8431870,126,224)
{
Left=390
Top=10
TabOrder=-1
Caption="Войти"
link(onClick,14840059:doStart,[])
}
Add(HTTPClient,13653845,238,224)
{
URL="https://vk.com/"
CookieManager="VK"
link(onFinish,12173446:doSearch,[])
}
Add(Thread,14840059,182,224)
{
Delay=0
FastStop=0
link(onExec,13653845:doLoadString,[])
}
Add(CookieManager,3226367,42,161)
{
Name="VK"
}
Add(RichEdit,11120101,1022,350)
{
Left=5
Top=65
Width=440
Height=335
ScrollBars=2
}
Add(BlockFind,12173446,287,231)
{
IncludeBlock=1
StartBlock="<form method="POST" name="login" id="quick_login_form" action="https://login.vk.com/?act=login">"
EndBlock="</form>"
link(onSearch,5991828:doEvent1,[])
}
Add(BlockFind,5641264,378,203)
{
IncludeBlock=1
StartBlock="name="ip_h" value=""
EndBlock="""
link(onSearch,8057132:doValue,[])
}
Add(Hub,5991828,336,231)
{
link(onEvent1,5641264:doSearch,[(364,237)(364,209)])
link(onEvent2,14088092:doSearch,[(364,244)(364,272)])
}
Add(BlockFind,14088092,378,266)
{
IncludeBlock=1
StartBlock="name="lg_h" value=""
EndBlock="""
link(onSearch,12699118:doValue,[])
}
Add(Memory,8057132,434,203)
{
}
Add(Memory,12699118,434,266)
{
link(onData,3764876:doEvent1,[])
}
Add(LineBreak,14180527,434,308)
{
Caption="lg_h"
Type=1
link(Data,12699118:Value,[])
Primary=[7374460,98,-126]
}
Add(LineBreak,6322455,434,245)
{
Caption="ip_h"
Type=1
link(Data,8057132:Value,[])
Primary=[15788358,91,-77]
}
Add(FormatStr,1796193,525,266)
{
DataCount=6
Mask="act=login\r\nrole=al_frame\r\nexpire=\r\ncaptcha_sid=%5\r\ncaptcha_key=%6\r\n_origin=https://vk.com\r\nip_h=%1\r\nlg_h=%2\r\nemail=%3\r\npass=%4"
Point(FString)
link(onFString,6894500:doLoadString,[])
link(Str1,15788358:Var,[])
link(Str2,7374460:Var,[])
link(Str3,149865:Var,[])
link(Str4,3404568:Var,[])
link(Str5,3189139:Var,[])
link(Str6,2266572:Var,[])
}
Add(LineBreak,4723284,196,91)
{
Caption="Login"
Type=1
link(Data,9089818:Text,[])
Primary=[149865,343,105]
}
Add(LineBreak,12614792,259,91)
{
Caption="Pass"
Type=1
link(Data,2480487:Text,[])
Primary=[3404568,287,119]
}
Add(HTTPClient,6894500,595,266)
{
URL="https://login.vk.com/?act=login"
Method=1
EncType=1
CookieManager="VK"
Point(PostData)
link(onFinish,14906009:doEvent1,[])
link(PostData,1796193:FString,[(615,254)(636,254)(636,311)(531,311)])
}
Add(ChildForm,10237630,700,224)
{
link(onEvent1,6538856:In,[])
}
BEGIN_SDK
Add(EditMulti,3432722,21,21)
{
EventCount=1
WorkCount=1
VarCount=2
Width=664
Height=396
link(doWork1,15654814:doSearch,[(65,27)(65,118)])
link(Var1,2859805:Value,[(27,191)(146,191)])
link(Var2,3970101:Text,[(34,368)(195,368)])
}
Add(MainForm,13764019,504,315)
{
Left=35
Top=105
Width=154
Height=120
Visible=1
Caption="Каптча"
BorderStyle=3
ShiftLeft=150
ShiftTop=200
FormFastening="parent.VK"
Point(doVisible)
}
Add(Image,11678326,550,126)
{
Left=5
Top=5
Width=130
Height=50
Ctl3D=0
Point(onDblClick)
}
Add(HTTPClient,2492170,252,112)
{
CookieManager="parent.VK"
link(onHeadersAvail,790357:doClear,[(294,118)(294,76)])
link(onFinish,1870456:doEvent1,[])
}
Add(Convertor,11554152,348,119)
{
Mode=12
link(onResult,13972839:doCopy,[])
}
Add(StreamCopy,13972839,397,119)
{
Count=-1
link(Dest,16397487:Var2,[])
}
Add(MemoryStream,790357,397,63)
{
Point(doPosition)
}
Add(Hub,7846593,460,133)
{
OutCount=4
link(onEvent1,790357:doPosition,[(485,139)(485,114)(382,114)(382,83)])
link(onEvent2,11060859:doLoadFromStream,[])
link(onEvent3,11060859:doBitmap,[])
link(onEvent4,9713406:In,[(486,160)(486,174)])
}
Add(GetDataEx,16397487,397,99)
{
link(Data,790357:Stream,[])
}
Add(Hub,1870456,301,119)
{
link(onEvent1,11554152:doConvert,[])
link(onEvent2,7846593:doEvent1,[(334,132)(334,161)(442,161)(442,139)])
}
Add(Jpeg,11060859,497,126)
{
Point(doLoadFromStream)
Point(doBitmap)
Point(Stream)
link(onBitmap,11678326:doLoad,[])
link(Stream,16397487:Var3,[(503,104)])
}
Add(ChanelToIndex,12911926,455,343)
{
link(onIndex,13764019:doVisible,[])
}
Add(LineBreak,5282041,399,357)
{
link(Out,12911926:doWork2,[(442,363)(442,356)])
Primary=[9713406,98,-189]
}
Add(Edit,3970101,189,224)
{
Left=5
Top=65
Width=70
Text=""
}
Add(Button,16290214,357,294)
{
Left=85
Top=65
TabOrder=-1
Caption="Войти"
link(onClick,6785816:doEvent1,[])
}
Add(BlockFind,15654814,84,112)
{
IncludeBlock=1
StartBlock="parent.onLoginCaptcha('"
EndBlock="'"
link(onSearch,2859805:doValue,[])
}
Add(StrCat,3592319,196,112)
{
Str1="https://vk.com/captcha.php?sid="
link(onStrCat,2492170:doLoadString,[])
}
Add(Memory,2859805,140,112)
{
link(onData,3592319:doStrCat,[])
}
Add(Hub,6785816,406,294)
{
link(onEvent1,12911926:doWork1,[(438,300)(438,349)])
link(onEvent2,3432722:onEvent1,[(641,307)(641,27)])
}
END_SDK
Add(StyleXP,1482088,42,105)
{
}
Add(Hub,14906009,644,273)
{
link(onEvent1,10237630:doWork1,[(679,279)(679,230)])
link(onEvent2,8762953:doSearch,[(679,286)(679,321)])
}
Add(LineBreak,14998004,707,266)
{
Caption="Captca"
Type=1
link(Data,10237630:Var2,[])
Primary=[2266572,-147,-28]
}
Add(LineBreak,13106093,700,280)
{
Caption="Ssid"
Type=1
link(Data,10237630:Var1,[])
Primary=[3189139,-147,-56]
}
Add(Hub,3764876,497,266)
{
InCount=2
OutCount=1
link(onEvent1,1796193:doString,[])
}
Add(LineBreak,11158637,420,329)
{
Caption="Каптча"
link(Out,3764876:doEvent2,[(483,335)(483,279)])
Primary=[6538856,329,-105]
}
Add(BlockFind,8762953,700,315)
{
IncludeBlock=1
StartBlock="parent.onLoginDone('"
EndBlock="'"
link(onSearch,64190:doStrCat,[])
}
Add(StrCat,64190,749,315)
{
Str1="https://vk.com"
link(onStrCat,16135652:doEvent1,[])
}
Add(HTTPClient,15226573,917,315)
{
CookieManager="VK"
link(URL,64190:Result,[(923,295)(788,295)(788,358)(755,358)])
link(onFinish,85994:doEvent1,[])
}
Add(Hub,85994,966,322)
{
link(onEvent1,348291:doSearch,[(1001,328)(1001,300)])
link(onEvent2,11120101:doAdd,[(1001,335)(1001,356)])
}
Add(BlockFind,348291,1022,294)
{
IncludeBlock=1
StartBlock="<title>"
EndBlock="</title>"
link(onSearch,14935656:doText,[])
}
Add(Label,14935656,1078,294)
{
Left=10
Top=40
Width=4
Height=4
Font=[MS Sans Serif,12,1,0,1]
Caption=""
}
Add(Timer,7206592,833,336)
{
Interval=600000
Enable=1
link(onTimer,3306859:doEvent2,[(877,342)(877,328)])
}
Add(Hub,3306859,889,315)
{
InCount=2
OutCount=1
link(onEvent1,15226573:doLoadString,[])
}
Add(Hub,16135652,798,315)
{
link(onEvent1,3306859:doEvent1,[])
link(onEvent2,7206592:doTimer,[(822,328)(822,342)])
}
карма: 2

0
Главный модератор
Ответов: 2947
Рейтинг: 386
#242: 2020-03-23 20:27:35 ЛС | профиль | цитата
Kolchak писал(а):
Прошу соизволить помочь мне в моем деле.

Мерещится образ адмирала Колчака за фразой этой о юный падаван.
карма: 7
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 5
Рейтинг: 0
#243: 2020-03-25 08:05:41 ЛС | профиль | цитата
Iliya писал(а):
Kolchak,

Не все так легко как ты пытаешься


Add(MainForm,2953706,42,49)
{
Width=468
Height=441
Name="VK"
Caption="Вконтакте"
Position=1
}
Add(Edit,9089818,196,49)
{
Left=10
Top=10
Width=165
Text=""
}
Add(Edit,2480487,259,49)
{
Left=185
Top=10
Width=190
Text=""
}
Add(Button,8431870,126,224)
{
Left=390
Top=10
TabOrder=-1
Caption="Войти"
link(onClick,14840059:doStart,[])
}
Add(HTTPClient,13653845,238,224)
{
URL="https://vk.com/"
CookieManager="VK"
link(onFinish,12173446:doSearch,[])
}
Add(Thread,14840059,182,224)
{
Delay=0
FastStop=0
link(onExec,13653845:doLoadString,[])
}
Add(CookieManager,3226367,42,161)
{
Name="VK"
}
Add(RichEdit,11120101,1022,350)
{
Left=5
Top=65
Width=440
Height=335
ScrollBars=2
}
Add(BlockFind,12173446,287,231)
{
IncludeBlock=1
StartBlock="<form method="POST" name="login" id="quick_login_form" action="https://login.vk.com/?act=login">"
EndBlock="</form>"
link(onSearch,5991828:doEvent1,[])
}
Add(BlockFind,5641264,378,203)
{
IncludeBlock=1
StartBlock="name="ip_h" value=""
EndBlock="""
link(onSearch,8057132:doValue,[])
}
Add(Hub,5991828,336,231)
{
link(onEvent1,5641264:doSearch,[(364,237)(364,209)])
link(onEvent2,14088092:doSearch,[(364,244)(364,272)])
}
Add(BlockFind,14088092,378,266)
{
IncludeBlock=1
StartBlock="name="lg_h" value=""
EndBlock="""
link(onSearch,12699118:doValue,[])
}
Add(Memory,8057132,434,203)
{
}
Add(Memory,12699118,434,266)
{
link(onData,3764876:doEvent1,[])
}
Add(LineBreak,14180527,434,308)
{
Caption="lg_h"
Type=1
link(Data,12699118:Value,[])
Primary=[7374460,98,-126]
}
Add(LineBreak,6322455,434,245)
{
Caption="ip_h"
Type=1
link(Data,8057132:Value,[])
Primary=[15788358,91,-77]
}
Add(FormatStr,1796193,525,266)
{
DataCount=6
Mask="act=login\r\nrole=al_frame\r\nexpire=\r\ncaptcha_sid=%5\r\ncaptcha_key=%6\r\n_origin=https://vk.com\r\nip_h=%1\r\nlg_h=%2\r\nemail=%3\r\npass=%4"
Point(FString)
link(onFString,6894500:doLoadString,[])
link(Str1,15788358:Var,[])
link(Str2,7374460:Var,[])
link(Str3,149865:Var,[])
link(Str4,3404568:Var,[])
link(Str5,3189139:Var,[])
link(Str6,2266572:Var,[])
}
Add(LineBreak,4723284,196,91)
{
Caption="Login"
Type=1
link(Data,9089818:Text,[])
Primary=[149865,343,105]
}
Add(LineBreak,12614792,259,91)
{
Caption="Pass"
Type=1
link(Data,2480487:Text,[])
Primary=[3404568,287,119]
}
Add(HTTPClient,6894500,595,266)
{
URL="https://login.vk.com/?act=login"
Method=1
EncType=1
CookieManager="VK"
Point(PostData)
link(onFinish,14906009:doEvent1,[])
link(PostData,1796193:FString,[(615,254)(636,254)(636,311)(531,311)])
}
Add(ChildForm,10237630,700,224)
{
link(onEvent1,6538856:In,[])
}
BEGIN_SDK
Add(EditMulti,3432722,21,21)
{
EventCount=1
WorkCount=1
VarCount=2
Width=664
Height=396
link(doWork1,15654814:doSearch,[(65,27)(65,118)])
link(Var1,2859805:Value,[(27,191)(146,191)])
link(Var2,3970101:Text,[(34,368)(195,368)])
}
Add(MainForm,13764019,504,315)
{
Left=35
Top=105
Width=154
Height=120
Visible=1
Caption="Каптча"
BorderStyle=3
ShiftLeft=150
ShiftTop=200
FormFastening="parent.VK"
Point(doVisible)
}
Add(Image,11678326,550,126)
{
Left=5
Top=5
Width=130
Height=50
Ctl3D=0
Point(onDblClick)
}
Add(HTTPClient,2492170,252,112)
{
CookieManager="parent.VK"
link(onHeadersAvail,790357:doClear,[(294,118)(294,76)])
link(onFinish,1870456:doEvent1,[])
}
Add(Convertor,11554152,348,119)
{
Mode=12
link(onResult,13972839:doCopy,[])
}
Add(StreamCopy,13972839,397,119)
{
Count=-1
link(Dest,16397487:Var2,[])
}
Add(MemoryStream,790357,397,63)
{
Point(doPosition)
}
Add(Hub,7846593,460,133)
{
OutCount=4
link(onEvent1,790357:doPosition,[(485,139)(485,114)(382,114)(382,83)])
link(onEvent2,11060859:doLoadFromStream,[])
link(onEvent3,11060859:doBitmap,[])
link(onEvent4,9713406:In,[(486,160)(486,174)])
}
Add(GetDataEx,16397487,397,99)
{
link(Data,790357:Stream,[])
}
Add(Hub,1870456,301,119)
{
link(onEvent1,11554152:doConvert,[])
link(onEvent2,7846593:doEvent1,[(334,132)(334,161)(442,161)(442,139)])
}
Add(Jpeg,11060859,497,126)
{
Point(doLoadFromStream)
Point(doBitmap)
Point(Stream)
link(onBitmap,11678326:doLoad,[])
link(Stream,16397487:Var3,[(503,104)])
}
Add(ChanelToIndex,12911926,455,343)
{
link(onIndex,13764019:doVisible,[])
}
Add(LineBreak,5282041,399,357)
{
link(Out,12911926:doWork2,[(442,363)(442,356)])
Primary=[9713406,98,-189]
}
Add(Edit,3970101,189,224)
{
Left=5
Top=65
Width=70
Text=""
}
Add(Button,16290214,357,294)
{
Left=85
Top=65
TabOrder=-1
Caption="Войти"
link(onClick,6785816:doEvent1,[])
}
Add(BlockFind,15654814,84,112)
{
IncludeBlock=1
StartBlock="parent.onLoginCaptcha('"
EndBlock="'"
link(onSearch,2859805:doValue,[])
}
Add(StrCat,3592319,196,112)
{
Str1="https://vk.com/captcha.php?sid="
link(onStrCat,2492170:doLoadString,[])
}
Add(Memory,2859805,140,112)
{
link(onData,3592319:doStrCat,[])
}
Add(Hub,6785816,406,294)
{
link(onEvent1,12911926:doWork1,[(438,300)(438,349)])
link(onEvent2,3432722nEvent1,[(641,307)(641,27)])
}
END_SDK
Add(StyleXP,1482088,42,105)
{
}
Add(Hub,14906009,644,273)
{
link(onEvent1,10237630:doWork1,[(679,279)(679,230)])
link(onEvent2,8762953:doSearch,[(679,286)(679,321)])
}
Add(LineBreak,14998004,707,266)
{
Caption="Captca"
Type=1
link(Data,10237630:Var2,[])
Primary=[2266572,-147,-28]
}
Add(LineBreak,13106093,700,280)
{
Caption="Ssid"
Type=1
link(Data,10237630:Var1,[])
Primary=[3189139,-147,-56]
}
Add(Hub,3764876,497,266)
{
InCount=2
OutCount=1
link(onEvent1,1796193:doString,[])
}
Add(LineBreak,11158637,420,329)
{
Caption="Каптча"
link(Out,3764876:doEvent2,[(483,335)(483,279)])
Primary=[6538856,329,-105]
}
Add(BlockFind,8762953,700,315)
{
IncludeBlock=1
StartBlock="parent.onLoginDone('"
EndBlock="'"
link(onSearch,64190:doStrCat,[])
}
Add(StrCat,64190,749,315)
{
Str1="https://vk.com"
link(onStrCat,16135652:doEvent1,[])
}
Add(HTTPClient,15226573,917,315)
{
CookieManager="VK"
link(URL,64190:Result,[(923,295)(788,295)(788,358)(755,358)])
link(onFinish,85994:doEvent1,[])
}
Add(Hub,85994,966,322)
{
link(onEvent1,348291:doSearch,[(1001,328)(1001,300)])
link(onEvent2,11120101:doAdd,[(1001,335)(1001,356)])
}
Add(BlockFind,348291,1022,294)
{
IncludeBlock=1
StartBlock="<title>"
EndBlock="</title>"
link(onSearch,14935656:doText,[])
}
Add(Label,14935656,1078,294)
{
Left=10
Top=40
Width=4
Height=4
Font=[MS Sans Serif,12,1,0,1]
Caption=""
}
Add(Timer,7206592,833,336)
{
Interval=600000
Enable=1
link(onTimer,3306859:doEvent2,[(877,342)(877,328)])
}
Add(Hub,3306859,889,315)
{
InCount=2
OutCount=1
link(onEvent1,15226573:doLoadString,[])
}
Add(Hub,16135652,798,315)
{
link(onEvent1,3306859:doEvent1,[])
link(onEvent2,7206592:doTimer,[(822,328)(822,342)])
}
Благодарю за громадную помощь!

Редактировалось 1 раз(а), последний 2020-03-25 08:06:26
карма: 0

0
Ответов: 4309
Рейтинг: 670
#244: 2020-03-25 11:02:39 ЛС | профиль | цитата
Joiner писал(а):
HTTPClient Unicode version от 2019-10-25 для FPC при POST запросе вылетает ошибка

В файле hiHTTPClient.pas поправь - строка 989:
Move(Val[1], FReqBody[1], FBodyLength);
строка 995:
Move(FdtPostData[1], FReqBody[1], FBodyLength);


В первом посте обновил компоненты. У кого была ошибка 12175 - поставьте SSLProtocols=All и проверьте. Может исчезнет.

Редактировалось 1 раз(а), последний 2020-03-25 11:24:42
карма: 23

1
Голосовали:Joiner
Ответов: 173
Рейтинг: 3
#245: 2020-04-01 15:38:16 ЛС | профиль | цитата
Добрый день можно пожалуйста можно примерчик, как обработать ответ с сайта, например если на сайте есть API
карма: 0

0
Ответов: 4309
Рейтинг: 670
#246: 2020-04-01 21:47:17 ЛС | профиль | цитата
Делаешь doLoadString, ответ получаешь с события onResult и обрабатываешь компонентами вкладки "Строки". "На сайте есть API" - у каждого свой и свой формат ответа.
карма: 23

0
Ответов: 173
Рейтинг: 3
#247: 2020-04-01 22:49:04 ЛС | профиль | цитата
Netspirit писал(а):
события onResult
нету(((
карма: 0

0
Ответов: 1326
Рейтинг: 68
#248: 2020-04-03 14:13:57 ЛС | профиль | цитата
hin4, ЕСТЬ
карма: 2

0
Ответов: 4309
Рейтинг: 670
#249: 2020-04-06 11:54:19 ЛС | профиль | цитата
hin4 писал(а):
нету(((
Извиняюсь, имелось в виду onFinish. В описании метода doLoadString всё написано.

Редактировалось 1 раз(а), последний 2020-04-06 11:55:17
карма: 23

0
Ответов: 66
Рейтинг: 1
#250: 2020-04-11 10:11:34 ЛС | профиль | цитата
Netspirit, может быть я криворукий, но когда я установил новую версию компонента, так же заменил WinHTTP.pas и URI.pas стало выдавать ошибку 12175 на Windows 7.
P.S. Загуглил ошибку, связана как-то с SSL, у меня все SSL Ignore стоят на True, поставил http вместо https и заработало

Редактировалось 1 раз(а), последний 2020-04-11 10:50:16
карма: 0

0
Ответов: 1
Рейтинг: 0
#251: 2020-04-12 13:01:34 ЛС | профиль | цитата
НЕ ПОЙМУ почему у меня так. не может найти CodePage1ToCodePage2.

Target OS: Win32 for i386
Compiling D:\_HIASM\HiAsm_20\Elements\delphi\code\Project2.dpr
Compiling D:\_HIASM\HiAsm_20\Elements\delphi\code\hiMainForm_21A8E10.pas
Compiling D:\_HIASM\HiAsm_20\Elements\delphi\code\hiHTTPClient.pas
hiHTTPClient.pas(692,14) Error: Identifier not found "CodePage1ToCodePage2"
hiHTTPClient.pas(870,20) Error: Identifier not found "CodePage1ToCodePage2"
hiHTTPClient.pas(871,20) Error: Identifier not found "CodePage1ToCodePage2"
hiHTTPClient.pas(902,18) Error: Identifier not found "CodePage1ToCodePage2"
hiHTTPClient.pas(1588) Fatal: There were 4 errors compiling module, stopping
Fatal: Compilation aborted

уже это обсуждалось, использую FPC-32, как я понимаю это нужно менять в зависимости от компилятора?
вроде надо hiCharset.pas изменять.

Редактировалось 2 раз(а), последний 2020-04-12 13:40:51
карма: 0

0
Ответов: 4309
Рейтинг: 670
#252: 2020-04-13 11:17:13 ЛС | профиль | цитата
Gazzi писал(а):
но когда я установил новую версию компонента, так же заменил WinHTTP.pas и URI.pas стало выдавать ошибку 12175 на Windows 7
А до того, как установил новую версию - старая работала? Если работала, то какая именно?

roanton писал(а):
использую FPC-32, как я понимаю это нужно менять в зависимости от компилятора
На новом пакете использовать "Unicode version" компонентов. Будет работать во всех режимах.
карма: 23

1
Голосовали:Gazzi
Ответов: 66
Рейтинг: 1
#253: 2020-04-16 21:21:24 ЛС | профиль | цитата
Netspirit, работало, версию не помню, что-то около 1.4 или 1.5
карма: 0

0
Ответов: 44
Рейтинг: 0
#254: 2020-04-17 10:23:55 ЛС | профиль | цитата
Netspirit, cookies не желают сохранятся в файл.

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
Width=190
Height=381
Caption="HTTPClient - Cookie"
Position=1
Point(onClose)
link(onCreate,2515764:In,[])
link(onClose,16535532:In,[(61,132)(61,146)])
}
Add(Button,12479344,308,182)
{
Left=10
Top=60
Width=140
Height=25
Caption="Выполнить"
link(onClick,8897297:doData,[])
}
Add(CookieManager,16633777,504,252)
{
Filename="cookies.txt"
Name="Cook"
Point(doDelete)
Point(onChange)
link(URL,13443976:Text,[])
link(onGetCookies,8531630:doAdd,[])
}
Add(LineBreak,10174863,378,266)
{
Caption="save"
link(Out,16633777:doSave,[])
Primary=[16535532,-308,-126]
}
Add(LineBreak,5550480,420,273)
{
Caption="load"
link(Out,16633777:doLoad,[])
Primary=[2515764,-350,-154]
}
Add(Memory,551559,364,119)
{
Default=String(top100_id=t1)
}
Add(DoData,8897297,364,182)
{
link(onEventData,8636250:doEvent1,[])
link(Data,551559:Value,[])
}
Add(Hub,8636250,413,182)
{
link(onEvent1,16633777:doAddCookies,[(465,188)(465,258)])
link(onEvent2,16633777:doGetCookies,[(458,195)(458,265)])
}
Add(RichEdit,8531630,560,252)
{
Left=20
Top=105
Width=130
Height=210
}
Add(Label,15666455,546,119)
{
Left=10
Top=10
Width=38
Height=17
Caption="Адрес:"
}
Add(Edit,13443976,511,182)
{
Left=55
Top=5
Width=100
Text="http://localhost"
}

карма: 0

0
Ответов: 4309
Рейтинг: 670
#255: 2020-04-17 12:30:18 ЛС | профиль | цитата
Сохраняются только куки, у которых указан срок действия и он не истёк. Куки, у которых срок не указан, "живут" только до закрытия "браузера". Конечно, в коде я решаю что сохранять, а что нет, но в данном случае я решил соответствовать спецификации. Делай так:
top100_id=t1; max-age=3600

карма: 23

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