Вверх ↑
Этот топик читают: Гость
Ответов: 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
Ответов: 4621
Рейтинг: 746
#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
Ответов: 4621
Рейтинг: 746
#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
Ответов: 4621
Рейтинг: 746
#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
Ответов: 4621
Рейтинг: 746
#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
Ответов: 4621
Рейтинг: 746
#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
Ответов: 4621
Рейтинг: 746
#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
Сообщение
...
Прикрепленные файлы
(файлы не залиты)