Вверх ↑
Этот топик читают: Гость
Ответов: 36
Рейтинг: 0
#1: 2020-12-28 17:40:10 ЛС | профиль | цитата
Всем доброго настроения. Все еще пытаюсь организовать скачивания файла с сервера на конкретный клиент. Не работает ни передача текста ни файлов. Есть схема
клиент

Add(MainForm,2953706,161,126)
{
Width=536
Height=507
Caption="TCP client"
BorderStyle=1
Position=1
}
Add(Button,2774663,161,378)
{
Left=165
Top=10
Width=100
Caption="Подключиться"
Data=String(Подключение...)
link(onClick,14781916:doEvent1,[])
}
Add(Button,407315,154,448)
{
Left=275
Top=10
Width=100
Caption="Отключиться"
Data=String(Отключено)
link(onClick,15325680:doEvent1,[])
}
Add(Button,363541,287,126)
{
Left=5
Top=145
Width=105
Caption="Отправить"
Data=String(Отправка...)
link(onClick,1499700:doEvent1,[])
}
Add(Memo,8206700,441,63)
{
Left=5
Top=45
Width=340
Height=95
Strings=#1:1|
ScrollBars=3
}
Add(Edit,6390342,448,322)
{
Left=5
Top=10
Width=100
Text="127.0.0.1"
}
Add(Edit,2377616,455,364)
{
Left=110
Top=10
Text="5000"
}
Add(TCPClient,14703574,441,427)
{
IP="127.0.0.1"
AsyncEvents=1
Point(onErrorConnect)
Point(onErrorSend)
Point(doStopReceiving)
Point(doStartReceiving)
Point(doAbortSend)
Point(onProgress)
link(onReceive,1211794:doWork,[(499,433)(499,419)])
link(onSend,8195782:doEvent1,[])
link(onConnect,4044729:doData,[(639,447)(639,524)])
link(onDisconnect,3294831:doData,[(616,454)(616,573)])
link(IP,6390342:Text,[])
link(Port,2377616:Text,[])
link(onErrorConnect,10002025:doStrCat,[(587,461)(587,629)])
link(onErrorSend,10538828:doEvent1,[(565,468)(565,671)])
link(onProgress,15201332:doWork,[])
}
Add(StrCat,1569445,686,665)
{
Str1="Ошибка отправки: "
link(onStrCat,9017334:doWork,[])
}
Add(StrCat,10002025,672,623)
{
Str1="Ошибка подключения: "
link(onStrCat,653748:doWork,[])
}
Add(DoData,3294831,672,567)
{
Data=String(Соединение разорвано)
link(onEventData,10577613:doWork,[])
}
Add(DoData,4044729,672,518)
{
Data=String(Подключено)
link(onEventData,8420748:doWork,[])
}
Add(DoData,595464,742,434)
{
Data=String(Данные отправлены)
link(onEventData,9703980:doWork,[])
}
Add(Label,16606011,161,182)
{
Left=5
Top=170
Width=158
Height=17
Caption="Принятые от сервера данные:"
}
Add(Label,5144598,161,231)
{
Left=360
Top=40
Width=26
Height=17
Caption="Лог:"
}
Add(LineBreakEx,9017334,735,665)
{
Caption="log"
}
Add(LineBreakEx,9703980,798,434)
{
Caption="log"
}
Add(LineBreakEx,8420748,721,518)
{
Caption="log"
}
Add(LineBreakEx,653748,721,623)
{
Caption="log"
}
Add(LineBreakEx,10577613,721,567)
{
Caption="log"
}
Add(Hub,15325680,210,448)
{
link(onEvent1,14703574:doDisconnect,[])
link(onEvent2,2965968:doWork,[])
}
Add(LineBreakEx,2965968,238,455)
{
Caption="log"
}
Add(Hub,1499700,350,126)
{
link(onEvent1,11014464:doWork,[])
link(onEvent2,1052164:doData,[])
}
Add(LineBreakEx,11014464,399,126)
{
Caption="log"
}
Add(Hub,14781916,231,378)
{
link(onEvent1,680924:doWork,[])
link(onEvent2,14703574:doConnect,[(324,391)(324,447)])
}
Add(LineBreakEx,680924,273,378)
{
Caption="log"
}
Add(DoData,1052164,441,133)
{
Data=String()
link(onEventData,12592333:doWork,[])
link(Data,8206700:Text,[])
}
Add(Button,4302012,294,469)
{
Left=450
Top=415
Width=70
Caption="Отмена"
link(onClick,14425358:doEvent1,[])
}
Add(LineBreakEx,1002743,343,413)
{
Caption="senda"
Type=1
link(OnEvent,14703574:doSendAsync,[(416,419)(416,440)])
}
Add(LineBreakEx,12592333,497,133)
{
Caption="senda"
}
Add(InfoTip,15513282,273,28)
{
Info=#15:Отправка строки|
Width=309
Height=165
}
Add(LineBreakEx,9516814,949,406)
{
Caption="on_rec"
Type=1
link(OnEvent,13235102:doUnPack,[])
}
Add(LineBreakEx,1211794,525,413)
{
Caption="on_rec"
}
Add(InfoTip,5631575,942,224)
{
Info=#12:Прием файлов|
Width=491
Height=256
}
Add(ProgressBar,9353723,987,56)
{
Left=5
Top=440
Width=515
Smooth=1
ProgressColor=-16777203
Point(doMax)
}
Add(LineBreakEx,15275983,917,77)
{
Caption="max"
Type=1
link(OnEvent,9353723:doMax,[(972,83)(972,69)])
}
Add(LineBreakEx,15201332,490,469)
{
Caption="progr"
}
Add(LineBreakEx,12115097,910,56)
{
Caption="progr"
Type=1
link(OnEvent,9353723:doPosition,[])
}
Add(LineBreakEx,7482726,686,441)
{
Caption="progr"
}
Add(InfoTip,7205773,896,28)
{
Info=#16:Панель прогресса|
Width=155
Height=95
}
Add(Hub,8195782,651,434)
{
link(onEvent1,595464:doData,[])
link(onEvent2,7482726:doWork,[])
}
Add(LineBreakEx,449540,637,672)
{
Caption="progr"
}
Add(Hub,10538828,602,665)
{
link(onEvent1,1569445:doStrCat,[])
link(onEvent2,449540:doWork,[])
}
Add(LineBreakEx,1938713,385,476)
{
Caption="progr"
}
Add(Hub,14425358,350,469)
{
link(onEvent1,14703574:doAbortSend,[])
link(onEvent2,1938713:doWork,[])
}
Add(ListBox,7855383,756,63)
{
Left=360
Top=60
Width=160
Height=345
}
Add(Button,15157963,700,70)
{
Left=440
Top=35
Width=80
Caption="Очистить"
link(onClick,7855383:doClear,[])
}
Add(LineBreakEx,1409001,616,56)
{
Caption="log"
Type=1
link(OnEvent,1315586:doEvent1,[])
}
Add(InfoTip,3984338,609,28)
{
Info=#3:Log|
Width=260
Height=158
}
Add(If_else,10863870,763,140)
{
Op2=Integer(30)
link(onTrue,7381714:doData,[])
link(Op1,7855383:Count,[])
AddHint(-79,19,27,13,Op2)
}
Add(DoData,7381714,812,140)
{
Data=Integer(0)
link(onEventData,7855383:doDelete,[(856,146)(856,128)(743,128)(743,83)])
}
Add(Hub,1315586,665,56)
{
link(onEvent1,10863870:doCompare,[(692,62)(692,146)])
link(onEvent2,7855383:doAdd,[])
}
Add(StreamUnPack,13235102,1026,406)
{
DataCount=#10:тип данных|6:данные|0:|
link(onUnPack,4233687:doEvent,[])
}
Add(IndexToChanel,4233687,1082,406)
{
Count=4
Point(Index)
Point(Data)
link(onEvent1,9252309:doFileName,[(1179,412)(1179,293)])
link(onEvent2,958573:doCopy,[(1194,419)(1194,251)])
link(onEvent3,4456694:doAdd,[])
link(Index,13235102:тип данных,[(1088,394)(1073,394)(1073,454)(1032,454)])
link(Data,13235102:данные,[(1095,389)(1067,389)(1067,450)(1039,450)])
}
Add(SDialog,9252309,1271,280)
{
Title="сохранить принятые данные в файл"
Point(doFileName)
link(onExecute,15993375:doValue,[])
}
Add(MemoryStream,958573,1222,245)
{
link(onCopy,9252309:doExecute,[(1262,251)(1262,286)])
}
Add(FileStream,968047,1327,343)
{
Mode=2
Point(doCopyFromStream)
link(FileName,15993375:Value,[])
}
Add(Memory,15993375,1327,280)
{
link(onData,329189:doData,[(1377,286)(1377,386)(1213,386)(1213,349)])
}
Add(DoData,329189,1222,343)
{
link(onEventData,5559598:doEvent1,[])
link(Data,958573:Stream,[])
}
Add(Hub,5559598,1285,343)
{
OutCount=3
link(onEvent1,968047:doOpen,[])
link(onEvent2,968047:doCopyFromStream,[(1317,356)(1317,363)])
link(onEvent3,968047:doClose,[(1317,363)(1317,356)])
}
Add(Label,13327372,1285,420)
{
Left=185
Top=170
Width=90
Color=12639424
Caption="принятый текст:"
AutoSize=1
}
Add(RichEdit,4456694,1236,420)
{
Left=35
Top=220
Width=150
Height=125
Color=12639424
ScrollBars=2
}
сервер

