HTTP компоненты

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

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

Ответов: 66

Рейтинг: 1

#136: 2019-02-19 20:39:38 ЛС | профиль | цитата

Netspirit, спасибо! Для Unicode я так понимаю нужно UTF8 менять на UTF16 или Unicode, и PWideChar на PChar, и остальное в таком же духе

карма: 0

Ответов: 4621

Рейтинг: 746

#137: 2019-02-20 11:45:36 ЛС | профиль | цитата

Gazzi писал(а):

Для Unicode я так понимаю нужно UTF8 менять на UTF16 или Unicode, и PWideChar на PChar

PWideChar на PChar не нужно. Поправить код, где тип string используется как буфер для двоичных данных. Нужно добавить свойство InCharset, которое определяет как следует трактовать скачанные данные при выдаче в виде строки - как бинарные, как в кодировке UTF-8 или в какой-либо другой кодировке (в т.ч., можно добавить автоопределение по заголовку Content-Type ответа). Соответственно, использовать функции для преобразования из этой кодировки в кодировку компилятора (ANSI/UTF-16). Решить в какой кодировке будут файлы при сохранении/загрузке куки менеджером.

Для 64 бит - в арифметических операциях с указателями и для хранения хендлов/указателей использовать типы NativeInt/NativeUInt вместо Integer/DWord. Можно также дефайнами поправить выдачу и обработку размеров больших файлов с Double на Int64.

карма: 26

Ответов: 66

Рейтинг: 1

#138: 2019-02-27 17:51:56 ЛС | профиль | цитата

Netspirit, привет, такой вопрос как сделать POST запрос чтобы потом из PHP можно было отловить через

$a = $_POST['a'];

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

карма: 0

Ответов: 4621

Рейтинг: 746

#139: 2019-02-27 18:16:29 ЛС | профиль | цитата

Method=POST, PostData="a=xxxx". Там есть папка с примерами.

карма: 26

Ответов: 203

Рейтинг: 2

#140: 2019-05-24 23:58:03 ЛС | профиль | цитата

Netspirit,

Netspirit писал(а):

Предполагаю, для JSON нужна парочка компонентов: JSON_Document (парсер, загрузка/сохранение в текстовом виде) в виде менеджера и JSON_RW (чтение, запись, перебор атрибутов/значений, как клиент к предыдущему).

С надеждой просматриваю данную тему, насяльника, очень не хватает....

Редактировалось 1 раз(а), последний 2019-05-24 23:58:54

карма: 0

Ответов: 4621

Рейтинг: 746

#141: 2019-05-27 10:25:53 ЛС | профиль | цитата

Понимаю, но к данной теме JSON мало относится.

карма: 26

Ответов: 537

Рейтинг: 14

#142: 2019-06-20 19:55:07 ЛС | профиль | цитата

Не загружается картинка на сервер, нет ответа от сервера, картинку отправляю, а в ответ тишина.

Add(MainForm,2953706,21,105)
{
 Width=530
 Height=529
 WindowsState=2
 Point(onClose)
 link(onCreate,4138094:doEvent1,[(61,125)(61,111)])
 link(onClose,4169119:del,[])
}
Add(HTTPClient,11518582,196,252)
{
 URL="http://www.imagebam.com/"
 UserAgent="Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko"
 Referer="http://www.imagebam.com/"
 link(onFinish,14997163:doEvent1,[])
}
Add(MultiElementEx,4169119,105,119)
{
}
BEGIN_SDK
  Add(EditMultiEx,16512711,21,21)
  {
   WorkCount=#5:write|3:del|
   link(write,3634544:doPart,[(95,27)(95,97)])
   link(del,8467764:doDeleteValue,[(87,34)(87,160)])
  }
  Add(Registry,8467764,154,140)
  {
   HKey=1
   Key="SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION\"
   DataType=0
   Point(doDeleteValue)
   link(Data,12071228:Text,[])
   link(Value,3634544:Part,[])
  }
  Add(Application,4084507,168,42)
  {
  }
  Add(FilePartElm,3634544,168,91)
  {
   Point(Part)
   link(onPart,8467764:doWrite,[(207,97)(207,125)(144,125)(144,153)])
   link(FileName,4084507:AppFileName,[])
  }
  Add(VisualStrings,12071228,154,21)
  {
   Lines=#5:11001|
   Width=46
  }
END_SDK
Add(WebBrowser,9492360,245,98)
{
 Width=514
 Height=491
 Align=5
 URL=""
 Silent=0
 Point(PHandle)
 Point(doFromText)
}
Add(Hub,4138094,70,105)
{
 link(onEvent1,4169119:write,[(94,111)(94,125)])
 link(onEvent2,10979458:doData,[(153,118)(153,104)])
}
Add(DoData,10979458,175,98)
{
 Data=String(http://www.imagebam.com/)
}
Add(Button,11419334,140,252)
{
 Left=5
 Top=5
 Width=80
 Caption="Загрузить"
 link(onClick,11518582:doLoadString,[])
}
Add(Memo,11496362,329,560)
{
 Left=30
 Top=260
 Width=475
 Height=210
 ScrollBars=2
}
Add(BlockFind,6857384,301,259)
{
 IncludeBlock=1
 StartBlock="var base_url = ""
 EndBlock="";"
 link(onSearch,16269169:doString,[])
}
Add(FormatStr,16269169,357,259)
{
 DataCount=4
 Mask="%1/%2/%3/%4/0/1/"
 Point(FString)
 link(onFString,2820237:doEvent1,[])
 link(Str2,3100803:Text,[])
 link(Str3,408464:Text,[])
 link(Str4,14389077:Text,[])
}
Add(VisualStrings,3100803,364,217)
{
 Lines=#3:jpg|
}
Add(VisualStrings,408464,371,182)
{
 Lines=#3:350|
}
Add(VisualStrings,14389077,378,147)
{
 Lines=#4:crop|
}
Add(HTTPClient,6023390,196,483)
{
 Method=1
 UserAgent="Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko"
 Referer="http://www.imagebam.com/"
 FileField="file"
 Point(UploadFile)
 link(URL,16269169:FString,[(202,342)(363,342)])
 link(onFinish,1978204:doEvent2,[(254,496)(254,573)])
 link(UploadFile,14946849:Text,[])
}
Add(Hub,2820237,413,259)
{
 OutCount=3
 link(onEvent1,2953706:doCaption,[(439,265)(439,76)(13,76)(13,111)])
 link(onEvent3,6023390:doLoadString,[(441,279)(441,427)(184,427)(184,489)])
}
Add(VisualStrings,14946849,210,441)
{
 Lines=#68:C:\Users\Sersey\Desktop\Multi Image Upload\2018-6-7_20-21-26.803.jpg|
 Width=102
}
Add(BlockFind,5283488,301,301)
{
 @Hint=#4:UPID|
 StartBlock="name="UPID""
 EndBlock=""/>"
 link(onSearch,3004918:doSearch,[])
 AddHint(-90,7,41,13,@Hint)
}
Add(BlockFind,16187695,301,343)
{
 @Hint=#3:sec|
 StartBlock="name="sec""
 EndBlock=""/>"
 link(onSearch,15783820:doSearch,[])
 AddHint(-80,10,32,13,@Hint)
}
Add(Hub,14997163,245,259)
{
 OutCount=5
 link(onEvent1,6857384:doSearch,[])
 link(onEvent2,5283488:doSearch,[(280,272)(280,307)])
 link(onEvent3,16187695:doSearch,[(280,279)(280,349)])
 link(onEvent4,6741206:doString,[(275,286)(275,398)])
 link(onEvent5,4019130:doTimer,[(271,293)(271,412)(130,412)(130,559)])
}
Add(BlockFind,3004918,371,301)
{
 IncludeBlock=1
 StartBlock="value=""
 EndBlock="""
 link(onSearch,7303803:doData,[])
}
Add(BlockFind,15783820,371,343)
{
 IncludeBlock=1
 StartBlock="value=""
 EndBlock="""
 link(onSearch,9402659:doData,[])
}
Add(EventFromData,9402659,469,343)
{
}
Add(EventFromData,7303803,462,301)
{
}
Add(FormatStr,6741206,462,392)
{
 Mask="method=post\r\nUPID=%1&sec=%2"
 Point(FString)
 link(Str1,7303803:GetData,[])
 link(Str2,9402659:GetData,[])
}
Add(HTTPClient,5389009,196,553)
{
 URL="http://www.imagebam.com/sys/upload/done/"
 Method=1
 UserAgent="Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko"
 Referer="http://www.imagebam.com/"
 FileField="file"
 SSLProtocols=1
 Point(Headers)
 link(onFinish,1978204:doEvent1,[])
 link(Headers,6741206:FString,[(216,533)(468,533)])
}
Add(Timer,4019130,140,553)
{
 Interval=15000
 Enable=1
 AutoStop=3
 link(onTimer,5389009:doLoadString,[])
}
Add(Hub,1978204,280,560)
{
 InCount=2
 OutCount=1
 link(onEvent1,11496362:doAdd,[])
}

Данные с Fiddler: Запрос на загрузку картинки

POST http://www.imagebam.com/sys/upload/flashsave/0/8e7nibrs63ewfqdw6nk8w9tv32psga7o/f61e2a099e4e254ddd59351bb7eda816/jpg/350/resize/0/1/ HTTP/1.1
Accept: text/*
Content-Type: multipart/form-data; boundary=----------ei4KM7gL6KM7KM7cH2ei4ei4cH2gL6
User-Agent: Shockwave Flash
Host: www.imagebam.com
Content-Length: 531473
Connection: Keep-Alive
Pragma: no-cache
Cookie: _тут куки

------------ei4KM7gL6KM7KM7cH2ei4ei4cH2gL6
Content-Disposition: form-data; name="Filename"

2018-6-7_20-29-9.479.jpg
------------ei4KM7gL6KM7KM7cH2ei4ei4cH2gL6
Content-Disposition: form-data; name="name"

2018-6-7_20-29-9.479.jpg
------------ei4KM7gL6KM7KM7cH2ei4ei4cH2gL6
Content-Disposition: form-data; name="file"; filename="2018-6-7_20-29-9.479.jpg"
Content-Type: application/octet-stream

Тут картинка, символы и буквы JFIF         C

В схеме ссылка запроса формируется и остальные данные тоже

Теперь запрос на получение ссылок

POST http://www.imagebam.com/sys/upload/done/ HTTP/1.1
Accept: application/x-ms-application, image/jpeg, application/xaml+xml, image/gif, image/pjpeg, application/x-ms-xbap, */*
Referer: http://www.imagebam.com/
Accept-Language: ru-RU
Content-Type: application/x-www-form-urlencoded
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko
Host: www.imagebam.com
Content-Length: 74
Connection: Keep-Alive
Pragma: no-cache
Cookie: _ga=GA1.2.697164434.1561031310; _gid=GA1.2.735566100.1561031310; __utma=187550128.546316087.1561031310.1561039544.1561048218.25; __utmb=187550128; __utmz=187550128.1561031310.1.1.utmccn=(direct)|utmcsr=(direct)|utmcmd=(none); _gat=1; __utmc=187550128

UPID=8e7nibrs63ewfqdw6nk8w9tv32psga7o&sec=cb1df6406dcdbd8a595dfc38baf9ffb1

Для запроса UPID и sec в схеме получаю. Не приходят ответы от сервера, помогите разобраться, как правильно запрос с HTTPClient-а отправить. Распаковка gzip не помогает

Редактировалось 1 раз(а), последний 2019-06-20 19:57:36

карма: 4

Ответов: 537

Рейтинг: 14

#143: 2019-06-20 21:24:44 ЛС | профиль | цитата

С загрузкой файла получилось. Теперь ошибка 995 при отправке запроса на получение ссылок на картинку


Add(MainForm,2953706,70,336)
{
 Width=521
 Height=359
}
Add(DoData,10802303,245,308)
{
 link(onEventData,1158501:doEvent1,[])
 link(Data,8371718:getVar,[])
}
Add(Hub,1158501,294,308)
{
 InCount=2
 OutCount=1
 link(onEvent1,11496362:doAdd,[])
}
Add(LineBreakEx,8371718,245,280)
{
 Caption="head"
 Type=2
}
Add(LineBreakEx,11388386,196,385)
{
 Caption="head"
 Type=3
 link(_Data,6776100:RawHeaders,[])
}
Add(HTTPClient,6776100,175,336)
{
 URL="http://www.imagebam.com/sys/upload/done/"
 Method=1
 UserAgent="Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko"
 URLCodePage=1
 Point(Headers)
 Point(RawHeaders)
 link(onHeadersAvail,10802303:doData,[(219,342)(219,314)])
 link(onFinish,1158501:doEvent2,[(282,349)(282,321)])
 link(onError,12371759:doEvent,[])
 link(Headers,971445:Text,[])
}
Add(Debug,12371759,231,357)
{
 WEName="1"
 VDName=""
}
Add(Button,11419334,126,336)
{
 Left=5
 Top=45
 Width=80
 Caption="Загрузить"
 link(onClick,6776100:doLoadString,[])
}
Add(Edit,971445,189,259)
{
 Left=10
 Top=10
 Width=480
 Text="UPID=2ik2zuz7kt7lam1p6iy50gc9vn4dvy3x&sec=e38f212d5582e4b1b450209cec311be4"
}
Add(Memo,11496362,329,308)
{
 Left=5
 Top=85
 Width=475
 Height=210
 ScrollBars=2
}

В ответ на запрос должен прийти код HTML

--- Добавлено в 2019-06-20 22:05:58

Сам сделал отправку запроса на получение ссылок на картинку, только без HTTPClient-а
Использовал HTTP_PostBuilder + Host + TCP_Client

Редактировалось 1 раз(а), последний 2019-06-20 22:05:58

карма: 4

Ответов: 4621

Рейтинг: 746

#144: 2019-06-21 10:30:49 ЛС | профиль | цитата

Нету CookieManager-а к HTTPClient. Откуда сервер будет знать что второй запрос - это продолжение первого?

карма: 26

Ответов: 537

Рейтинг: 14

#145: 2019-06-21 11:54:22 ЛС | профиль | цитата

Я разобрался уже, в HTTPClient нужно было указать application/x-www-form-urlencoded. В post запросе отправляется код загрузки, вот сервер и знает какие ссылки давать.

карма: 4

Ответов: 4621

Рейтинг: 746

#146: 2019-06-21 12:05:01 ЛС | профиль | цитата

Странный какой-то сервер. В нормальном PHP есть массив $_POST, а каким макаром данные в этот массив попали - никого не волнует.

карма: 26

Ответов: 92

Рейтинг: 1

#147: 2019-06-27 09:32:51 ЛС | профиль | цитата

Добрый день! Как произвести URL-кодирование, для «application/x-www-form-urlencoded»?


С такой:  ctl00$smScriptManager: ctl00$PlaceHolderMain$upFilter|ctl00$PlaceHolderMain$ddlCritRegistered
В такую:  ctl00%24smScriptManager=ctl00%24PlaceHolderMain%24upFilter%7Cctl00%24PlaceHolderMain%24ddlCritRegistered&

карма: 0

Ответов: 4621

Рейтинг: 746

#148: 2019-06-27 10:27:58 ЛС | профиль | цитата

Компонент Charset, Type=ANSI_URL

карма: 26

Ответов: 92

Рейтинг: 1

#149: 2019-06-27 11:14:50 ЛС | профиль | цитата

Netspirit писал(а):

Компонент Charset, Type=ANSI_URL

Так Вместо "=" %3A+


ctl00%24smScriptManager%3A+ctl00%24PlaceHolderMain%24upFilter%7Cctl00%24PlaceHolderMain%24ddlCritRegistered

Что я делаю неправильно?

карма: 0

Ответов: 4621

Рейтинг: 746

#150: 2019-06-27 11:24:56 ЛС | профиль | цитата

Ну, так и должно быть. Данные на PostData нужно подавать в виде

name1=value1
name2=value2
и т.д.

Тогда через Charset надо прогонять только "valueN". Не знаю откуда ты берешь данные, но, например, можно использовать FormatStr со строкой

name1=%1
name2=%2
и т.д.

а на верхние точки FormatStr подавать данные (например, при помощи EventFromData), уже обработанные Charset.

карма: 26

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


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