Вверх ↑
Ответов: 21
Рейтинг: 0
#1: 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