HTTP компоненты

Форумы КомпонентыHTTP компоненты ← Ctrl1 2 3 4 5...13 14 15 161718 19 20 21 22 23Ctrl →

Этот топик читают: Гость

Ответов: 233

Рейтинг: 12

#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

Главный модератор

Ответов: 2997

Рейтинг: 395

#242: 2020-03-23 20:27:35 ЛС | профиль | цитата

Kolchak писал(а):

Прошу соизволить помочь мне в моем деле.

Мерещится образ адмирала Колчака за фразой этой о юный падаван.

карма: 6

Дорогу осилит идущий. Install/Update HiAsm.NET

Ответов: 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,3432722

nEvent1,[(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

Ответов: 4621

Рейтинг: 746

#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

карма: 26

Голосовали:

Joiner

Ответов: 195

Рейтинг: 5

#245: 2020-04-01 15:38:16 ЛС | профиль | цитата

Добрый день можно пожалуйста можно примерчик, как обработать ответ с сайта, например если на сайте есть API

карма: 0

Ответов: 4621

Рейтинг: 746

#246: 2020-04-01 21:47:17 ЛС | профиль | цитата

Делаешь doLoadString, ответ получаешь с события onResult и обрабатываешь компонентами вкладки "Строки". "На сайте есть API" - у каждого свой и свой формат ответа.

карма: 26

Ответов: 195

Рейтинг: 5

#247: 2020-04-01 22:49:04 ЛС | профиль | цитата

Netspirit писал(а):

события onResult

нету(((

карма: 0

Ответов: 1328

Рейтинг: 69

#248: 2020-04-03 14:13:57 ЛС | профиль | цитата

hin4, ЕСТЬ

карма: 2

Ответов: 4621

Рейтинг: 746

#249: 2020-04-06 11:54:19 ЛС | профиль | цитата

hin4 писал(а):

нету(((

Извиняюсь, имелось в виду onFinish. В описании метода doLoadString всё написано.

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

карма: 26

Ответов: 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

Ответов: 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

Ответов: 4621

Рейтинг: 746

#252: 2020-04-13 11:17:13 ЛС | профиль | цитата

Gazzi писал(а):

но когда я установил новую версию компонента, так же заменил WinHTTP.pas и URI.pas стало выдавать ошибку 12175 на Windows 7

А до того, как установил новую версию - старая работала? Если работала, то какая именно?

roanton писал(а):

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

На новом пакете использовать "Unicode version" компонентов. Будет работать во всех режимах.

карма: 26

Голосовали:

Gazzi

Ответов: 66

Рейтинг: 1

#253: 2020-04-16 21:21:24 ЛС | профиль | цитата

Netspirit, работало, версию не помню, что-то около 1.4 или 1.5

карма: 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

Ответов: 4621

Рейтинг: 746

#255: 2020-04-17 12:30:18 ЛС | профиль | цитата

Сохраняются только куки, у которых указан срок действия и он не истёк. Куки, у которых срок не указан, "живут" только до закрытия "браузера". Конечно, в коде я решаю что сохранять, а что нет, но в данном случае я решил соответствовать спецификации. Делай так:

top100_id=t1; max-age=3600

карма: 26

Форумы КомпонентыHTTP компоненты ← Ctrl1 2 3 4 5...13 14 15 161718 19 20 21 22 23Ctrl →


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