Вывод графики...

[Шурик]

Я особа с графикой на ВБ не дружил Для многих не секрет как это делалось раньше в DOS.
Допустим как на ASM:

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

mov ax,1
mov dx,100
....
....
....
int &H13


или как на Turbobasic'е:

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

reg 1,1
reg 3,100
....
....
....
Call Interrupt &H13


Короче говоря я хочу вывести графику без GDI, DirectX и т.п.
Вот по этому и спрашиваю, можно ли выводить графику через прямое записывание байтов в видеопамять, соответсвенно без вызова прерывания на изменение видеорежима??? И вообще если это возможно, то рационально вобще использовать этот метод??? И поможет использование ASM в VB???
Токо не смейтесь над моим вопросом, просто не сталкивался особо с графикой в VB. Если будите смеяца, я тогда тоже сосмеху умру
Оптимист понимаешь

[CyberYen]

Короче говоря я хочу вывести графику без GDI, DirectX и т.п.

А смысл? Если не ошибаюсь, GDI, DirectX и т.п опт. и упрощает работу с графикой....

[Lord_Satan]

SAFEARRAY не канает?
вроде как тоже байтики пишеш в память

[Шурик]

Короче говоря я хочу вывести графику без GDI, DirectX и т.п.

А смысл? Если не ошибаюсь, GDI, DirectX и т.п опт. и упрощает работу с графикой....

Это понятно, я просто думаю что так быстрее...хотя и не уверен

SAFEARRAY не канает?
вроде как тоже байтики пишеш в память

Ну и как это должно выглядеть???

[Lord_Satan]

Ну примеров полно
есть даже modArraySubst, вроде правильно написАл, он по инету гуляет

а выглядит так:

Грузиш пиктуру в image
получаеш указатель на начало данных в свой массив...........

блин в этом же форуме есть примеры,
или вы шутить изволите?

лучше ответь на мою тему
http://bbs.vbstreets.ru/viewtopic.php?t=8276

[Шурик]

Да нафига мне массивы... мне нужно так:

[Ennor]

NT просто прибьет твой процесс за нарушение границ по памяти, вот и все. Или сам свалишься рано или поздно, что еще более вероятно.
И еще: а на чьем именно окне ты собираешься рисовать эти загогулины? Окно зарефрешат, и нет твоей зарисовки...

[Шурик]

NT просто прибьет твой процесс за нарушение границ по памяти, вот и все. Или сам свалишься рано или поздно, что еще более вероятно.
И еще: а на чьем именно окне ты собираешься рисовать эти загогулины? Окно зарефрешат, и нет твоей зарисовки...

Вооооооо....... Спасибо дружище что разъяснил... (я тоже об этом думал, но не знал, что оно так и есть) Вобщем как я понял это не реально.... Зато идея была хорошая Тогда еще вопросик. А какие участки памяти нельзя использовать????

[Ennor]

При работе в среде NT у тебя вся память - виртуальная. Ну, 4 гига, типа И друг от друга процессы ой как хорошо изолированы. Средства общения есть, ясен пень, но по умолчанию все закрыто по полной.
Признаться, не знаю, как именно винда с железной видеопамятью работает, но то, что рисовать по-хорошему тебе позволено только в своих окнах - это точно. Отсюда думай сам - сделать прозрачное окно на весь экран, и на его hWnd... Как говорится, "дайте мне адрес видеобуфера, и я переверну экран", (С) не помню.

[Шурик]

Блин проклятая винда, фиг куда залезешь
Да, с прозрачностью - тоже альтернатива. Спасибо за подсказку.

[ALX_2002]

2 Шурик: Тёзка, как говорится - что хотели, то и получайте.

Как на рисунке показано так у тебя и будет.

Копируй код в форму и запускай

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

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Type POINTAPI
        x As Long
        y As Long
End Type
Dim WDC As Long
Dim PT As POINTAPI
Dim PEN As Long
Private Sub Form_Activate()
WDC = GetDesktopWindow
WDC = GetWindowDC(WDC)
PEN = CreatePen(0, 1, vbRed)
SelectObject WDC, PEN
Do
GetCursorPos PT
LineTo WDC, PT.x, PT.y
MoveToEx WDC, PT.x, PT.y, PT
Sleep 2
DoEvents
Loop
End Sub
Private Sub Form_Unload(Cancel As Integer)
DeleteObject PEN
End
End Sub


P.S Я помню, что ты просил без GDI, но зато точ в точ как на рисунке

[Шурик]

Спасибо огромное!!!
Попробую...