Add(MainForm,2953706,21,105)
{
Width=638
Height=700
Caption="server"
BorderStyle=1
}
Add(Button,15114168,392,315)
{
Left=100
Top=5
Width=120
Caption="Запустить сервер"
link(onClick,6777519:doStartServer,[(456,321)(456,349)])
}
Add(Button,9081553,203,301)
{
Left=350
Top=5
Width=120
Caption="Остановить сервер"
Data=String(Сервер остановлен)
link(onClick,16229820:doEvent1,[])
}
Add(Button,363541,217,168)
{
Left=195
Top=235
Width=125
Caption="Отправить всем"
Data=String(Отправляю всем...)
link(onClick,15003814:doEvent1,[])
}
Add(TCPServer,6777519,490,336)
{
AsyncEvents=1
Point(doCloseAll)
Point(Port)
Point(onSend)
Point(onStartServer)
Point(onErrorStart)
Point(onErrorSend)
Point(doSendAll)
Point(doSendAsync)
Point(doSendAllAsync)
Point(doStopListen)
Point(doAbortSendAll)
Point(onProgress)
link(onReceive,1211794:doWork,[(577,342)(577,328)])
link(onClientConnect,9688387:doEvent1,[(754,349)(754,258)])
link(onClientDisconnect,1787300:doEvent1,[])
link(ClientID,13188730:getVar,[])
link(Port,12063275:Text,[])
link(onSend,6421089:doString,[(815,363)(815,482)])
link(onStartServer,4044729:doData,[])
link(onErrorStart,6804384:doStrCat,[(667,377)(667,419)])
link(onErrorSend,6826164:doString,[(651,384)(651,503)])
link(onProgress,1938713:doWork,[])
}
Add(DoData,4044729,693,364)
{
Data=String(Сервер запущен)
link(onEventData,10192232:doWork,[])
}
Add(StrCat,6804384,693,413)
{
Str1="Ошибка запуска: "
link(onStrCat,9255404:doWork,[])
}
Add(Edit,12063275,504,287)
{
Left=40
Top=5
Text="5000"
}
Add(Button,5801244,231,469)
{
Left=225
Top=5
Width=120
Caption="Остановить прием"
Data=String(Прием выключен)
link(onClick,14849078:doEvent1,[])
}
Add(Button,6930660,182,84)
{
Left=5
Top=235
Width=145
Caption="Отправить выбранному"
link(onClick,15173414:doEvent1,[])
}
Add(Label,10355122,21,154)
{
Left=5
Top=10
Width=32
Height=17
Caption="Порт:"
}
Add(Label,6505258,21,203)
{
Left=5
Top=35
Width=120
Height=17
Caption="Активные соединения:"
}
Add(Memo,5066186,1358,175)
{
Left=5
Top=290
Width=315
Height=225
ScrollBars=3
}
Add(Label,16606011,21,252)
{
Left=5
Top=270
Width=174
Height=17
Caption="Полученные от клиентов данные:"
}
Add(Label,5144598,70,154)
{
Left=330
Top=35
Width=26
Height=17
Caption="Лог:"
}
Add(StringTableMT,6286,1197,686)
{
Left=5
Top=55
Width=315
Height=115
Columns=#11:ClientID=75|14:IP address=100|15:Data sended=100|
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(onSelect)
Point(Index)
Point(Matrix)
Point(doSelect)
}
Add(LineBreakEx,9255404,742,413)
{
@Color=11184895
Caption="log"
}
Add(LineBreakEx,10192232,742,364)
{
@Color=11184895
Caption="log"
}
Add(Hub,16229820,245,301)
{
link(onEvent1,6777519:doStopServer,[(375,307)(375,356)])
link(onEvent2,12147381:doWork,[])
}
Add(LineBreakEx,12147381,273,308)
{
@Color=11184895
Caption="log"
}
Add(Hub,14849078,280,469)
{
link(onEvent1,6777519:doStopListen,[(376,475)(376,398)])
link(onEvent2,13154032:doWork,[])
}
Add(LineBreakEx,13154032,308,476)
{
@Color=11184895
Caption="log"
}
Add(Button,10485459,14,455)
{
Left=195
Top=175
Width=125
Caption="Отключить всех"
Data=String(Все отключены)
link(onClick,5916237:doEvent1,[])
}
Add(Button,4042353,21,399)
{
Left=5
Top=175
Width=145
Caption="Отключить выбранного"
Data=String( отлючен)
link(onClick,10955472:doEvent1,[])
}
Add(Hub,5916237,63,455)
{
OutCount=4
link(onEvent1,6777519:doCloseAll,[(247,461)(247,370)])
link(onEvent2,8484241:doWork,[])
link(onEvent3,12263019:doWork,[])
link(onEvent4,15066315:doWork,[(84,482)(84,496)])
}
Add(LineBreakEx,12263019,140,469)
{
@Color=11184895
Caption="log"
}
Add(LineBreakEx,16146697,1127,686)
{
Caption="add"
Type=1
link(OnEvent,6286:doAdd,[])
}
Add(LineBreakEx,16645085,903,203)
{
Caption="ID"
Type=2
}
Add(LineBreakEx,2569545,1155,777)
{
Caption="del"
Type=1
link(OnEvent,7563513:doData,[])
}
Add(LineBreakEx,9725110,105,413)
{
Caption="del"
}
Add(LineBreakEx,14480253,1071,693)
{
Caption="clear"
Type=1
link(OnEvent,6286:doClear,[])
}
Add(LineBreakEx,8484241,91,462)
{
Caption="clear"
}
Add(DoData,7563513,1211,777)
{
link(onEventData,6286:doDelete,[(1255,783)(1255,765)(1175,765)(1175,706)])
link(Data,6286:Index,[])
}
Add(LineBreakEx,12129247,497,448)
{
Caption="ID"
Type=3
link(_Data,6777519:CurClientID,[])
}
Add(LineBreakEx,6071777,910,224)
{
Caption="IP"
Type=2
}
Add(LineBreakEx,1028735,504,427)
{
Caption="IP"
Type=3
link(_Data,6777519:CurIPAddress,[])
}
Add(LineBreakEx,13188730,497,259)
{
Caption="cur"
Type=2
}
Add(LineBreakEx,5376722,1148,882)
{
Caption="cur"
Type=3
link(_Data,6429138:GetData,[])
}
Add(Hub,10955472,70,399)
{
OutCount=4
link(onEvent1,6777519:doClose,[(121,405)(121,363)])
link(onEvent2,15222582:doStrCat,[])
link(onEvent3,9725110:doWork,[])
link(onEvent4,13351095:doWork,[(91,426)(91,440)])
}
Add(LineBreakEx,6915611,203,406)
{
@Color=11184895
Caption="log"
}
Add(StrCat,15222582,154,406)
{
link(onStrCat,6915611:doWork,[])
link(Str1,3504114:getVar,[])
}
Add(LineBreakEx,3504114,154,378)
{
Caption="cur"
Type=2
}
Add(StrCatDelim,5912099,903,252)
{
Delimiter=";"
link(onStrCatDlm,16444172:doWork,[])
link(Str2,6071777:getVar,[])
}
Add(LineBreakEx,16444172,959,252)
{
Caption="add"
}
Add(LineBreakEx,7252945,875,357)
{
Caption="del"
}
Add(MultiElement,14309163,1022,721)
{
@Hint=#42:Вычисление номера строки по идентификатору|
link(onEvent1,6286:doSelect,[(1126,727)(1126,713)])
link(Data1,7309411:getVar,[])
}
BEGIN_SDK
Add(EditMulti,6760725,21,21)
{
EventCount=1
WorkCount=1
DataCount=1
Width=447
Height=333
VOffset=105
HOffset=75
link(doWork1,16448232:doValue,[])
}
Add(MatrixRW,14714267,252,126)
{
Point(CountRow)
link(onRead,13274947:doCompare,[])
link(Matrix,6760725:Data1,[(258,106)(102,106)])
link(X,2369273:Value,[])
link(Y,8877663:getVar,[])
}
Add(For,8686460,245,238)
{
IncludeEnd=1
link(onEvent,14714267:doRead,[(293,244)(293,189)(242,189)(242,132)])
link(Start,11942156:Value,[(251,222)(195,222)])
link(End,14714267:CountRow,[])
}
Add(Memory,16448232,84,126)
{
link(onData,8686460:doFor,[(147,132)(147,244)])
}
Add(LineBreakEx,5181742,84,175)
{
Caption="ID"
Type=3
link(_Data,16448232:Value,[])
}
Add(LineBreakEx,13161377,343,91)
{
Caption="ID"
Type=2
}
Add(If_else,13274947,336,126)
{
link(onTrue,14329397:doData,[])
link(Op2,13161377:getVar,[])
}
Add(LineBreakEx,8877663,273,91)
{
Caption="idx"
Type=2
}
Add(LineBreakEx,13302447,245,287)
{
Caption="idx"
Type=3
link(_Data,8686460:Position,[])
}
Add(LineBreakEx,8430613,392,84)
{
Caption="idx"
Type=2
}
Add(DoData,14329397,392,126)
{
link(onEventData,6760725:onEvent1,[])
link(Data,8430613:getVar,[])
}
Add(Memory,11942156,189,175)
{
Default=Integer(0)
}
Add(Memory,2369273,266,35)
{
Default=Integer(0)
}
END_SDK
Add(LineBreakEx,9665819,1218,742)
{
Caption="m"
Type=3
link(_Data,6286:Matrix,[])
}
Add(LineBreakEx,7309411,1022,693)
{
Caption="m"
Type=2
}
Add(LineBreakEx,12673722,742,497)
{
@Color=11184895
Caption="log"
}
Add(Hub,3028539,1127,175)
{
OutCount=3
link(onEvent1,4790786:doCompare,[(1153,181)(1153,149)(1087,149)(1087,118)])
link(onEvent2,14373174:doEvent2,[])
link(onEvent3,3874551:doLength,[(1159,195)(1159,265)])
}
Add(LineBreakEx,3273383,1246,77)
{
Caption="ID"
Type=2
}
Add(LineBreakEx,11810615,1253,98)
{
Caption="IP"
Type=2
}
Add(FormatStr,7246594,1246,133)
{
Mask="Получены данные от %1 (%2):"
link(onFString,14373174:doEvent1,[(1292,139)(1292,181)])
link(Str1,3273383:getVar,[])
link(Str2,11810615:getVar,[])
}
Add(Hub,14373174,1302,175)
{
InCount=2
OutCount=1
link(onEvent1,5066186:doAdd,[])
}
Add(Hub,1787300,833,350)
{
OutCount=4
link(onEvent1,4905534:doWork,[])
link(onEvent2,7252945:doWork,[])
link(onEvent3,12830445:doWork,[])
link(onEvent4,528689:doStrCat,[(871,377)(871,391)])
}
Add(StrCat,528689,896,385)
{
Str2=" отключился"
link(onStrCat,15787881:doWork,[])
}
Add(LineBreakEx,15787881,952,385)
{
@Color=11184895
Caption="log"
}
Add(LineBreakEx,9017334,336,84)
{
@Color=11184895
Caption="log"
}
Add(Hub,15173414,238,84)
{
link(onEvent1,15392374:doString,[])
link(onEvent2,472054:doData,[(277,97)(277,139)])
}
Add(LineBreakEx,6088956,287,56)
{
Caption="cur"
Type=2
}
Add(Edit,7068077,385,56)
{
Left=5
Top=210
Width=315
Text="Добро пожаловать на сервер!"
}
Add(Button,1924817,1176,203)
{
Left=235
Top=265
Width=85
Caption="Очистить"
Data=Integer(0)
link(onClick,14234221:doEvent1,[])
}
Add(FormatStr,6826164,693,497)
{
Mask="%1: ошибка отправки %2"
link(onFString,12673722:doWork,[])
link(Str1,10904006:getVar,[])
}
Add(LineBreakEx,10904006,693,469)
{
Caption="ID"
Type=2
}
Add(Hub,15003814,266,168)
{
link(onEvent1,15401622:doWork,[])
link(onEvent2,15583290:doData,[(298,181)(298,195)])
}
Add(LineBreakEx,15401622,308,168)
{
@Color=11184895
Caption="log"
}
Add(FormatStr,15392374,287,84)
{
DataCount=1
Mask="Отправка клиенту %1..."
link(onFString,9017334:doWork,[])
link(Str1,6088956:getVar,[])
}
Add(LineBreakEx,14621722,959,476)
{
@Color=11184895
Caption="log"
}
Add(FormatStr,6421089,910,476)
{
DataCount=1
Mask="Клиенту %1 отправлено"
link(onFString,14621722:doWork,[])
link(Str1,2340659:getVar,[])
}
Add(LineBreakEx,2340659,910,441)
{
Caption="ID"
Type=2
}
Add(Label,3314082,1456,259)
{
Left=180
Top=270
Width=36
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="0 KB"
}
Add(Length,3874551,1183,259)
{
link(onLength,5784918:doOperation,[])
}
Add(Math,5784918,1232,259)
{
link(onResult,4269682:doValue,[])
link(Op2,4269682:Value,[(1245,247)(1274,247)(1274,310)(1308,310)])
}
Add(Math,11454386,1358,259)
{
OpType=3
Op2=1024
ResultType=0
link(onResult,11964578:doStrCat,[])
}
Add(LineBreakEx,14169823,378,294)
{
@Color=16777130
Caption="send1"
Type=1
link(OnEvent,6777519:doSend,[(468,300)(468,342)])
}
Add(LineBreakEx,1002743,259,406)
{
Caption="send1as"
Type=1
link(OnEvent,6777519:doSendAsync,[(353,412)(353,384)])
}
Add(LineBreakEx,16548681,266,378)
{
Caption="sendAll"
Type=1
link(OnEvent,6777519:doSendAll,[(345,384)(345,377)])
}
Add(LineBreakEx,11644346,252,434)
{
Caption="sendAllas"
Type=1
link(OnEvent,6777519:doSendAllAsync,[(363,440)(363,391)])
}
Add(Label,9432894,21,301)
{
Left=5
Top=520
Width=90
Height=17
Caption="Отправить файл:"
}
Add(LineBreakEx,4689093,434,133)
{
@Color=16777130
Caption="send1"
}
Add(LineBreakEx,11480938,406,189)
{
Caption="sendAll"
}
Add(DoData,472054,385,133)
{
Data=String()
link(onEventData,4689093:doWork,[])
link(Data,9981014:Var2,[])
}
Add(DoData,15583290,350,189)
{
Data=String()
link(onEventData,11480938:doWork,[])
link(Data,9981014:Var1,[(356,110)])
}
Add(GetDataEx,9981014,385,105)
{
link(Data,7068077:Text,[])
}
Add(Hub,14234221,1232,203)
{
link(onEvent1,5066186:doClear,[(1340,209)(1340,188)])
link(onEvent2,4269682:doClear,[(1287,216)(1287,272)])
}
Add(LineBreakEx,1211794,595,322)
{
Caption="on_rec"
}
Add(LineBreakEx,9516814,1050,175)
{
Caption="on_rec"
Type=1
link(OnEvent,3028539:doEvent1,[])
}
Add(InfoTip,3984338,532,21)
{
Info=#3:Log|
Width=267
Height=151
}
Add(InfoTip,15513282,168,21)
{
Info=#15:Отправка строки|
Width=330
Height=221
}
Add(InfoTip,15491084,49,616)
{
Info=#15:Отправка файлов|
Width=708
Height=277
}
Add(InfoTip,9371652,938,637)
{
Info=#31:Отображение текущих подключений|
Width=372
Height=291
}
Add(InfoTip,1689452,1029,49)
{
Info=#12:Прием данных|
Width=477
Height=305
}
Add(Memory,4269682,1302,259)
{
Default=Integer(0)
link(onData,11454386:doOperation,[])
}
Add(Hub,9688387,784,252)
{
OutCount=4
link(onEvent1,5912099:doStrCatDlm,[])
link(onEvent2,4238410:doWork,[])
link(onEvent3,2048652:doWork,[])
link(onEvent4,2919777:doStrCat,[(812,279)(812,300)])
}
Add(LineBreakEx,4905534,917,350)
{
Caption="sel"
}
Add(LineBreakEx,11172694,966,721)
{
Caption="sel"
Type=1
link(OnEvent,14309163:doWork1,[])
}
Add(EventFromData,6429138,1148,833)
{
link(onEvent,12427094:doSplit,[])
}
Add(MultiStrData,12427094,1204,833)
{
link(Str,6286:Select,[])
link(onPart1,6429138:doData,[(1246,839)(1246,906)(1136,906)(1136,839)])
}
Add(LineBreakEx,4238410,819,259)
{
Caption="sel"
}
Add(StrCat,2919777,826,294)
{
Str1="Добро пожаловать! Ваш ID "
link(onStrCat,10312207:doWork,[])
}
Add(LineBreakEx,10312207,875,294)
{
Caption="send1as"
}
Add(StrCat,11964578,1407,259)
{
Str2=" KB"
link(onStrCat,3314082:doText,[])
}
Add(Button,6661910,280,504)
{
Left=335
Top=570
Width=105
Caption="Отменить"
link(onClick,6777519:doAbortSendAll,[(402,510)(402,405)])
}
Add(LineBreakEx,12115097,987,868)
{
Caption="progr"
Type=1
link(OnEvent,14936990:doWork1,[])
}
Add(InfoTip,7205773,959,784)
{
Info=#21:Отображение прогресса|
Width=155
Height=130
}
Add(LineBreakEx,1938713,539,385)
{
Caption="progr"
}
Add(MultiElement,14936990,1050,868)
{
@Hint=#42:Вычисление номера строки по идентификатору|
link(Data1,3319368:getVar,[])
link(Data2,10508349:getVar,[])
}
BEGIN_SDK
Add(EditMulti,14709909,21,21)
{
WorkCount=1
DataCount=2
Width=531
Height=333
VOffset=105
HOffset=77
link(doWork1,11926474:doValue,[])
}
Add(MatrixRW,11106796,252,126)
{
Point(CountRow)
link(onRead,2950031:doCompare,[])
link(Matrix,4737361:getVar,[])
link(X,11529468:Value,[])
link(Y,12245715:getVar,[])
}
Add(For,1538339,245,238)
{
IncludeEnd=1
link(onEvent,11106796:doRead,[(293,244)(293,189)(242,189)(242,132)])
link(Start,16133510:Value,[(251,222)(195,222)])
link(End,11106796:CountRow,[])
}
Add(Memory,11926474,84,126)
{
link(onData,1538339:doFor,[(147,132)(147,244)])
}
Add(LineBreakEx,2980338,98,70)
{
Caption="ID"
Type=3
link(_Data,14709909:Data1,[])
}
Add(LineBreakEx,11744555,329,91)
{
Caption="ID"
Type=2
}
Add(If_else,2950031,322,126)
{
link(onTrue,3504863:doWrite,[])
link(Op2,11744555:getVar,[])
}
Add(LineBreakEx,12245715,273,92)
{
Caption="row"
Type=2
}
Add(LineBreakEx,15166411,245,288)
{
Caption="row"
Type=3
link(_Data,1538339:Position,[])
}
Add(Memory,16133510,189,175)
{
Default=Integer(0)
}
Add(Memory,11529468,266,35)
{
Default=Integer(0)
}
Add(LineBreakEx,4737361,252,77)
{
Caption="m"
Type=2
}
Add(LineBreakEx,5527713,105,42)
{
Caption="m"
Type=3
link(_Data,14709909:Data2,[])
}
Add(LineBreakEx,6460904,84,175)
{
Caption="progr"
Type=3
link(_Data,11926474:Value,[])
}
Add(LineBreakEx,8408014,427,56)
{
Caption="progr"
Type=2
}
Add(MatrixRW,3504863,420,119)
{
X=2
Point(CountRow)
link(Matrix,13385898:getVar,[])
link(Value,8408014:getVar,[])
link(Y,5430807:getVar,[])
}
Add(LineBreakEx,5430807,441,85)
{
Caption="row"
Type=2
}
Add(LineBreakEx,13385898,420,35)
{
Caption="m"
Type=2
}
END_SDK
Add(LineBreakEx,10508349,1057,840)
{
Caption="m"
Type=2
}
Add(LineBreakEx,3319368,1050,819)
{
Caption="ID"
Type=2
}
Add(Label,13305213,490,525)
{
Left=130
Top=35
Width=11
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="0"
link(Text,6777519:Count,[])
}
Add(LineBreakEx,14063813,427,525)
{
@Color=16755455
Caption="count"
Type=1
link(OnEvent,13305213:doText,[])
}
Add(LineBreakEx,12830445,931,364)
{
@Color=16755455
Caption="count"
}
Add(LineBreakEx,2048652,847,266)
{
@Color=16755455
Caption="count"
}
Add(LineBreakEx,15066315,105,490)
{
@Color=16755455
Caption="count"
}
Add(LineBreakEx,13351095,98,434)
{
@Color=16755455
Caption="count"
}
Add(ListBox,8291218,686,42)
{
Left=330
Top=55
Width=185
Height=460
}
Add(LineBreakEx,15843749,539,35)
{
@Color=11184895
Caption="log"
Type=1
link(OnEvent,1315586:doEvent1,[])
}
Add(Button,1175463,623,49)
{
Left=430
Top=30
Width=85
Caption="Очистить"
link(onClick,8291218:doClear,[])
}
Add(If_else,10863870,693,112)
{
Op2=Integer(50)
link(onTrue,7381714:doData,[])
link(Op1,8291218:Count,[])
AddHint(-45,14,27,13,Op2)
}
Add(DoData,7381714,742,112)
{
Data=Integer(0)
link(onEventData,8291218:doDelete,[(786,118)(786,98)(670,98)(670,62)])
}
Add(Hub,1315586,588,35)
{
link(onEvent1,10863870:doCompare,[(615,41)(615,118)])
link(onEvent2,8291218:doAdd,[])
}
Add(Button,9344884,56,700)
{
Left=-5
Top=535
Caption="Выбрать"
link(onClick,774689:doExecute,[])
}
Add(LED,10530662,1155,112)
{
Left=295
Top=570
}
Add(If_else,4790786,1099,112)
{
Op2=Integer(1)
link(onTrue,10530662:doChangeValue,[])
}
Add(Edit,7298692,349,756)
{
Left=10
Top=560
Width=145
Text="Пример текста"
link(onEnter,10742204:doEvent1,[])
}
Add(StreamPack,14434465,552,749)
{
DataCount=#10:тип данных|6:данные|0:|
link(onPack,10718303:doWork,[])
link(данные,12524206:Data,[(565,736)(540,736)(540,792)(502,792)])
}
Add(ChanelToIndex,12524206,496,749)
{
Count=3
Point(Data)
link(onIndex,14434465:doPack,[])
}
Add(FileStream,2227522,349,707)
{
link(onLoad,15407374:doData,[])
link(FileName,10384604:Text,[(355,695)(285,695)(285,744)(216,744)])
}
Add(ODialog,774689,111,700)
{
Title="файл для отправки данных"
link(onExecute,10384604:doText,[])
}
Add(DoData,15407374,405,707)
{
link(onEventData,12524206:doWork2,[(453,713)(453,762)])
link(Data,2227522:Stream,[(411,695)(392,695)(392,750)(355,750)])
}
Add(Label,7520253,489,665)
{
Left=500
Top=535
Width=137
Height=17
Caption="---------------------"
}
Add(Hub,10529649,258,700)
{
OutCount=3
link(onEvent1,10690890:doPart,[(324,706)(324,671)])
link(onEvent2,2227522:doOpen,[])
link(onEvent3,2227522:doClose,[])
}
Add(Hub,661063,412,665)
{
link(onEvent1,7520253:doText,[])
link(onEvent2,12524206:doWork1,[(462,678)(462,755)])
}
Add(FilePartElm,10690890,349,665)
{
link(onPart,661063:doEvent1,[])
}
Add(DoData,15097737,349,805)
{
link(onEventData,10742204:doEvent2,[(400,811)(400,776)])
link(Data,7298692:Text,[])
}
Add(Hub,10742204,419,763)
{
InCount=2
OutCount=1
link(onEvent1,12524206:doWork3,[])
}
Add(Edit,10384604,210,700)
{
Left=60
Top=535
Width=435
Text="C:\Users\Администратор\Desktop\Screenshot_12.png"
link(onChange,10529649:doEvent1,[])
}
Add(LineBreakEx,10718303,658,749)
{
Caption="sendAllas"
}

