Вверх ↑
Ответов: 787
Рейтинг: 168
#1: 2024-03-29 16:42:53 ЛС | профиль | цитата
strannik_nebes писал(а):
Файлы не сходятся по кэш-сумме. 20 с лишним пробелов откуда-то берется

Сервер

Add(MainForm,11176470,280,70)
{
Left=20
Top=105
Width=380
Height=161
Caption="Receive big file"
Position=1
Point(onClose)
link(onClose,11727965:doWork2,[])
}
Add(TCP_Server,37674,357,126)
{
Port=130
DataType=3
Point(onError)
Point(onProgress)
link(onRead,12923094:doSeparateMT,[])
link(onConnect,7080087:doEvent1,[(403,139)(403,300)])
link(onDisconnect,7231487:doEvent1,[(410,146)(410,265)])
}
Add(SharedStream,4764602,623,126)
{
CoreName="dsa"
PageMem=160
Mode=1
Point(FileSize)
link(onOpen,3538368:doCopy,[])
link(FileName,2178470:Result,[(629,117)(580,117)(580,166)(538,166)])
link(Offset,5706248:Offset,[(643,110)(573,110)(573,180)(496,180)])
link(Size,5706248:SizeMMF,[(650,117)(664,117)(664,187)(489,187)])
}
Add(StreamCopy,3538368,700,126)
{
link(onCopy,11056289:doCompare,[])
link(Dest,4764602:Stream,[(706,110)(685,110)(685,166)(629,166)])
link(Source,5706248:Filepart,[(713,117)(692,117)(692,194)(482,194)])
}
Add(StreamUnPack,5706248,469,126)
{
DataCount=#8:FileName|8:Filepart|7:SizeMMF|6:Offset|8:FileSize|
link(onUnPack,2178470:doStrCatDlm,[])
}
Add(MT_MultiData,12923094,420,126)
{
Count=1
link(onData1,5706248:doUnPack,[])
}
Add(LED,10294395,455,280)
{
Left=315
Top=85
}
Add(Hub,7231487,420,259)
{
OutCount=3
link(onEvent1,4764602:doClose,[(585,265)(585,146)])
link(onEvent2,1565907:doWork3,[(494,272)(494,307)])
link(onEvent3,10294395:doOff,[(445,279)(445,293)])
}
Add(Label,7626178,959,273)
{
Left=95
Top=90
Width=130
Height=20
Caption=""
}
Add(StrCatDelim,2178470,532,126)
{
Delimiter="\"
link(onStrCatDlm,4764602:doOpen,[])
link(Str1,9721491:Text,[(538,117)(349,117)(349,180)(188,180)])
link(Str2,5706248:FileName,[(545,110)(461,110)(461,166)(475,166)])
}
Add(Label,16191510,119,231)
{
Left=15
Top=15
Width=240
Caption="Укажите папку для принятых файлов"
}
Add(Edit,9721491,182,140)
{
Left=5
Top=35
Width=325
Text=""
ClearAfterEnter=1
link(onChange,4281014:doExists,[])
}
Add(Button,15010227,98,140)
{
Left=335
Top=35
Width=20
Font=[MS Sans Serif,8,1,0,1]
Cursor=2
TabOrder=-1
Caption="..."
Data=Integer(6)
link(onClick,15313214:doBrowse,[])
}
Add(Browse,15313214,140,140)
{
NewStyle=0
link(onBrowse,9721491:doText,[])
}
Add(DirTools,4281014,231,119)
{
Point(doExists)
link(onOK,14169860:doEvent,[])
}
Add(IndexToChanel,14169860,280,119)
{
link(onEvent1,10555517:doWork2,[])
link(onEvent2,37674:doOpen,[])
}
Add(If_else,11056289,763,126)
{
Type=3
link(onTrue,6107069:doEvent1,[])
link(onFalse,1565907:doWork1,[(809,139)(809,293)])
link(Op1,5706248:FileSize,[(769,103)(524,103)(524,166)(503,166)])
link(Op2,4764602:FileSize,[(776,117)(755,117)(755,173)(650,173)])
}
Add(Hub,6107069,819,126)
{
link(onEvent1,11727965:doWork3,[(844,132)(844,97)])
link(onEvent2,1565907:doWork2,[(844,139)(844,300)])
}
Add(ChanelToIndex,1565907,861,287)
{
Count=4
link(onIndex,14016326:doGetString,[])
}
Add(StrList,14016326,910,259)
{
Strings=#14:Приём файла...|11:Файл принят|17:Клиент отключился|17:Ожидание передачи|0:|0:|
Point(doGetString)
Point(onGetIndex)
Point(onGetString)
link(onGetString,7626178:doText,[])
}
Add(Hub,7080087,413,294)
{
link(onEvent1,10294395:doOn,[])
link(onEvent2,1565907:doWork4,[(445,307)(445,314)])
}
Add(HubEx,11727965,328,91)
{
Angle=1
link(onEvent,10555517:doWork1,[])
}
Add(HubEx,10555517,328,119)
{
Angle=1
link(onEvent,37674:doClose,[(332,139)])
}


