Вверх ↑
Ответов: 9906
Рейтинг: 351
#1: 2017-08-28 16:46:08 ЛС | профиль | цитата
Vadimluk1 писал(а):
Что это работать будет, дать гарантии не могу, время проверять нет
Вот и нечего было выделываться.

Наиболее простой способ соединения файлов (без идиотских проблем наличия какого-то там символа внутри файла) -- такой:
Add(MainForm,9361407,161,189)
{
Width=358
Height=128
Caption="Склеивание файлов"
}
Add(FileStream,14688063,364,133)
{
Mode=1
Point(doCopyFromStream)
Point(doPosition)
}
Add(Edit,2192225,259,133)
{
Left=75
Top=10
Width=260
Text=""
ReadOnly=0
link(onChange,14688063:doOpen,[])
}
Add(Button,4074826,308,140)
{
Left=10
Top=65
Width=325
Caption="Close File-OUT"
link(onClick,14688063:doClose,[])
}
Add(FileStream,16378432,343,259)
{
link(onLoad,1727523:doConvert,[])
}
Add(ODialog,3015364,210,252)
{
link(onExecute,16405465:doText,[])
}
Add(Edit,16405465,259,252)
{
Left=75
Top=40
Width=260
Text=""
ReadOnly=0
link(onChange,11069523:doEvent1,[])
}
Add(Button,9182617,161,252)
{
Left=10
Top=40
Width=60
Caption="File-IN"
link(onClick,3015364:doExecute,[])
}
Add(ODialog,12961147,210,133)
{
link(onExecute,2192225:doText,[])
}
Add(Button,13789902,160,133)
{
Left=10
Top=10
Width=60
Caption="Fille-OUT"
link(onClick,12961147:doExecute,[])
}
Add(DataToFileEx,8166175,364,210)
{
Type=3
link(Stream,2672759:Var2,[])
}
Add(DataToFileEx,469551,441,252)
{
Type=2
DataSize=4
link(Stream,2672759:Var3,[(447,194)])
}
Add(Hub,11069523,308,252)
{
OutCount=3
link(onEvent1,8166175:doPut,[(333,258)(333,223)])
link(onEvent2,16378432:doOpen,[])
link(onEvent3,16378432:doClose,[])
}
Add(StreamConvertor,1727523,392,259)
{
Mode=6
link(onResult,469551:doPut,[])
}
Add(GetDataEx,2672759,364,189)
{
link(Data,14688063:Stream,[])
}
карма: 9

0
Редактировалось 1 раз(а), последний 2017-08-28 16:47:26