Собрал вариант под FPS на MemoryStream, но схемка получается слегка усложнённая. вопрос можно ли заставить TempFileStream работать под FPS, или это только у меня ошибка.
Add(MainForm,2953706,21,56)
{
Width=253
Height=268
Position=1
}
Add(Button,14904893,77,56)
{
Left=10
Top=5
Width=100
Caption="TempFileStream"
link(onClick,7383528:doEvent1,[])
}
Add(TempFileStream,15953776,182,14)
{
Stream=[ZIP0400000078DABBF4F4E3270008CF039B]
Extention="txt"
}
Add(Memo,330443,175,56)
{
Left=10
Top=30
Width=220
link(FileName,15953776:TempFName,[])
}
Add(Hub,7383528,119,56)
{
link(onEvent1,15953776:doCreate,[(167,62)(167,20)])
link(onEvent2,330443:doLoad,[(163,69)(163,90)])
}
Add(FileStream,12751024,256,168)
{
Mode=2
AutoCopy=0
Point(doPosition)
Point(doCopyFromStream)
link(FileName,2122353:Value,[])
}
Add(MemoryStream,13578150,172,133)
{
Stream=[ZIP0400000078DABBF4F4E3270008CF039B]
Point(doPosition)
}
Add(DoData,14119307,172,175)
{
Data=Integer(0)
link(onEventData,12751024:doCopyFromStream,[(230,181)(230,195)])
link(Data,13578150:Stream,[])
}
Add(Hub,9241067,109,168)
{
OutCount=4
link(onEvent1,12751024:doOpen,[])
link(onEvent2,14119307:doData,[])
link(onEvent3,12751024:doClose,[(199,188)(199,181)])
link(onEvent4,15546860:doLoad,[(147,195)(147,321)])
}
Add(Memory,2122353,256,119)
{
Default=String(555.txt)
}
Add(Button,11625718,70,168)
{
Left=10
Top=115
Width=90
Caption="MemoryStream"
link(onClick,9241067:doEvent1,[])
}
Add(Memo,15546860,210,287)
{
Left=10
Top=145
Width=220
link(FileName,8122284:Value,[(223,279)(220,279)])
}
Add(Memory,8122284,214,238)
{
Default=String(555.txt)
}