------------ Дoбавленo:
Хотя и с jpg работает
Add(MainForm,68161,28,98)
{
Left=21
Top=106
Width=395
Height=286
link(onCreate,46308:doEvent1,[])
}
Add(ZLIB,43492,448,203)
{
link(onStream,52372:doSend,[])
link(Stream,2160953:Var3,[(454,170)])
}
Add(TCP_Client,52372,525,189)
{
Port=120
IP="127.0.0.1"
DataType=3
}
Add(BitmapStream,30541,511,49)
{
link(onRead,19361:doLoad,[])
}
Add(GetDataEx,2160953,378,161)
{
link(Data,93822:Stream,[])
}
Add(MemoryStream,93822,385,105)
{
}
Add(TCP_Server,37674,385,56)
{
Port=120
DataType=3
link(onRead,27261:doDeCompress,[])
link(onConnect,75291:doMessage,[(436,69)(436,111)])
}
Add(Image,19361,560,49)
{
Width=387
Height=246
Align=5
ViewStyle=0
}
Add(Hub,46308,273,133)
{
link(onEvent1,37674:doOpen,[(330,139)(330,62)])
link(onEvent2,52372:doOpen,[(472,146)(472,195)])
}
Add(BitmapStream,23496,385,189)
{
link(Stream,2160953:Var2,[])
}
Add(ZLIB,27261,455,49)
{
link(onStream,30541:doRead,[])
}
Add(Hub,56102,273,196)
{
OutCount=3
link(onEvent1,23496:doWrite,[])
link(onEvent2,43492:doCompress,[])
link(onEvent3,93822:doClear,[(345,216)(345,118)])
}
Add(Message,75291,455,105)
{
}
Add(ODialog,9757201,126,196)
{
link(onExecute,2009577:doLoad,[])
}
Add(PictureStream,2009577,210,196)
{
link(onLoad,56102:doEvent1,[])
}
Add(Button,12801778,49,196)
{
Left=185
Top=285
Align=4
Caption="Загрузить картинку..."
link(onClick,9757201:doExecute,[])
}