В чем ошибка? Посмотрите пожалуйста.

Редактировалось 6 раз(а), последний 2020-12-28 17:53:23
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 194
Рейтинг: 27
#2: 2020-12-28 18:12:46 ЛС | профиль | цитата
LeoN, Netspirit тебе правильный путь указал, использовать HTTP сервер. Пример есть в Hiasm (\Elements\delphi\Example\Internet\http_server.sha)

Add(MainForm,3006772,105,112)
{
Left=20
Top=105
link(onCreate,4557003:##open,[])
}
Add(TCP_ServerEx,4557003,161,126)
{
}
BEGIN_SDK
Add(EditMultiEx,9971778,3,3)
{
WorkCount=#6:##open|
Width=650
Height=333
}
Add(TCP_Connection,916654,42,56)
{
link(onRead,6091776:doSearch,[])
}
Add(FormatStr,14028257,557,231)
{
Mask="%2Content-Length: %1\n\r\n\r"
link(onFString,5832223:doWork2,[])
link(Str1,6544603:Size,[(563,216)(524,216)])
link(Str2,2893471:Text,[])
}
Add(Convertor,8776093,511,273)
{
Mode=11
link(onResult,5832223:doWork3,[(613,279)])
link(Data,6544603:Stream,[])
}
Add(StrList,2893471,564,162)
{
Strings=#15:HTTP/1.1 200 OK|32:Server: mywebserver/1.0.0(Win32)|
}
Add(BlockFind,6091776,91,56)
{
IncludeBlock=1
StartBlock="GET "
EndBlock=" HTTP"
link(onSearch,12312877:doReplace,[])
}
Add(Hub,2110309,427,168)
{
OutCount=4
link(onEvent1,6544603:doOpen,[])
link(onEvent2,14028257:doString,[(492,181)(492,237)])
link(onEvent3,8776093:doConvert,[(485,188)(485,279)])
link(onEvent4,6544603:doClose,[(500,195)(500,181)])
}
Add(HubEx,2954087,609,112)
{
Angle=3
link(onEvent,916654:doSend,[(613,37)(30,37)(30,69)])
}
Add(Replace,12312877,154,56)
{
SubStr="/"
DestStr="\\"
link(onReplace,8984929:doStrCat,[])
}
Add(StrCat,8984929,203,56)
{
Str1="www"
link(onStrCat,14307555:doValue,[])
}
Add(Memory,14307555,252,56)
{
link(onData,2500498:doFileExists,[(296,62)(296,83)])
}
Add(FileStream,6544603,511,168)
{
link(FileName,14307555:Value,[(517,152)(258,152)])
}
Add(HubEx,5832223,609,231)
{
Angle=3
link(onEvent,2954087:doWork3,[])
}
Add(FileTools,2500498,308,56)
{
link(onEnd,12755746:doEvent,[])
}
Add(IndexToChanel,12755746,357,56)
{
link(onEvent1,10876968:doData,[(450,62)(450,118)])
link(onEvent2,2110309:doEvent1,[(408,69)(408,174)])
}
Add(StrList,8702102,511,49)
{
Strings=#22:HTTP/1.1 404 Not found|32:Server: mywebserver/1.0.0(Win32)|18:Content-Length: 48|0:|46:<html><body><h1>Not found !</h1></body></html>|
}
Add(DoData,10876968,511,112)
{
link(onEventData,2954087:doWork2,[])
link(Data,8702102:Text,[])
}
END_SDK
Add(InfoTip,2900301,196,49)
{
Info=#53:Для проверки работы сервера введите в браузере адрес:|
Width=274
}
Add(LinkTip,16509513,252,91)
{
Link="http://127.0.0.1/index.html"
Font=[MS Sans Serif,8,0,16711680,1]
}

карма: 4

0
Ответов: 4475
Рейтинг: 716
#3: 2020-12-28 18:13:02 ЛС | профиль | цитата
А учитывается что большие данные приходят несколькими порциями и что новые данные могут приходить одной порцией с концом предыдущих? Нужно накопление и разделение на принимающей стороне. В теме по альтернативных TCP компонентах есть посты на эту тему.
Как отправить целиком файл - есть ссылки на примеры в первом посте темы.
Задача достаточно сложная как для понимания, так и для реализации имеющимися компонентами.
карма: 26

0
Ответов: 36
Рейтинг: 0
#4: 2020-12-28 18:22:25 ЛС | профиль | цитата
Gunta писал(а):
использовать HTTP сервер

В нем нет отправки выбранному пользователю. Можно отправить по ип, но это если вручную.
карма: 0

0
Ответов: 194
Рейтинг: 27
#5: 2020-12-28 18:24:56 ЛС | профиль | цитата
LeoN писал(а):
скачивания файла с сервера на конкретный клиент.

Так надо отправить или скачивать?

Редактировалось 2 раз(а), последний 2020-12-28 18:26:42
карма: 4

0
Ответов: 4475
Рейтинг: 716
#6: 2020-12-28 18:32:50 ЛС | профиль | цитата
Клиент запрашивает, сервер отдаёт.
карма: 26

0
Ответов: 36
Рейтинг: 0
#7: 2020-12-28 21:22:42 ЛС | профиль | цитата
Gunta, Нужно скачать с сервера на клиент, но клиент может быть запущен не один одновременно,а передача файла то будет на все клиенты сразу
карма: 0

0
Ответов: 194
Рейтинг: 27
#8: 2020-12-29 00:14:56 ЛС | профиль | цитата
LeoN писал(а):
Нужно скачать с сервера на клиент, но клиент может быть запущен не один одновременно,а передача файла то будет на все клиенты сразу

Попробуй.
https://forum.hiasm.com/getfile/39189
карма: 4

0
файлы: 1HTTP сервер.zip [52.1KB] [120]
Ответов: 1307
Рейтинг: 29
#9: 2020-12-29 00:24:20 ЛС | профиль | цитата
Мноооого времени колдовал с серверной стороной http файлового сервера, в итоге нашел очень очень маленькую и функциональную программу, а главное стабильную... HFS

Клиентскую часть использую именно обычный http клиент, все работает как часики
карма: 2

0
Ответов: 36
Рейтинг: 0
#10: 2021-01-23 19:22:41 ЛС | профиль | цитата
Gunta, Спасибо. Это отличный рабочий вариант. А можно реализовать скачивание нескольких файлов? Или для каждого файла нужно добавлять отдельный элемент или лучше все запихнуть в архив?
карма: 0

0
Ответов: 194
Рейтинг: 27
#11: 2021-01-23 22:20:17 ЛС | профиль | цитата
LeoN писал(а):
А можно реализовать скачивание нескольких файлов?

Да, вот один из вариантов.
https://forum.hiasm.com/getfile/39206
карма: 4

0
файлы: 1HTTP сервер 2.zip [63.5KB] [140]
Ответов: 36
Рейтинг: 0
#12: 2021-01-24 11:21:43 ЛС | профиль | цитата
Gunta, Спасибо! Буду разбираться. У элемента HTTP_GET есть точка onURLsize, возможность сделать чтобы размер показывало не в байтах а в мегабайтах? В элементах не нашел конвертера, а скаченные не хотят компилироваться.
карма: 0

0
Ответов: 194
Рейтинг: 27
#13: 2021-01-25 07:20:43 ЛС | профиль | цитата
LeoN писал(а):
размер показывало не в байтах а в мегабайтах

Add(MathParse,4545758,455,175)
{
DataCount=1
MathStr="round(%1/1048576,0.1) "
}


Редактировалось 1 раз(а), последний 2021-01-25 07:21:45
карма: 4

0
Ответов: 36
Рейтинг: 0
#14: 2021-01-26 16:52:02 ЛС | профиль | цитата
Gunta, А получить размер всех файлов возможно? Надеюсь не сильно надоел вам)
карма: 0

