Вверх ↑
Ответов: 36
Рейтинг: 0
#1: 2007-03-15 08:42:48 ЛС | профиль | цитата
Спасибо за совет, nesco, но дело тут не в самом алгоритме упаковки-передачи картинки. Как вы правильно заметили, он действительно прост. Похоже дело в том, что не работает как надо одна из компонент: MemoryStrem, BitmapStream или ZLIB.

[size=-2]------ Добавлено в 08:42
Galkov писал(а):
Сборка автомата производится в порядке обратном разборке


Согласен насчет автомата. Если ZLIB при распаковке выдает данные в точку Stream, а Bitmap при считывании их оттуда забирает, получается следующая схемка. Результат, правда, тот же.
Не пугайтесь, Galkov, она маленькая

Add(MainForm,68161,21,98)
{
Left=21
Top=106
Width=395
Height=299
}
Add(ZLIB,43492,238,245)
{
link(onStream,27261:doDeCompress,[])
link(Stream,4325848:Var3,[(244,219)])
}
Add(Hub,56102,91,238)
{
OutCount=3
link(onEvent1,8560105:doWrite,[])
link(onEvent2,43492:doCompress,[])
link(onEvent3,93822:doClear,[(156,258)(156,181)])
}
Add(BitmapStream,30541,364,238)
{
link(onRead,10971577:doLoad,[])
link(Stream,1996246:Var2,[(370,231)(342,231)])
}
Add(ZLIB,27261,301,238)
{
link(onStream,30541:doRead,[])
link(Stream,1996246:Var1,[(307,219)])
}
Add(MemoryStream,93822,189,168)
{
}
Add(ClipboardHook,85182,28,231)
{
link(onBitmap,56102:doEvent1,[])
}
Add(Image,10971577,427,238)
{
Left=1
Top=1
Width=1024
Height=768
}
Add(GetDataEx,4325848,182,210)
{
link(Data,93822:Stream,[])
}
Add(BitmapStream,8560105,189,231)
{
link(Stream,4325848:Var2,[])
}
Add(GetDataEx,1996246,329,210)
{
link(Data,11282045:Stream,[(342,204)(342,204)])
}
Add(MemoryStream,11282045,336,161)
{
}
карма: 0

0