Вверх ↑
Этот топик читают: Гость
Ответов: 9906
Рейтинг: 351
#16: 2007-03-15 11:43:46 ЛС | профиль | цитата
nesco, ты что под Астрамак-а косишь
Причину называй.
Это не может не работать.
Если у тебя HiAsm, конечно

Уважаемый Valery,
Убедительная просьба не выпендриваться
И разрешить мне таки самому принять решение какой, и задать таки этот вопрос.
А не только отвечать на то, что Вы предписали.

И позвольте заметить Вам, что если у Вас не работает код, то это не от того, что у меня (предположим, хотя это не так) не та версия HiAsm, а от того, что в Ваши коды попал глюк.

Который стрельнет еще раз обязательно.
И я не очень уверен, что nesco, к примеру, сможет Вам помочь.
Но - Вам выбирать, конечно.
карма: 9

0
Ответов: 36
Рейтинг: 0
#17: 2007-03-15 12:05:41 ЛС | профиль | цитата
За выпендреж извиняюсь перед Galkovым.
А глюка никакого в моей схеме нет. Она такая же как ваш код 1072. За исключением неправильного соединеия к точке компонента BitmapStream, что получилось случайно при восстановлении связей в схеме перед копированием.
карма: 0

0
Разработчик
Ответов: 26303
Рейтинг: 2146
#18: 2007-03-15 12:14:03 ЛС | профиль | цитата
Galkov писал(а):
Это не может не работать

Я ответил про то, что у меня не работает, как факт (и не только у меня, как видно). Ну не грузилась у меня картинка из потока, пока не сделал загрузку сверху. Что еще надо написать, какой у меня HiAsm -- b161 с последне прокачкой SVN и самого HiAsm'a. Я расставил дебаги и сканировал потоки в твоем пример, у меня картинка доходила только до BitmapStream'a, дальше -- нет. Применяемые компоненты оригинальные, и не переделанные. И я не заставлял никого применять мой код, я просто отразил одно из решений проблемы (а что -- разве это решение не является допустимым, и мы не можем его применять?). Я не лез в коды и не смотрел проблему глубоко.
PS: Предположим у меня тоже есть глюк, где он может находится, давай сравним версию Share и Debug. И еще -- KOL у меня не прокаченный.
карма: 22

0
Ответов: 9906
Рейтинг: 351
#19: 2007-03-15 14:18:11 ЛС | профиль | цитата
nesco писал(а):
давай сравним версию Share и Debug

Чего ее сравнивать.
Если именно свои я и выкладывал на SVN
А вот соответствует ли у тебя скачанная с SVN, рабочей - это вопрос.
Ибо чудес то ведь не бывает.
В смысле не бывает так, что моя соответствует, твоя соответствует, а между собой - нет. Кто-то обязательно врет.
Попристрастней посмотри, пожалуйста

Теоретически, глюк по фундаментальности напоминает вот этот
http://hiasm.com/xf/topic.php?p=46463#P46463
Было у меня помрачение разума.
НО, это касалось ReadData, и вроде ну никак не мог я зацепить ReadStream или ReadBitmap - по другому они устроены, чем ReadData - там своя локальная переменная есть....
Хотя дома логи и дифы посмотрю, конечно



Valery, выпендриваться, это пытаться получить информацию, не сообщая ничего.
У меня уже даже "заготовки" (типа - экстрасенсы в отпуске) для такого покончались.
Прочитайте свои посты.
Из них непонятно: ни какая версия HiAsm у Вас стоит, ни работает ли у Вас сейчас код 1072, ни почему у Вас такая уверенность в отсутствии глюков в Вашем HiAsm
Вместо этого получаю чрезвычайно глупый вопрос: работает ли у меня мой код

Вот такой стиль занимает значительно большее время, как у Вас, так и у коллег, которые таки пытаются Вам помочь.
Рискну даже высказать предположение, что это определенная характеристика Вашего отношения к коллегам.
А извинения нужны в значительно меньшей степени, чем изменение такого стиля общения, ИМХО
карма: 9

0
Ответов: 3514
Рейтинг: 184
#20: 2007-03-15 14:55:11 ЛС | профиль | цитата
Астермак

Как только не исказят.. :?
карма: 0
0
Ответов: 36
Рейтинг: 0
#21: 2007-03-15 15:28:12 ЛС | профиль | цитата
Galkov, извиняться больше не буду, т.к. пока не за что.

О версии HiAsm было написано в первом же моем сообщении.

По поводу отношения к коллегам и манеры общения промолчу, чтобы вас не обидеть.
карма: 0

0
Ответов: 9906
Рейтинг: 351
#22: 2007-03-15 15:59:47 ЛС | профиль | цитата
Астрамак писал(а):
Как только не исказят

Блин, а ведь точно...
И возможно не первый раз... Щаз искать будем и править...

[size=-2]------ Добавлено в 15:59
Valery, про "промолчу" все понятно

Соответствует ли Ваша ситуация, той, что у коллеги nesco - великая тайна.
То, что еще не исключена ситуация, что есть таки бага в сегодняшний кодах, непонятно как НЕ проявляющаяся ни у меня, ни у Леонид-а, совершенно не интересно.
Как и помочь ее найти, хотя бы информацией о происходящем - тоже к Вам отношения не имеет.
Ну и хорошо.

