Помогите примерами пожалуйста .
Спасибо !
Вот к этому изходнику можно прикрутить:
Add(MainForm,14567048,21,19)
{
Left=20
Top=105
Width=503
Height=601
Caption="Передатчик от BO_GI"
BorderStyle=1
Icon=[ZIP3604000078DAB593B16EC32010400FBB9299C279EAE84895AAFE453376C8C7B85BB6B0D943253EA91EBAE717326664886486B6D73B304E22A51DAAF6E0381E0718B833808202964B0491430170CF1631F1830258946CB9BF645DB12AB8893E5BC0376263056B93912243DC0CC3C023142B1025234586A4B9BA19D89E1B7DE24ECF6C3A3E113EF371433BAFA9E6AE23473EF86D6728D008D0B3D8306E3BCD9D4EFC94FD247E1D39246EE306338FB2A1162627DC4E5F6026E6319D47676EA3DF589778D4893B9DB80D138315AE20B30261C0995158FD1943623831ED8EE319D766BDF6F5899539EE3CE6F7B5FCDC440A733C586AC3D3CFA44675C1AAAEF122A60ABFC91CDF2E4C084D232A7DCE969203AEB20AEF39BE9E0FF66B5D15260C65F3B1AF5E695F713C3996A121FADC92E4394EB99EF37C807FCC730D555A3D616FED4673B63BDF6F8CE4A377BD9187B72E5471BE0B325F2B17F0AA7D798A56EE1AF7453505E53C246F7749E79BF0A4A1FC590FB7FC8F3500EF8F005F452F1940]
TransparentColor=-16777200
Position=1
link(onActivate,10925925:doEvent1,[(205,25)(205,384)])
link(onCreate,16769098:doOpen,[(159,39)(159,200)])
}
Add(ODialog,6980772,245,12)
{
link(onExecute,10558777:doEvent1,[(289,18)(289,36)(261,36)(261,55)])
}
Add(FileStream,1070812,497,19)
{
@Hint=#19:читаем файл с диска|
link(FileName,7225730:Var3,[(503,9)(349,9)(349,56)])
}
Add(MemoryStream,13737209,504,75)
{
Point(doPosition)
Point(doSize)
}
Add(Hub,15364018,378,40)
{
@Hint=#27: копируем файл в память|19:1 - Загружаем файл.|70:2 - Раздвигаем размер памяти до суммы текущего размера + размер файла.|56:3 - Устанавливаем указатель памяти на конец имени файла.|27:4 - копируем файл в память.|19:5 - закрываем файл.|
OutCount=5
link(onEvent1,1070812:doOpen,[(417,46)(417,25)])
link(onEvent2,5400174:doOperation,[(554,53)(554,144)])
link(onEvent3,15124576:doOperation,[(432,60)(432,109)])
link(onEvent4,12008265:doCopy,[(562,67)(562,88)])
link(onEvent5,1070812:doClose,[(425,74)(425,32)])
}
Add(TCP_Server,16769098,266,194)
{
Port=999
DataType=3
link(onConnect,2274696:doEvent1,[(310,207)(310,243)(79,243)(79,342)])
link(onDisconnect,11008760:doWork2,[(310,214)(310,243)])
link(Data,10966574:Var1,[(272,133)])
}
Add(Button,14210567,140,40)
{
Left=300
Width=110
Height=25
Enabled=1
Caption="Выбрать Файл"
Data=Integer(0)
Point(doEnabled)
link(onClick,3142685:doEvent1,[(198,46)(198,109)])
}
Add(Memory,11213427,301,12)
{
link(onData,13737209:doClear,[(444,18)(444,88)])
}
Add(DataToFile,5847524,525,145)
{
@Hint=#20:пишем длину имени - |16:2 байта в память|
Type=1
link(Stream,10966574:Var3,[(531,133)])
}
Add(GetDataEx,10966574,504,128)
{
link(Data,13737209:Stream,[])
}
Add(DataToFile,14266114,504,208)
{
@Hint=#23:добавляаем имя в память|
link(Stream,16653175:Var2,[])
}
Add(Hub,3142685,224,103)
{
@Hint=#19: Передача файла|50:1 - Выбираем файл, запоминаем имя, очищаем память.|57:2 - Вычисляем длину имени файла и записываем её в память.|61:3 - Посимвольно - имя переводим в байты и добавляем в память.|36:4 - Добавляем в память данные файла.|20:5 - Отправляем файл.|
OutCount=5
link(onEvent1,6980772:doExecute,[(266,109)(266,74)(235,74)(235,18)])
link(onEvent2,4400394:doPart,[(275,116)(275,74)])
link(onEvent3,2292300:doFor,[(312,123)(312,214)])
link(onEvent4,15364018:doEvent1,[(317,130)(317,46)])
link(onEvent5,13948905:doEvent3,[(250,137)(250,285)(149,285)(149,433)])
}
Add(Length,14797417,336,145)
{
@Hint=#27:Вычисляем длину имени файла|
link(onLength,5847524:doPut,[])
link(Str,16295408:Var2,[])
}
Add(Convertor,13808985,427,208)
{
@Hint=#25:преобразуем символ в байт|
Mode=3
link(onResult,14266114:doPut,[])
}
Add(FilePart,4400394,294,68)
{
NameWOExt=1
link(onName,9743970:doValue,[])
link(FileName,7225730:Var1,[(300,56)])
}
Add(Memory,9743970,336,75)
{
@Hint=#9:Имя файла|
link(onData,14797417:doLength,[(376,81)(376,113)(327,113)(327,151)])
}
Add(For,2292300,329,208)
{
Start=1
link(onEvent,6969316:doCopy,[])
link(End,14797417:Result,[])
}
Add(Copy,6969316,378,208)
{
@Hint=#24:Копируем имя посимвольно|
Count=1
link(onCopy,13808985:doConvert,[])
link(Str,16295408:Var3,[(384,119)])
link(Position,10537864:Var3,[(391,198)(369,198)(369,252)])
}
Add(GetDataEx,16295408,336,114)
{
link(Data,9743970:Value,[])
}
Add(GetDataEx,3685952,595,65)
{
link(Data,1070812:Size,[(601,58)(510,58)])
}
Add(GetDataEx,7225730,301,51)
{
link(Data,11213427:Value,[])
}
Add(GetDataEx,10537864,329,247)
{
link(Data,2292300:Position,[])
}
Add(GetDataEx,16653175,504,184)
{
link(Data,10966574:Var2,[])
}
Add(Math,15124576,441,103)
{
Op2=1
ResultType=0
link(onResult,13737209:doPosition,[(481,109)(481,95)])
link(Op1,5102012:Var2,[(447,92)(416,92)])
}
Add(StreamCopy,12008265,581,82)
{
link(Dest,16653175:Var3,[(587,72)(568,72)(568,189)])
link(Source,1070812:Stream,[(594,63)(503,63)])
link(Count,3685952:Var2,[])
}
Add(Math,5400174,609,138)
{
link(onResult,13737209:doSize,[(648,144)(648,127)(491,127)(491,102)])
link(Op1,13737209:Size,[(615,120)(517,120)])
link(Op2,3685952:Var3,[(622,70)])
}
Add(LED,14276615,280,287)
{
Left=420
Top=5
Width=55
Height=45
link(onChange,13948905:doEvent2,[(324,293)(324,359)(149,359)(149,426)])
}
Add(Hub,2274696,84,336)
{
OutCount=4
link(onEvent1,14276615:doOn,[(238,342)(238,307)])
link(onEvent2,16033568:doText,[(208,349)(208,310)(184,310)(184,335)])
link(onEvent3,13948905:doEvent1,[(201,356)(201,310)(142,310)(142,419)])
}
Add(LedNumber,16033568,196,329)
{
Width=300
Height=30
Color=15793151
Point(doText)
}
Add(TrayIcon,2934142,364,322)
{
link(onClick,2934142:doShow,[(408,328)(408,316)(352,316)(352,328)])
}
Add(LedNumber,9669493,455,350)
{
Top=30
Width=300
Point(doText)
Point(Text)
link(Text,15282758:FormatTime,[])
}
Add(Time,15282758,455,294)
{
}
Add(Timer,876754,385,378)
{
link(onTimer,9669493:doText,[(436,384)(436,356)])
}
Add(Hub,13948905,161,413)
{
InCount=3
link(onEvent1,14210567:doEnabled,[(187,419)(187,233)(128,233)(128,46)])
link(onEvent2,11894485:doCompare,[])
}
Add(GetDataEx,5102012,410,168)
{
Angle=2
link(Data,10537864:Var2,[(416,262)(335,262)])
}
Add(Hub,10558777,273,49)
{
OutCount=3
link(onEvent1,11213427:doValue,[(294,55)(294,18)])
link(onEvent3,6343341:doEvent2,[(299,69)(299,115)(23,115)(23,160)])
}
Add(Hub,6343341,35,147)
{
InCount=3
OutCount=1
link(onEvent1,1201442:doEnabled,[(61,153)(61,219)(30,219)(30,251)])
}
Add(If_else,11894485,280,420)
{
Op2=String(0)
link(onTrue,6343341:doEvent1,[(324,426)(324,304)(324,304)(23,304)(23,153)])
link(Op1,14276615:Value,[])
}
Add(Button,1201442,70,245)
{
Left=300
Top=25
Width=110
Height=25
Enabled=1
Caption="Отправить"
Point(doEnabled)
Point(doCaption)
Point(onKeyDown)
link(onClick,3126187:doEvent1,[(114,251)(114,328)(37,328)(37,405)])
}
Add(ProgressBar,7180637,196,469)
{
Top=50
Width=480
Height=25
Point(doEnabled)
}
Add(Hub,3126187,49,399)
{
InCount=2
link(onEvent1,16769098:doSend,[(165,405)(165,214)])
link(onEvent2,14764820:doTimer,[(75,412)(75,450)(30,450)(30,475)])
}
Add(Timer,14764820,35,469)
{
Point(onStop)
link(onTimer,10316694:doNext,[])
link(onStop,10316694:doPrev,[])
}
Add(Counter,10316694,133,469)
{
link(onNext,7180637:doPosition,[])
}
Add(Hub,10925925,350,378)
{
link(onEvent1,876754:doTimer,[])
link(onEvent2,19948:doEvent1,[(376,391)(376,433)(331,433)(331,475)])
}
Add(Hub,757956,259,252)
{
OutCount=3
link(onEvent1,14276615:doOff,[(277,258)(277,300)])
link(onEvent2,19948:doEvent2,[(308,265)(308,482)])
}
Add(Hub,19948,343,469)
{
InCount=2
OutCount=1
link(onEvent1,14764820:doStop,[(390,475)(390,513)(23,513)(23,482)])
}
Add(HubEx,11008760,294,237)
{
Angle=2
link(onEvent,757956:doEvent1,[(247,243)(247,258)])
}



Поиск
Друзья
Администрация