------------ Дoбавленo:
Андрей., как ты и просил... )) отправка/прием файлов по tcp. Для отправки кому либо, нужно знать ip компа, и порт, на который установлен прием
#sha
Add(MainForm,2953706,28,35)
{
Width=299
Height=165
}
Add(TCP_Client,2822527,357,98)
{
Port=775
DataType=3
link(onConnect,12004933:doEvent1,[])
link(onDisconnect,12004933:doEvent2,[])
link(IP,8224646:Left,[])
link(Port,8224646:Right,[(377,90)(370,90)])
}
Add(Button,7135439,259,70)
{
Left=160
Top=50
Caption="On"
Data=Integer(12)
Point(doEnabled)
link(onClick,2822527:doOpen,[(324,76)(324,104)])
}
Add(ZLIB,27261,301,357)
{
link(onStream,15592199:doEvent1,[])
}
Add(FileStream,13052961,455,350)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,11549278:GetData,[])
}
Add(Hub,15592199,343,357)
{
link(onEvent1,7211807:doExecute,[])
link(onEvent2,13052961:doCopyFromStream,[])
}
Add(SDialog,7211807,392,357)
{
link(onExecute,11549278:doData,[(440,363)(440,265)])
}
Add(EventFromData,11549278,455,259)
{
}
Add(CheckBox,10445216,98,392)
{
Left=15
Top=5
Width=105
Caption="Прием файлов"
Point(doEnabled)
link(onCheck,14670103:doCompare,[])
}
Add(Button,6034646,259,105)
{
Left=160
Top=75
Caption="Off"
link(onClick,2822527:doClose,[])
}
Add(TCP_Server,61453,231,392)
{
Port=775
DataType=3
Point(onServerConnect)
Point(onServerDisconnect)
link(onRead,27261:doDeCompress,[(282,398)(282,370)])
link(Port,292561:Text,[])
link(onServerConnect,4285370:doEvent1,[])
link(onServerDisconnect,4285370:doEvent2,[])
}
Add(Hub,56102,196,189)
{
OutCount=3
link(onEvent1,66235:doOpen,[(244,195)(244,153)])
link(onEvent2,43492:doCompress,[])
link(onEvent3,66235:doClose,[(250,209)(250,160)])
}
Add(FileStream,66235,259,147)
{
}
Add(ZLIB,43492,259,196)
{
link(onStream,2822527:doSend,[(324,202)(324,118)])
link(Stream,66235:Stream,[])
}
Add(Button,8822426,98,189)
{
Left=160
Top=100
Caption="File"
link(onClick,2458859:doExecute,[])
}
Add(If_else,14670103,147,392)
{
Op2=Integer(1)
link(onTrue,61453:doOpen,[])
link(onFalse,61453:doClose,[])
link(Op1,10445216:Checked,[(153,380)(129,380)(129,436)(104,436)])
}
Add(ODialog,2458859,147,189)
{
link(onExecute,56102:doEvent1,[])
}
Add(Edit,8670752,357,7)
{
Left=160
Top=25
Width=120
Text="127.0.0.1:775"
link(onChange,8224646:doSplit,[(401,13)(401,34)(345,34)(345,55)])
}
Add(Switch,11759820,448,105)
{
DataOn=Integer(0)
DataOff=Integer(1)
link(onSwitch,7135439:doEnabled,[(492,111)(492,93)(247,93)(247,76)])
}
Add(Hub,12004933,406,105)
{
InCount=2
OutCount=1
link(onEvent1,11759820:doSwitch,[])
}
Add(Edit,292561,238,294)
{
Left=50
Top=30
Width=60
Text="775"
DataType=1
Point(doEnabled)
link(onChange,1642799:doCompare,[])
}
Add(Label,1775603,112,14)
{
Left=15
Top=35
Width=32
Height=17
Caption="Порт:"
}
Add(Switch,9611638,329,413)
{
DataOn=Integer(0)
DataOff=Integer(1)
link(onSwitch,292561:doEnabled,[(373,419)(373,339)(226,339)(226,314)])
}
Add(Hub,4285370,287,413)
{
InCount=2
OutCount=1
link(onEvent1,9611638:doSwitch,[])
}
Add(StrMask,1642799,294,294)
{
Mask="###"
link(onFalse,15504034:doOn,[(338,300)(338,307)])
link(onTrue,15504034:doReset,[(338,307)(338,300)])
}
Add(Switch,15504034,350,287)
{
DataOn=Integer(0)
DataOff=Integer(1)
Point(doOn)
link(onSwitch,10445216:doEnabled,[(394,293)(394,349)(86,349)(86,405)])
}
Add(StrPart,8224646,357,49)
{
Char=":"
Point(Left)
Point(Right)
link(Str,8670752:Text,[])
}
Add(Label,5906906,109,77)
{
Left=160
Top=5
Width=98
Height=17
Caption="ip:порт получателя"
}
Add(ChildPanel,3602465,21,98)
{
}
BEGIN_SDK
Add(EditMulti,15394550,21,21)
{
}
Add(Panel,13012933,35,105)
{
Left=135
Top=5
Width=5
Height=125
}
END_SDK
p.s. такой способ позаимствован из одной программы, с помощью которой можно по tcp использовать голосовое общение