BTW: Обидеть меня невозможно. Как и Dilma
Просто так в инете заведено, что народ, занимающийся, скажем так, не маленькими проектами, обладает иммунитетом против "нервных пользователей".
Иначе - давно застрелились бы.
И которые обязательно встречаются.
карма: 9

0
Администрация
Ответов: 15295
Рейтинг: 1519
#23: 2007-03-15 16:00:41 ЛС | профиль | цитата
Valery, nesco, замените в компоненте hiBitmapStream метод _work_doWrite на такое:

procedure THIBitmapStream._work_doWrite;
var
st:PStream;
bmp:pbitmap;
begin
st := ReadStream(_Data,_data_Stream);
bmp := ReadBitmap(_Data,_data_Bitmap);
_debug('Bitmap: ' + int2str(bmp.Width));
if(st <> nil)and(bmp <> nil)then
begin
_debug('Bitmap: ' + int2str(bmp.Width) + ' Strem: ' + int2str(st.Size));
bmp.SaveToStream(st);
_debug('Bitmap: ' + int2str(bmp.Width) + ' Strem: ' + int2str(st.Size));
end;
end;

и запустив оба варианта кода нажмите Alt+PrtScr. Должно показать следующее:

Bitmap: 400
Bitmap: 400 Stream: 0
Bitmap: 400 Strem: 480128


карма: 27
0
Разработчик
Ответов: 26303
Рейтинг: 2146
#24: 2007-03-15 16:59:54 ЛС | профиль | цитата
Dilma, я шестью постами выше написал, что я делал. Что еще надо написать, конкретно? Попробую повторить:
1. Скопировал схему code_1072.txt
2. Запустил схему -- не работает. Не отображается картинка на выходе
3. Расставил дебаги по потокам вот по этой схеме code_1074.txt
4. Запустил еще раз
5. Посмотрел данные дебагов. На входе ImageStream'a появляется картинка при копировании в буфер из редактора -- bmpSize: 80x80; На выходе передатчика ZLIB -- stStream=12, stPosition=0, на выходе приемника ZLIB -- stStream=0, stPosition=0
6. Превращаю схему code_1072.txt с дебагами в схему code_1073.txt с дебагами
7. Запустил схему code_1073.txt с дебагами
8. Посмотрел данные дебагов. На входе ImageStream'a появляется картинка при копировании в буфер из редактора -- bmpSize: 80x80; На выходе передатчика ZLIB -- stStream=15004, stPosition=0, на выходе приемника ZLIB -- stStream=19254, stPosition=0
9. Картинка появилась в окне.

[size=-2]------ Добавлено в 16:46
Вот, опоздал с постом, а жаль

[size=-2]------ Добавлено в 16:59
Dilma, у меня на code_1072.txt RunTime, на code_1073.txt -- как ты написал.
карма: 22

0
файлы: 1code_1074.txt [1KB] [636]
Ответов: 36
Рейтинг: 0
#25: 2007-03-15 19:35:08 ЛС | профиль | цитата
Dilma, заменив метод в компоненте hiBitmapStream предложенным кодом, запустил оба варианта.

Схема из code_1072.txt выдала Runtime error 216 at 00012479

Схема из code_1073.txt в трех сообщениях выдала: Bitmap: 400
Bitmap: 400 Stream: 0
Bitmap: 400 Strem: 480128
карма: 0

0
Разработчик
Ответов: 26303
Рейтинг: 2146
#26: 2007-03-15 19:44:53 ЛС | профиль | цитата
Valery, похоже, у нас с тобой одно и то же.
карма: 22

0
Ответов: 9906
Рейтинг: 351
#27: 2007-03-15 20:26:44 ЛС | профиль | цитата
nesco,
опубликуй строку 828 из своего share
пожалуйста.
карма: 9

0
Разработчик
Ответов: 26303
Рейтинг: 2146
#28: 2007-03-15 20:52:47 ЛС | профиль | цитата
Galkov,
вот решил кинуть больше, вдруг у тебя еще новее версия
   if Assigned(PointData.Event) then
     begin
dtNull(Data); // у меня вот эта 828-я
OnData(PointData,dt);
if dt.data_type <> data_break then //!!! data_break-feature
begin
if dt.data_type = data_stream then
Result := PStream(dt.idata)
else Result := nil;
exit;
end;
end;
карма: 22

0
Ответов: 9906
Рейтинг: 351
#29: 2007-03-15 21:12:00 ЛС | профиль | цитата
Это не соответствует SVN
с 19 февраля.
Несмотря на твои заверения

Надо
       dtNull(dt);
карма: 9

0
Разработчик
Ответов: 26303
Рейтинг: 2146
#30: 2007-03-15 21:33:06 ЛС | профиль | цитата
Galkov, да, действительно, у меня Share только этим пунктом и отличается. Я вытянул новые версии с SVN, но поставить забыл. Может и хорошо, что осталась старая версия, теперь будем знать, что говорить, если еще такое случится (не все ведь тянут апгрэйд с SVN). Ты уж сильно не суди
карма: 22

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)