0
Ответов: 194
Рейтинг: 27
#15: 2021-01-28 08:20:09 ЛС | профиль | цитата
LeoN писал(а):
А получить размер всех файлов возможно?

Просто сложи размеры файлов
Add(Label,5398,36,28)
{
Width=459
Height=23
Align=2
Font=[Arial,8,0,0,1]
Caption=" IP сервера + порт"
AutoSize=1
}
Add(MainForm,91136,770,168)
{
Left=312
Top=284
Width=475
Height=268
Caption="Клиент"
}
Add(Button,53054,91,140)
{
Width=459
Align=4
Font=[Arial,8,0,0,1]
Caption="Download"
Data=Integer(0)
Point(doEnabled)
link(onClick,9672155:doEvent2,[(130,146)(130,125)])
}
Add(HTTP_Get,27891,483,105)
{
link(onDownload,13893167:doDeferredEvent,[])
link(onURLSize,8194132:doOperation,[(536,125)(536,174)])
link(URL,9951298:Result,[(489,96)(398,96)(398,145)(356,145)])
link(FileName,16283096:String,[(496,89)(342,89)(342,138)(244,138)])
}
Add(ListBox,16283096,210,84)
{
Top=23
Width=459
Height=186
Align=5
Strings=#10:cables.zip|16:MST_Virtual3.sha|16:MST_Virtual1.sha|16:MST_Virtual2.sha|
DataType=1
Point(doSelect)
Point(onSelect)
Point(EndIdx)
Point(String)
link(onSelect,12066548:doCompare,[])
}
Add(Edit,70643,350,42)
{
Left=150
Width=300
Height=21
Font=[Arial,8,0,0,1]
Text="http://127.0.0.1:8080/"
}
Add(StrCat,9951298,350,105)
{
link(onStrCat,12279259:doEvent1,[(389,111)(389,125)])
link(Str1,70643:Text,[])
}
Add(DeferredEvent,13893167,553,112)
{
Delay=30
Data=Integer(0)
link(onDeferredEvent,15369124:In,[])
}
Add(Hub,9672155,175,112)
{
InCount=2
OutCount=1
link(onEvent1,16283096:doSelect,[])
}
Add(Hub,9102927,119,98)
{
link(onEvent1,16283096:doDelete,[])
link(onEvent2,9672155:doEvent1,[(165,111)(165,118)])
}
Add(If_else,12066548,280,98)
{
Op2=String()
link(onFalse,9951298:doStrCat,[])
link(Op2,8550095:Value,[])
}
Add(LineBreak,3315553,63,98)
{
link(Out,9102927:doEvent1,[])
Primary=[15369124,546,14]
}
Add(Memory,8550095,287,42)
{
Default=String()
}
Add(Hub,12279259,406,119)
{
link(onEvent1,27891:GetURLSize,[])
link(onEvent2,27891:doDownload,[(431,132)(431,111)])
}
Add(Math,8194132,546,168)
{
link(onResult,10860111:doOperation,[])
link(Op2,8194132:Result,[(559,159)(566,159)(566,208)(552,208)])
}
Add(FormatStr,6320488,714,168)
{
Mask="Получено - %1 кб."
link(onFString,91136:doCaption,[])
}
Add(Math,10860111,602,168)
{
OpType=3
Op2=1024
link(onResult,15021157:doOperation,[])
}
Add(Math,15021157,665,168)
{
OpType=35
Op2=0.001
link(onResult,6320488:doString,[])
}


Редактировалось 1 раз(а), последний 2021-01-28 08:23:50
карма: 4

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