BitBlt для новичка

[Winitar]

Я совсем недавно занимаюсь программированием и много слышал о BitBlt, но так и не научился этим пользоваться! Я пробавал изучать пример с использованием этой функции, но так и не врубился... Короче хочу попросить рассказать о ней с самого начала и поподробней

[dr.MIG]

Посмотри мой справочник по API из 'народной литературы'. Там по-русски, более-менее понятно.

[AxelF]

Сходи сюда: www.vbstreets.ru/VB/Articles/65569.aspx
Довольно доходчиво написано.

[AD'onis]

В этой статье www.vbstreets.ru/VB/Articles/65569.aspx опечатка, судя по всему. Прошу помощи у более продвинутых людей, VB ругается на функцию, создающую DC:

Function CreateMemHdc(ScreenHdc As Long, Width As Integer, Height As Integer) As Long

ReDim Preserve MemHdc(NumOfDcs)
ReDim Preserve BitMapHdc(NumOfDcs)
ReDim Preserve TrashbmpHdc(NumOfDcs)

MemHdc(NumOfDcs) = CreateCompatibleDC(ScreenHdc)
If MemHdc(NumOfDcs) Then
BitMapHdc(NumOfDcs) = CreateCompatibleBitmap(ScreenHdc, Width, Height)
If BitMapHdc(NumOfDcs) Then
TrashbmpHdc(NumOfDcs) = SelectObject(MemHdc(NumOfDcs), BitMapHdc(NumOfDcs))
CreateMemHdc (NumOfDcs)
End If
End If
NumOfDcs = NumOfDcs + 1
End Function

а конкретно на строку CreateMemHdc (NumOfDcs), пишет Argument not optional. Его я тоже его понимаю - кол-во аргументов не совпадает, но ЧТО ДЕЛАТЬ:?:

[tyomitch]

Я полагаю, эту строчку нужно заменить на CreateMemHdc = MemHdc(NumOfDcs)

[AD'onis]

Пробовал уже. Тоже не катит: пишет Expceted Procedure, not variable

[AD'onis]

Айм сорри, все норм, просто неправильно воспринял твою мессагу, спасибо tyomitch

[AD'onis]

Еще вопрос, если можно, по этому примеру, считываю еще одну картинку, просто добавив код, который считывает имена картинок по строкам из текстового файла. Т.е. прогружается фон, затем одна картинка с маской, после этого еще раз запускается весь код, но исчезает первая картинка. Логически я понимаю, что заново происходит загрузка фона. Но я не могу сохранить DC. Просто не понимаю, почему var1.hdc=var2.hdc не работает. Вопрос, как сохранить контекст устройства?

[tyomitch]

вообще-то есть такая функция, SaveDC

[AD'onis]

Да, спасибо, уже разобрался, только немного по-другому. Не знаю, что обозначает, но если присваивать DC равное 0, то при использовании переменной будет взят последний использованный DC.

[AD'onis]

Ну вот, я снова вернулся в эту тему.
Да, и снова у меня возникла бестолковая проблема. В общих чертах:
Считываются картинки из соотв. файлов (т.е. в моем случае - *.bmp), затем они в некоторой описанной последовательности накладываются друг на друга. Т.е.:
Загрузка n-штук картинок
Выкладывание их в PictureBox
Ожидание действия пользователя
Снова загрузка уже других картинок и/или части предыдущих
Выкладывание их в PictureBox
и т.д.
В конце концов все просто перестает работать. Пытаюсь отследить где все теряется уже 2-е сутки. Тишина. Просто вижу, что DC картинки становится равным нулю, хотя я его нигде на ноль не сбрасываю. Что это может быть? В VB (или системе) есть какое-то ограничение? Я забиваю память? Или что-то другое?
З.Ы. Картинки загружаются в массив. Т.е. есть один hDC, в него загружается картинка, а в другом уже есть какие-то картинки, в него она и кладется. Следующая опять загружается в этот hDC, а потом выкладывается в общий.
Прошу совета у гуру

[tyomitch]

Да, есть ограничение на количество DC в процессе.
Если запускаешься из-под IDE, то после достижения предела IDE тоже развалится. Разваливается?

[AD'onis]

Здравствуй, tyomitch, спасибо за ответ
честно говоря, не понимаю, что такое IDE. Если можно, то поподробней (или ссылку), что это такое, как мне проверить, валится IDE или нет?

ADDED:
Да, и как можно обойти этот момент, чтобы у меня все не падало?

[tyomitch]

IDE -- это среда, в которой ты пишешь свою прогу.
Если она разваливается, это видно очень хорошо, невооружённым глазом.
Видимо, не разваливается, раз ты спрашиваешь.
В этом случае то ограничение не при чём, а просто в программе какой-то косяк.

[AD'onis]

Ясно, спасибо, но косяк найти не могу. А как можно узнать ограничение по кол-ву DC? Уже заинтересовало просто. Насколько много их может быть?

[tyomitch]

Мне удалось создать 9700.

В демонстрационных целях: запусти этот код и посмотри, что станет с IDE.

Код: Выделить всё

Option Explicit

Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long

Sub Main()
Dim Count As Long
While CreateCompatibleDC(0)
    Count = Count + 1
Wend
Debug.Print Count
End Sub


[AD'onis]

Ясненько, такого эффекта я уже добивался в самом начале . У меня 9690 DC было создано, затем все повисло. Только в моей проге такого нет. Там просто DC сбрасывается на ноль, а где - отследить не могу - код слишком здоровый получился. Не знаю, может будет проще переписать все с нуля...

[Sneaks]

не хочется создавать новые темы по пустякам, займусь некромантией.
Вот прочел статью, все сделал, все работает, спс огромное. Решил потестить на скорость, при 250-300 спрайтов уже чувствуется что притормаживает. Отсюда вопрос, на сколько этот метод эффективный и есть ли другие, более быстрые способы вывода графики с маской на вб6.
ЗЫ интерисует именно 2д. Про вариант отрисовки 2д через д3д знаком.

[Хакер]

не хочется создавать новые темы по пустякам, займусь некромантией.

Некрофилией, а не некромантией.

Решил потестить на скорость, при 250-300 спрайтов уже чувствуется что притормаживает

Уверен, что тормозит именно BitBlt, а не твой код вокруг неё?

[Sneaks]

кода как такового нет, код взят со статьи и добавлен фор некст с создвигом. не то что прям тармозит, фпс не мерил, но видно как подтормаживает. В принципе для поставленной задачи хватит и так, интересуюсь только чисто теоретически, можно ли как либо быстрей рисовать по маске. Просто если есть более быстрый способ есть смысл сразу делать.