Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Firebird, InterBase [игнор отключен] [закрыт для гостей] / Firebird 1.5 -> 2.5 Delphi + FIBPlus Тормоза с чтением BLOB / 8 сообщений из 8, страница 1 из 1
31.01.2021, 17:22
    #40040270
bolide
bolide
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Firebird 1.5 -> 2.5 Delphi + FIBPlus Тормоза с чтением BLOB
привет!

Решил попробовать перейти в старом проекте с firebird 1.5 на 2.5. Перешёл, вроде всё хорошо, кроме одной странности, которая меня напрягает прям очень.

Почему-то сильно тормозит чтение BLOB-ов, когда запускаю проект в IDE Delphi XE3 (что debug, что release - без разницы). FB1.5 при этом такого эффекта не даёт.

Если запускать exe не из IDE, то всё хорошо, тормозов нет.

BLOB читается так
Код: pascal
1.
2.
TS:=TBLGallery.CreateBlobStream(TBLGallery.FieldByName('hash'), bmRead);
TS.ReadBuffer(gal1[i-1].Hash, TS.Size);



Заметил, что тормозов при запуске в IDE нет, если селект делать через кастинг в varchar:
Код: sql
1.
SELECT ID, FILENAME, cast(HASH as VARCHAR(768)) as hash FROM GALLERY


но у меня в блобе не текст, поэтому корректно вытащить из такого датасета данные не выходит. Пробовал достать так:
Код: pascal
1.
CopyMemory(Addr(gal1[i-1].Hash), TBytes(AnsiString(TBLGallery.FieldValues['hash'])), 768);



Непонимание, откуда берутся тормоза, напрягает. Может кто сталкивался и подскажет, что я упустил? И вообще любой совет :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2021, 17:39
    #40040274
Гаджимурадов Рустам
Гаджимурадов Рустам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Firebird 1.5 -> 2.5 Delphi + FIBPlus Тормоза с чтением BLOB
В блобах картинки?

На простом TBlobStream.Create + LoadFromStream тормоза воспроизводятся?
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2021, 17:54
    #40040275
ggreggory
ggreggory
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Firebird 1.5 -> 2.5 Delphi + FIBPlus Тормоза с чтением BLOB
Кто-то может event-ы выводить. Проверьте точки останова, OutputDebugString и т.п.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2021, 18:10
    #40040280
bolide
bolide
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Firebird 1.5 -> 2.5 Delphi + FIBPlus Тормоза с чтением BLOB
Гаджимурадов Рустам
В блобах картинки?


да, но в виде rgb массива просто

Гаджимурадов Рустам

На простом TBlobStream.Create + LoadFromStream тормоза воспроизводятся?


простого TBlobStream в fibplus не нахожу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2021, 20:07
    #40040305
Гаджимурадов Рустам
Гаджимурадов Рустам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Firebird 1.5 -> 2.5 Delphi + FIBPlus Тормоза с чтением BLOB
*facepalm*

TBlobStream - это стандартный дельфовый класс.
В справке есть даже пример использования.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2021, 20:09
    #40040307
Dimitry Sibiryakov
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Firebird 1.5 -> 2.5 Delphi + FIBPlus Тормоза с чтением BLOB
Пример использования класса из набора BDE с Fib+? "Эт вряд ли..."
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2021, 20:25
    #40040314
Гаджимурадов Рустам
Гаджимурадов Рустам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Firebird 1.5 -> 2.5 Delphi + FIBPlus Тормоза с чтением BLOB
Он не из BDE и на входе принимает обычный BlobField.
Впрочем, его CreateBlobStream делает то же самое, дело
в дальнейших вызовах, видимо, дело не в бобине.

Надо пошагово проходить и проверять, где тормозит.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2021, 23:02
    #40040344
hvlad
hvlad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Firebird 1.5 -> 2.5 Delphi + FIBPlus Тормоза с чтением BLOB
bolide
И вообще любой совет :)
Проверь используемого клиента в обоих случаях
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Firebird, InterBase [игнор отключен] [закрыт для гостей] / Firebird 1.5 -> 2.5 Delphi + FIBPlus Тормоза с чтением BLOB / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 405ms
Закрыть
start [/forum/topic.php?fid=40&mobile=1&tid=1560144]:
 0ms
get settings:
 14ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 59ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 247ms
total:  405ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]