Вверх ↑
Ответов: 817
Рейтинг: 52
#1: 2017-05-23 20:59:50 ЛС | профиль | цитата
Добрый день!
Вот эта схемка должна работать (по логике), но не работает.
Схема

Add(MainForm,2953706,42,63)
{
Width=555
}
Add(Button,12708387,231,238)
{
Left=10
Top=10
Width=195
Caption="Запустит сервер"
link(onClick,2093243:doStartServer,[])
}
Add(Button,1581217,231,385)
{
Left=10
Top=40
Width=195
Caption="Подключиться к серверу"
link(onClick,13705605:doConnect,[(313,391)(313,377)])
}
Add(TCPServer,2093243,315,231)
{
Port=11111
link(onReceive,6461222:doEvent,[(360,237)(360,181)])
link(onClientConnect,6889360:doValue,[])
link(ClientID,6889360:Value,[(328,219)(418,219)(418,282)(377,282)])
}
Add(TCPClient,13705605,364,357)
{
IP="127.0.0.1"
Port=11111
link(onReceive,15155205:doConvert,[])
}
Add(Button,7497912,231,343)
{
Left=10
Top=70
Width=195
Caption="Получить картинку"
Data=String(1)
link(onClick,13705605:doSend,[(313,349)(313,363)])
}
Add(Memory,6889360,371,238)
{
}
Add(ScreenShort,11628527,434,168)
{
link(onCapture,15239341:doEvent1,[])
}
Add(Hub,8122056,399,175)
{
link(onEvent1,11628527:doCapture,[(423,181)(423,174)])
link(onEvent2,1976137:doCompress,[(424,188)(424,209)])
}
Add(MemoryStream,3864290,518,105)
{
}
Add(BitmapStream,10143796,518,168)
{
link(Stream,2573881:Var2,[])
}
Add(Hub,15239341,483,168)
{
link(onEvent1,3864290:doClear,[(507,174)(507,118)])
link(onEvent2,10143796:doWrite,[])
}
Add(GetDataEx,2573881,518,147)
{
link(Data,3864290:Stream,[])
}
Add(ZLIB,1976137,560,203)
{
link(onStream,4358992:doConvert,[])
link(Stream,2573881:Var3,[(566,152)])
}
Add(BitmapStream,10775830,560,357)
{
link(onRead,4002693:doLoad,[])
}
Add(Image,4002693,616,357)
{
Left=280
Top=25
Width=185
Height=185
}
Add(ZLIB,13934601,504,357)
{
link(onStream,10775830:doRead,[])
}
Add(StreamConvertor,15155205,434,357)
{
Mode=7
link(onResult,13934601:doCompress,[])
}
Add(StreamConvertor,4358992,609,203)
{
Mode=6
link(onResult,2093243:doSend,[(651,209)(651,94)(303,94)(303,237)])
}
Add(Debug,6461222,371,175)
{
link(onEvent,8122056:doEvent1,[])
}

Выдает страшную ошибку, ткните меня носом, где я не правильно что то сделал, уж задолбался.
err.png
карма: 1

0
Редактировалось 1 раз(а), последний 2017-05-23 21:00:40