Вверх ↑
Ответов: 1304
Рейтинг: 405
#1: 2009-01-05 14:21:51 ЛС | профиль | цитата
TempFileStream не работает под FPC
Пример

Add(MainForm,2953706,21,105)
{
Width=250
Height=146
Position=1
}
Add(Button,14904893,98,112)
{
Left=10
Top=5
Width=100
Caption="TempFileStream"
link(onClick,7383528:doEvent1,[])
}
Add(TempFileStream,15953776,196,70)
{
Stream=[ZIP0400000078DABBF4F4E3270008CF039B]
Prefix="~"
Extention="txt"
}
Add(Memo,330443,196,112)
{
Left=10
Top=30
Width=220
link(FileName,15953776:TempFName,[(209,107)(202,107)])
}
Add(Hub,7383528,140,112)
{
link(onEvent1,15953776:doCreate,[(188,118)(188,76)])
link(onEvent2,330443:doLoad,[(184,125)(184,146)])
}
Есть аналог TempFileStream на элементах, но не полный, работает только если временный файл удалять в корзину, что не очень хорошо. .

Add(MainForm,10988377,21,91)
{
Width=150
Height=197
Position=1
Point(onClose)
}
Add(FileStream,12751024,217,154)
{
Mode=1
Point(doPosition)
Point(doCopyFromStream)
link(FileName,2122353:Value,[])
}
Add(MemoryStream,13578150,154,70)
{
Stream=[ZIPD802000078DAFB7FE3FF0306012F374F370646260606462064F8FF90E1996B45661A0383A7A71603070303032B83102333480A8C0D812A6580B417101B01D922401AA898419809A126B39D054C57314080A3B38B42706571496A6EB1824B667A6649628E82676E627A665E3A83918181A59581A19581A982A13188616C08B49161023B030B50A7819191C184494C60B689912103D30288C93C40CC0C65F382DC0865EF81DAC804E4417405595A005950D30C0D0C40B25C40FCFF00832007502F0F33A32203932023B320E3FFDB0C2D0CCC4C40C00822998180859D050438D9D858D9B938B9B9B938B9B8787805F978780478B8B8F845F8050485848585B9F944C54485C4806C21461656563656365E76765E69217E216992C1FF230CD90C8C8C8C0CC8808D85438001E82E162666B8042313330B2B1BBBA01083128798A22123A61E56410646A01F803183A4479041C89045D131905558C929F1FF2D500000FD0F14B667B85DF54FE7DBECDF65BBEEF39EDAD973D9B07CF5D215993173AEAC51AC7378231A7036BDE3B196EC3D53B52407C757B79372F396FE67E8FBF23E9FC969E769219B8D2B5A9C2DD6DD11115ED4B05AFD755583455C6343DDBDF4AD6FF96FF9BCF17C91FFB16FDB32AB870B8B8FB247E75D1099B22D81554B586FAAFC861D1D363E1C425A676FDDBE7D7BF276D30D117FEE998BAB8887DD9CF58F6D5F9419A36C55C7B2AFC1EFF80B7F5928FF387EEC5ED814814D2BCF145E7F6F5278D72BE6D2B6036C0121698F1C7719CC51532E323EC75AFFFF2600C2569CA4]
Point(doPosition)
}
Add(DoData,14119307,154,119)
{
Data=Integer(0)
link(onEventData,12751024:doCopyFromStream,[(202,125)(202,181)])
link(Data,13578150:Stream,[])
}
Add(Hub,9241067,70,140)
{
OutCount=6
link(onEvent1,2984357:doString,[(120,146)(120,76)])
link(onEvent2,12751024:doOpen,[(209,153)(209,160)])
link(onEvent3,14119307:doData,[(128,160)(128,125)])
link(onEvent4,12751024:doClose,[])
link(onEvent5,13782102:doLoad,[(128,174)(128,223)])
}
Add(Memory,2122353,217,112)
{
Default=String()
}
Add(Button,11625718,21,140)
{
Left=5
Top=5
Width=90
Caption="MemoryStream"
link(onClick,9241067:doEvent1,[])
}
Add(Memory,8122284,154,175)
{
Default=String(%WINDOWSTemp~.txt)
}
Add(FileTools,6972357,308,294)
{
link(FileName,14581811:Value,[])
}
Add(Memory,14581811,308,252)
{
Default=String()
}
Add(FormatStr,2984357,217,70)
{
DataCount=1
Mask="%1Temp~.jpg"
link(onFString,13919646:doEvent1,[])
link(Str1,6750508:WindowsDir,[(223,62)(251,62)])
}
Add(Dir,6750508,217,21)
{
Point(WindowsDir)
}
Add(Hub,13919646,259,70)
{
OutCount=4
link(onEvent1,2122353:doValue,[(308,76)(308,148)(206,148)(206,118)])
link(onEvent2,8122284:doValue,[(317,83)(317,109)(142,109)(142,181)])
link(onEvent3,14581811:doValue,[(299,90)(299,258)])
}
Add(Hub,9728323,217,217)
{
link(onEvent1,13782102:doDraw,[(258,223)(258,211)(142,211)(142,230)])
link(onEvent2,6972357:doDelete,[(268,230)(268,314)])
}
Add(Image,2201877,217,259)
{
Left=5
Top=35
Width=130
Height=130
Color=12632256
}
Add(ImageLoader,13782102,154,217)
{
DrawSource=2
link(onLoad,9728323:doEvent1,[])
link(onDraw,2201877:doLoad,[(202,230)(202,265)])
link(FileName,8122284:Value,[])
}
Если кто знает как удалить файл, без отправки в корзину, подскажите пойжалуста.



карма: 3

0