VPF::Объём видеопамяти - Форум программистов

Illusion Dolphin

Дата 5.2.2004, 13:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Подскажите, как на Delphi узнать объём видеопамяти. В FAQ нет. В yandex & google тоже не нашёл...

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Unregistered

Дата 12.2.2004, 14:01 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Здесь почитай

Illusion Dolphin

Дата 12.2.2004, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Читал, и не раз Эта статья везде фигурирует в интернете, но ответа там НЕТ. Там выдаётся разрешение, глубина цвета, я также узнавал имя видеокарточки, но её объём в документе по ссылке узнать НЕЛЬЗЯ. Или я плохо смотрел??

--------------------

p0s0l

Дата 13.2.2004, 10:45 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Можно попробовать через DirectDraw, но там возвращается объём не всей видеопамяти: не учитывается размер Primary Surface и еще Private-данных. Если размер Primary Surface еще можно вычислить, то вот размер этих приват-данных не знаю как узнать (у меня они занимают 1 мб), поэтому можно округлить объем видеопамяти (гранулярность - 8 мб).

Код

uses DirectDraw;

procedure TForm1.Button1Click(Sender: TObject);
var
  lpDD : IDirectDraw;
  dc : DDCAPS_DX5;
  vidsize : integer;
  dspl : HDC;
begin
  DirectDrawCreate(nil, lpDD, nil);
  if lpDD = nil then exit;
  dc.dwSize := SizeOf(dc);
  lpDD.GetCaps(@dc, nil);
  vidsize := dc.dwVidMemTotal;
  dspl := CreateDC('DISPLAY', nil, nil, nil);
  Inc (vidsize, GetDeviceCaps(dspl,BITSPIXEL)*Screen.Width*Screen.Height div 8);
  DeleteDC (dspl);

  vidsize := (vidsize div (1024*1024) + 7) and (not 7);
  Caption := IntToStr(vidsize);
end;

--------------------

С уважением, г-н Посол.

Illusion Dolphin

Дата 14.2.2004, 01:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

[Fatal Error] Unit1.pas(6): File not found: 'DirectDraw.dcu'

Где это взять?

--------------------

p0s0l

Дата 14.2.2004, 09:50 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Лучше скачай весь DirectX, в жизни пригодится:
DirectX9 Headers for Delphi
Правда весит 600 кб...

Ну а для компиляции этого кода, хватит и одного DirectDraw.pas (40 кб):

Присоединённый файл ( Кол-во скачиваний: 24 )

DirectDraw.zip

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »