Вверх ↑
Этот топик читают: Гость
Ответов: 537
Рейтинг: 14
#196: 2019-11-06 20:42:08 ЛС | профиль | цитата
Устанавливаете лучше HiAsm Alternative build в папку HiAsm например на диск С. Обновляетесь с помощью меню -> помощь -> обновление -> Обновить. Далее как я писал выше
карма: 4

0
Ответов: 21
Рейтинг: 0
#197: 2019-11-12 05:45:29 ЛС | профиль | цитата
Что обозначает ошибка 12005 HTTP клиента? И существует ли как таковой перечень ошибок?
карма: 0

0
Ответов: 4639
Рейтинг: 755
#198: 2019-11-12 13:10:33 ЛС | профиль | цитата
Ошибка 12005 - неправильно указан URL
https://docs.microsoft.com/en-us/windows/win32/wininet/wininet-errors
карма: 26

0
Ответов: 655
Рейтинг: 18
#199: 2019-11-26 21:17:30 ЛС | профиль | цитата
Оффтоп: можно ли заказать компонент для парсинга JSON?
карма: 0

0
Ответов: 655
Рейтинг: 18
#200: 2019-11-26 22:42:46 ЛС | профиль | цитата
Gunnman писал(а):
Оффтоп: можно ли заказать компонент для парсинга JSON?

Интересует превращение JSON в кортеж, есть ТЗ по которому нужно реализовать.
карма: 0

0
Ответов: 4639
Рейтинг: 755
#201: 2019-11-27 11:44:39 ЛС | профиль | цитата
Я не имею достаточно свободного времени. Может кто другой возьмется. В составе FPC, вроде, есть готовая реализация - можно пробовать портировать.
карма: 26

0
Ответов: 21
Рейтинг: 0
#202: 2019-12-09 16:35:42 ЛС | профиль | цитата
Воспользовался стандартным примером загрузки файла на сервер, все работает!
Хочу загрузить файл не с диска, а данные строки в виде файла с заданным именем, не догоняю как это сделать.
Помогите кто знает!

Add(MainForm,2953706,21,105)
{
 Width=457
 Height=474
 Caption="HTTPClient - Аплоад файлов"
 Position=1
}
Add(Button,12479344,161,231)
{
 Left=10
 Top=160
 Width=140
 Height=25
 Caption="Выполнить"
 link(onClick,5102370:doEvent1,[])
}
Add(Memo,2568247,735,224)
{
 Left=10
 Top=195
 Width=425
 Height=240
 ScrollBars=3
}
Add(Message,363691,532,273)
{
 Caption="Ошибка запроса"
 Icon=1
}
Add(DoData,7347341,497,224)
{
 link(onEventData,9377522:doEvent1,[])
 link(Data,2427935:getVar,[])
}
Add(Hub,9377522,574,224)
{
 InCount=2
 OutCount=1
 link(onEvent1,16083063:doSynchronize,[])
}
Add(Hub,5102370,217,231)
{
 link(onEvent1,8936422:doWork,[])
 link(onEvent2,11610816:doStart,[(241,244)(241,258)])
}
Add(LineBreakEx,8936422,252,231)
{
 Caption="clear"
}
Add(LineBreakEx,2111794,665,231)
{
 Caption="clear"
 Type=1
 link(OnEvent,2568247:doClear,[])
}
Add(LineBreakEx,2427935,497,196)
{
 Caption="head"
 Type=2
}
Add(LineBreakEx,15402714,364,301)
{
 Caption="head"
 Type=3
 link(_Data,6023390:RawHeaders,[])
}
Add(Edit,4213360,350,140)
{
 Left=10
 Top=30
 Width=425
 Text="http://192.168.1.75/edit"
}
Add(HTTPClient,6023390,350,252)
{
 Method=1
 URLCodePage=1
 FileField="my_file"
 FieldCharset=1
 Point(RawHeaders)
 Point(onUploadProgress)
 Point(UploadFile)
 Point(PostData)
 link(URL,4213360:Text,[])
 link(FileName,7653468:Text,[(363,207)(282,207)])
 link(onHeadersAvail,7347341:doData,[(399,258)(399,230)])
 link(onFinish,9377522:doEvent2,[(554,265)(554,237)])
 link(onError,363691:doMessage,[])
 link(onUploadProgress,13932024:doSynchronize,[])
 link(PostData,3631094:Text,[(377,208)(461,208)])
 AddHint(-82,67,47,13,FileField)
 AddHint(-81,88,44,13,Method)
 AddHint(-81,111,40,13,FieldCharset)
}
Add(Label,10388595,21,154)
{
 Left=10
 Top=10
 Width=38
 Height=17
 Caption="Адрес:"
}
Add(Label,5959088,21,203)
{
 Left=10
 Top=60
 Width=106
 Height=17
 Caption="Файл для загрузки:"
}
Add(Edit,12595752,434,56)
{
 Left=10
 Top=80
 Width=270
 Text="Укажите путь к файлу..."
}
Add(Label,6924240,483,280)
{
 Left=350
 Top=85
 Width=10
 Height=17
 Caption="0"
}
Add(Button,15458492,287,266)
{
 Left=350
 Top=160
 Width=80
 Height=25
 Caption="Прервать"
 link(onClick,6023390:doAbort,[])
}
Add(Thread,11610816,252,252)
{
 FastStop=0
 link(onExec,6023390:doLoadString,[])
}
Add(Label,13710391,21,252)
{
 Left=10
 Top=110
 Width=214
 Height=22
 Font=[MS Sans Serif,8,3,0,1]
 Caption="Файл будет сохранен в корень /"
 AutoSize=1
}
Add(Synchronize,13932024,427,280)
{
 link(onSync,6924240:doText,[])
}
Add(Synchronize,16083063,616,224)
{
 link(onSync,2568247:doAdd,[])
}
Add(ODialog,2057774,378,56)
{
 Filter="Все файлы (*.*)|*.*"
 Title="Выберите файл для открытия"
 FileName=""
 link(onExecute,12595752:doText,[])
}
Add(Button,1719854,322,56)
{
 Left=285
 Top=80
 Width=60
 Caption="Обзор..."
 link(onClick,2057774:doExecute,[])
}
Add(Edit,7653468,276,130)
{
 Left=220
 Top=135
 Width=220
 Text="config2.save.json"
}
Add(VisualStrings,3631094,455,140)
{
 Lines=#115:{"filters":{"ageFrom":null,"ageTo":null,"countries":[],"withPhoto":false,"moreChildren":false},"limit":15,"page":2}|
 Width=375
 Height=25
}
Add(Label,2220899,28,299)
{
 Left=10
 Top=140
 Width=210
 Height=17
 Font=[MS Sans Serif,8,3,0,1]
 Caption="Файл будет сохранен c именем :"
 AutoSize=1
}

карма: 0

0
Ответов: 4639
Рейтинг: 755
#203: 2019-12-09 17:02:13 ЛС | профиль | цитата
Строку сконвертировать в Stream, Stream подать на точку UploadFile. Задать имя в FNOverride.
карма: 26

0
Ответов: 21
Рейтинг: 0
#204: 2019-12-09 18:01:49 ЛС | профиль | цитата
Netspirit писал(а):
Строку сконвертировать в Stream, Stream подать на точку UploadFile. Задать имя в FNOverride.

Получилось менять имя файла, а вот как Stream подать на точку UploadFile не понимаю?
карма: 0

0
Ответов: 4639
Рейтинг: 755
#205: 2019-12-09 18:14:10 ЛС | профиль | цитата
Строку - на StreamConvertor, Mode=StrToStream, результат через хаб подать на Memory, Memory - на UploadFile. Вторым выходом хаба выполнить запрос (по завершению работы конвертера стрим в Memory будет недействительным).
карма: 26

0
Ответов: 21
Рейтинг: 0
#206: 2019-12-10 16:33:52 ЛС | профиль | цитата
Netspirit писал(а):
Строку - на StreamConvertor, Mode=StrToStream, результат через хаб подать на Memory, Memory - на UploadFile. Вторым выходом хаба выполнить запрос (по завершению работы конвертера стрим в Memory будет недействительным).

Получилось записывать файл из строки, но начало и конец разрушаются не понятным кодом.
карма: 0

0
Ответов: 4639
Рейтинг: 755
#207: 2019-12-10 16:46:44 ЛС | профиль | цитата
Схему покажи.
карма: 26

0
Ответов: 537
Рейтинг: 14
#208: 2019-12-11 19:55:32 ЛС | профиль | цитата
Как из URL узать имя домена? URLParser не определяет. Имя домена в примере business.site

Add(MainForm,2953706,343,231)
{
}
Add(URLParser,9834760,266,175)
{
 Point(Document)
 link(URL,16087539:Text,[])
}
Add(Button,6457447,175,175)
{
 Left=145
 Top=175
 Data=String(context.reverso.net)
 link(onClick,1057974:doEvent1,[])
}
Add(DoData,9426949,266,231)
{
 link(onEventData,2953706:doCaption,[])
 link(Data,9834760:Host,[])
}
Add(Hub,1057974,224,175)
{
 link(onEvent1,9834760:doParse,[])
 link(onEvent2,9426949:doData,[(253,188)(253,237)])
}
Add(VisualStrings,16087539,266,126)
{
 Lines=#34:https://vovahovalot.business.site/|
 Width=179
}
карма: 4

0
Ответов: 21
Рейтинг: 0
#209: 2019-12-12 05:02:16 ЛС | профиль | цитата
Как использовать куки(На подобии браузера)?
карма: 0

0
Ответов: 4639
Рейтинг: 755
#210: 2019-12-12 12:06:12 ЛС | профиль | цитата
Sersey писал(а):
Имя домена в примере business.site
Имя домена в примере - vovahovalot.business.site. Определяет.
Если нужно разбить это на части - используй компоненты вкладки "Строки".

Kotofey писал(а):
Как использовать куки
В папке примеров есть пример использования куки. В общих чертах - в схеме ставится один CookieManager и указывается во всех HTTPClient в свойстве "CookieManager"; больше ничего не требуется.

Непонятно что подразумевалось под "на подобии браузера".

Редактировалось 1 раз(а), последний 2019-12-12 12:06:51
карма: 26

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