Вверх ↑
Ответов: 701
Рейтинг: 146
#1: 2024-03-28 17:47:18 ЛС | профиль | цитата
strannik_nebes писал(а):
После приема файла, надпись висит "прием файла". Объем данных приходит правильно

Поправил Клиент

Add(MainForm,11176470,560,280)
{
Left=20
Top=105
Width=377
Height=134
Caption="Send big file"
Position=1
Point(onClose)
link(onClose,9043421:doWork2,[(620,307)(620,314)])
}
Add(ODialog,1786215,273,70)
{
link(onExecute,9721491:doText,[])
}
Add(SharedStream,12437222,399,70)
{
CoreName="asd"
PageMem=160
Point(FileOffset)
Point(CountFileBlock)
Point(FileSize)
link(onOpen,15394481:doOperation,[])
link(Offset,10512455:Result,[(419,61)(447,61)(447,138)(713,138)])
}
Add(Edit,9721491,322,70)
{
Top=65
Width=325
Text=""
ClearAfterEnter=1
link(onChange,12437222:doOpen,[])
}
Add(Button,15010227,189,63)
{
Left=330
Top=65
Width=20
Font=[MS Sans Serif,8,1,0,1]
Cursor=2
TabOrder=-1
Caption="..."
Data=Integer(6)
link(onClick,7649023:doEvent1,[])
}
Add(For,15201884,532,70)
{
link(onEvent,639348:doEvent1,[])
link(onStop,12437222:doClose,[(571,83)(571,55)(382,55)(382,90)])
link(End,15394481:Result,[(545,61)(524,61)(524,110)(482,110)])
}
Add(EventFromData,12814098,273,266)
{
link(onEvent,3731920:doPart,[])
}
Add(TCP_Client,52372,644,301)
{
Port=130
IP="127.0.0.1"
DataType=3
Point(onError)
Point(onProgress)
link(onConnect,10294395:doOn,[(683,314)(683,328)])
link(onDisconnect,10294395:doOff,[])
}
Add(Hub,639348,588,70)
{
link(onEvent1,8314133:doPack,[(613,76)(613,118)(389,118)(389,321)])
link(onEvent2,10512455:doOperation,[])
}
Add(StreamPack,8314133,399,315)
{
DataCount=#8:FileName|8:Filepart|7:SizeMMF|6:Offset|8:FileSize|
link(onPack,52372:doSend,[])
link(FileName,12814098:GetData,[(405,306)(279,306)])
link(Filepart,12437222:Stream,[(412,243)(405,243)])
link(SizeMMF,9575546:Var2,[])
link(Offset,13961555:Var2,[])
link(FileSize,12437222:FileSize,[(433,138)(440,138)])
}
Add(GetDataEx,13961555,420,126)
{
link(Data,12437222:FileOffset,[])
}
Add(FilePartElm,3731920,322,266)
{
link(onPart,12814098:doData,[(361,272)(361,258)(263,258)(263,272)])
link(FileName,9721491:Text,[])
}
Add(Hub,7649023,238,63)
{
link(onEvent1,10512455:doClear,[(263,69)(263,41)(571,41)(571,90)])
link(onEvent2,1786215:doExecute,[])
}
Add(GetDataEx,9575546,413,119)
{
link(Data,12437222:SizeMMF,[])
}
Add(Math,10512455,707,77)
{
ResultType=0
Point(doClear)
link(onResult,12437222:doRemapping,[(746,83)(746,48)(389,48)(389,83)])
link(Op1,13961555:Var3,[(713,68)(650,68)(650,131)])
link(Op2,9575546:Var3,[(720,61)(643,61)(643,124)])
}
Add(LED,10294395,700,308)
{
Left=200
Top=10
}
Add(Label,12900334,63,21)
{
Left=10
Top=35
Width=202
Height=17
Caption="Выбрать файл для отправки на сервер"
}
Add(Button,3343666,504,238)
{
Left=5
Top=10
Width=170
Caption="Соединидся с с сервером"
Point(doCaption)
link(onClick,3761722:doSwitch,[])
}
Add(Switch,3761722,560,238)
{
DataOn=String(Отключится)
DataOff=String(Подключится)
Point(onOn)
Point(onOff)
link(onSwitch,3343666:doCaption,[(599,244)(599,230)(494,230)(494,244)])
link(onOn,52372:doOpen,[(634,251)(634,307)])
link(onOff,9043421:doWork1,[(627,258)])
}
Add(HubEx,9043421,623,308)
{
link(onEvent,52372:doClose,[])
}
Add(Math,15394481,476,70)
{
Op2=1
link(onResult,15201884:doFor,[])
link(Op1,12437222:CountFileBlock,[(482,61)(468,61)(468,110)(433,110)])
}

карма: 15

0