Клиент

Add(MainForm,11176470,560,238)
{
Left=20
Top=105
Width=377
Height=134
Caption="Send big file"
Position=1
Point(onClose)
link(onClose,9043421:doWork2,[(620,265)(620,272)])
}
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,15201884:doFor,[])
link(Offset,10512455:Result,[(419,61)(447,61)(447,138)(629,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,483,70)
{
link(onEvent,639348:doEvent1,[])
link(onStop,12437222:doClose,[(522,83)(522,55)(382,55)(382,90)])
link(End,12437222:CountFileBlock,[(496,61)(475,61)(475,110)(433,110)])
}
Add(EventFromData,12814098,273,224)
{
link(onEvent,3731920:doPart,[])
}
Add(TCP_Client,52372,644,259)
{
Port=130
IP="127.0.0.1"
DataType=3
Point(onError)
Point(onProgress)
link(onConnect,10294395:doOn,[(683,272)(683,286)])
link(onDisconnect,10294395:doOff,[])
}
Add(Hub,639348,574,70)
{
link(onEvent1,8314133:doPack,[(599,76)(599,146)(389,146)(389,279)])
link(onEvent2,10512455:doOperation,[])
}
Add(StreamPack,8314133,399,273)
{
DataCount=#8:FileName|8:Filepart|7:SizeMMF|6:Offset|8:FileSize|
link(onPack,52372:doSend,[])
link(FileName,12814098:GetData,[(405,264)(279,264)])
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,224)
{
link(onPart,12814098:doData,[(361,230)(361,216)(263,216)(263,230)])
link(FileName,9721491:Text,[])
}
Add(Hub,7649023,238,63)
{
link(onEvent1,10512455:doClear,[(263,69)(263,41)(620,41)(620,90)])
link(onEvent2,1786215:doExecute,[])
}
Add(GetDataEx,9575546,413,119)
{
link(Data,12437222:SizeMMF,[])
}
Add(Math,10512455,623,77)
{
ResultType=0
Point(doClear)
link(onResult,12437222:doRemapping,[(662,83)(662,48)(389,48)(389,83)])
link(Op1,13961555:Var3,[(629,68)(615,68)(615,131)])
link(Op2,9575546:Var3,[(636,61)(566,61)(566,124)])
}
Add(LED,10294395,700,266)
{
Left=200
Top=10
}
Add(Label,12900334,63,21)
{
Left=10
Top=35
Width=202
Height=17
Caption="Выбрать файл для отправки на сервер"
}
Add(Button,3343666,504,196)
{
Left=5
Top=10
Width=170
Caption="Соединидся с с сервером"
Point(doCaption)
link(onClick,3761722:doSwitch,[])
}
Add(Switch,3761722,560,196)
{
DataOn=String(Отключится)
DataOff=String(Подключится)
Point(onOn)
Point(onOff)
link(onSwitch,3343666:doCaption,[(599,202)(599,188)(494,188)(494,202)])
link(onOn,52372:doOpen,[(634,209)(634,265)])
link(onOff,9043421:doWork1,[(627,216)])
}
Add(HubEx,9043421,623,266)
{
link(onEvent,52372:doClose,[])
}

карма: 15

0