Вверх ↑
Ответов: 59
Рейтинг: 0
#1: 2020-12-19 14:08:11 ЛС | профиль | цитата
Есть такой вариант, не не могу понять как сохранить целостность файла. Имя файла и размер сохраняются, а вот сам файл уже оказывается негодным.
Add(MainForm,4609994,343,252){
Left=20
Top=105
Width=384
Height=273
Caption="Сервер"
link(onCreate,3150418:doOpen,[(502,293)(502,356)])
}
Add(TCP_Server,3150418,630,350)
{
Port=7788
DataType=3
link(onRead,2485292:doCopyFromStream,[])
link(Data,7701222:Stream,[])
}
Add(FileStream,2485292,707,336)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,1604621:Result,[])
}
Add(FileStream,7339923,574,224)
{
link(onLoad,7701222:doCopy,[])
}
Add(Button,14321239,497,364)
{
Left=30
Top=75
Caption="Отправить"
link(onClick,14485910:doEvent1,[(541,370)(541,377)])
}
Add(Button,14436560,413,224)
{
Left=30
Top=45
Caption="Открыть"
link(onClick,5652688:doExecute,[])
}
Add(ODialog,5652688,462,224)
{
link(onExecute,595716:doText,[])
}
Add(ChildFormEx,15245145,539,140)
{
}
BEGIN_SDK
Add(EditMultiEx,200278,3,3)
{
Width=538
Height=298
}
Add(MainForm,15337811,21,105)
{
Left=35
Top=105
Caption="Клиент"
link(onCreate,3295449:doOpen,[(159,146)(159,244)])
}
Add(FileStream,2485292,462,224)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,10758309:Result,[])
}
Add(ODialog,8168554,224,140)
{
link(onExecute,4551523:doText,[])
}
Add(Button,6645864,245,252)
{
Left=30
Top=75
Caption="Отправить"
link(onClick,14093667:doEvent1,[])
}
Add(FileStream,7339923,315,140)
{
link(onLoad,11953822:doCopy,[])
}
Add(Button,14436560,175,140)
{
Left=30
Top=45
Caption="Открыть"
link(onClick,8168554:doExecute,[])
}
Add(TCP_Client,3295449,371,238)
{
Port=7788
IP="127.0.0.1"
DataType=3
link(onRead,2485292:doCopyFromStream,[])
link(Data,11953822:Stream,[])
}
Add(MemoryStream,11953822,378,140)
{
}
Add(Edit,4551523,273,140)
{
Left=95
Top=45
Width=180
Text=""
link(onChange,7339923:doOpen,[])
}
Add(Hub,14093667,315,252)
{
link(onEvent1,6056381:doSplit,[(341,258)(341,226)(261,226)(261,195)])
link(onEvent2,3295449:doSend,[(350,265)(350,258)])
}
Add(MultiStrData,6056381,273,189)
{
Char="\"
Direct=1
link(Str,4551523:Text,[])
link(onPart1,10758309:doStrCat,[(369,195)(369,181)])
}
Add(StrCat,10758309,462,175)
{
Str1="C:\Users\lamdo\Pictures\"
}
END_SDK
Add(MemoryStream,7701222,630,224)
{
}
Add(InfoTip,12418447,518,126)
{
Info=#6:Клиент|
Width=92
Height=53
}
Add(InfoTip,11787122,406,203)
{
Info=#6:Сервер|
Width=358
Height=200
}
Add(Edit,595716,518,224)
{
Left=100
Top=40
Width=180
Text=""
link(onChange,7339923:doOpen,[])
}
Add(Hub,14485910,553,371)
{
OutCount=3
link(onEvent1,5029369:doSplit,[(579,377)(579,339)(506,339)(506,300)])
link(onEvent2,3150418:doSend,[(599,384)(599,370)])
}
Add(MultiStrData,5029369,518,294)
{
Char="\"
Direct=1
link(Str,595716:Text,[])
link(onPart1,1604621:doStrCat,[(614,300)(614,286)])
}
Add(StrCat,1604621,707,280)
{
Str1="C:\Users\lamdo\Pictures\"
}
карма: 0

0
Редактировалось 1 раз(а), последний 2020-12-19 14:08:34