Søger Hurtig Grafik i Delphi

her er noget kode der med directX finder oplysninger om dit grafikkort:

procedure TForm1.FormCreate(Sender: TObject);
var
  TempDirectDraw: IDirectDraw;
  HALCaps, HELCaps: TDDCaps;
begin
  DirectDrawCreate(nil, TempDirectDraw, nil);

  try
    TempDirectDraw.QueryInterface(IID_IDirectDraw4, FDirectDraw);
  finally
    TempDirectDraw := nil;
  end;

  FillChar(HALCaps, SizeOf(TDDCaps), 0);
  FillChar(HELCaps, SizeOf(TDDCaps), 0);
  HALCaps.dwSize := SizeOf(TDDCaps);
  HELCaps.dwSize := SizeOf(TDDCaps);

  FDirectDraw.GetCaps(HALCaps, HELCaps);

  SysInfo.Items.Add(\'Total Video Memory: \'+IntToStr(HALCaps.dwVidMemTotal div 1000)+\' KB\');
  SysInfo.Items.Add(\'\');

  SysInfo.Items.Add(\'Hardware Capabilities\');
  SysInfo.Items.Add(\'-------------------------------------\');

  if (HALCaps.dwCaps and DDCAPS_BLT) = DDCAPS_BLT then
    SysInfo.Items.Add(\'Hardware accelerated blits\');

  if (HALCaps.dwCaps and DDCAPS_BLTCOLORFILL) = DDCAPS_BLTCOLORFILL then
    SysInfo.Items.Add(\'Hardware accelerated color fills\');

  if (HALCaps.dwCaps and DDCAPS_BLTQUEUE) = DDCAPS_BLTQUEUE then
    SysInfo.Items.Add(\'Asynchronous hardware blits\');

  if (HALCaps.dwCaps and DDCAPS_BLTSTRETCH) = DDCAPS_BLTSTRETCH then
    SysInfo.Items.Add(\'Hardware stretch blits\');

  if (HALCaps.dwCaps2 and DDCAPS2_CERTIFIED ) = DDCAPS2_CERTIFIED  then
    SysInfo.Items.Add(\'Microsoft certified driver\');

  if (HALCaps.dwCaps2 and DDCAPS2_NONLOCALVIDMEM ) = DDCAPS2_NONLOCALVIDMEM  then
    SysInfo.Items.Add(\'AGP video card\');

  if (HALCaps.dwCKeyCaps and DDCKEYCAPS_SRCBLT) = DDCKEYCAPS_SRCBLT  then
    SysInfo.Items.Add(\'Hardware accelerated source color key blits\');

  SysInfo.Items.Add(\'\');
  SysInfo.Items.Add(\'\');

  {emulated caps}
  SysInfo.Items.Add(\'Emulated Capabilities\');
  SysInfo.Items.Add(\'-------------------------------------\');

  if (HELCaps.dwCaps and DDCAPS_BLT) = DDCAPS_BLT then
    SysInfo.Items.Add(\'Emulated blits\');

  if (HELCaps.dwCaps and DDCAPS_BLTCOLORFILL) = DDCAPS_BLTCOLORFILL then
    SysInfo.Items.Add(\'Emulated color fills\');

  if (HELCaps.dwCaps and DDCAPS_BLTQUEUE) = DDCAPS_BLTQUEUE then
    SysInfo.Items.Add(\'Emulated asynchronous blits\');

  if (HELCaps.dwCaps and DDCAPS_BLTSTRETCH) = DDCAPS_BLTSTRETCH then
    SysInfo.Items.Add(\'Emulated stretch blits\');

  if (HELCaps.dwCaps2 and DDCAPS2_CERTIFIED ) = DDCAPS2_CERTIFIED  then
    SysInfo.Items.Add(\'Microsoft certified driver\');

  if (HELCaps.dwCaps2 and DDCAPS2_NONLOCALVIDMEM ) = DDCAPS2_NONLOCALVIDMEM  then
    SysInfo.Items.Add(\'Emulated AGP video card\');

  if (HELCaps.dwCKeyCaps and DDCKEYCAPS_SRCBLT) = DDCKEYCAPS_SRCBLT  then
    SysInfo.Items.Add(\'Emulated source color key blits\');
end;



Og de forskellige skærmopløsninger:

function EnumModesCallback(const lpDDSurfaceDesc: TDDSurfaceDesc2;
                          lpContext: Pointer): HResult; stdcall;
begin
  TStringList(lpContext).Add(IntToStr(lpDDSurfaceDesc.dwWidth)+\' X \'+
                        IntToStr(lpDDSurfaceDesc.dwHeight)+\', \'+
                        IntToStr(lpDDSurfaceDesc.ddpfPixelFormat.dwRGBBitCount)+
                        \' bits/pixel\');

  Result := DDENUMRET_OK;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  TempDirectDraw: IDirectDraw;
begin
  DirectDrawCreate(nil, TempDirectDraw, nil);

  try
    TempDirectDraw.QueryInterface(IID_IDirectDraw4, FDirectDraw);
  finally
    TempDirectDraw := nil;
  end;

  FDirectDraw.EnumDisplayModes(0,nil, lbxDisplayModes.Items, EnumModesCallback);
end;


DirectDraw har noget der hedder color keying, hvor du kan sætte en bestemt farve til at være transparent.

du kan downloade DelphiX og tutorials her:
http://delphi.about.com/compute/delphi/cs/delphixdirectx/index.htm

Prøv at kigge her :
http://www.savagesoftware.com.au/delphi/articles/article2.html

her er masse links til grafisk programmering med delphi og DirectX/OpenGL:
http://www.inner-smile.com/delphit.htm#graph

nico22 >> jeg er netop ifærd med at afprøve dit eksempel... men det virker ikke rigtigt. Da Delphi 4 spørger om Defination af FDirectDraw og jeg har søgt efter FDirectDraw i alle DirectX componenterne men forgæves. Så måske du kunne give mig et hint om hvad FDirectDraw er.

det er en variabel du skal erklære af typen IDirectDraw4:

var
  FDirectDraw: IDirectDraw4;

nico22>> OK - nu brokker min Delphi sig, skriver dette:

Incompatible types: \'TDDCaps_DX6\' and \'PDDCaps\'

Hvilket jeg ikke ved hvad betyder.

det er fordi din header er en anden end min. Prøv det her:

FDirectDraw.GetCaps(@HALCaps, @HELCaps);

nico22>> Ok - Det virker nu... men jeg kan desværre ikke bruge koden til noget, da den hverken henter navn eller ram fra mit grafik kort.

Da jeg ikke har fået et mine spørgsmål besvaret lukker jeg dette spørgsmål.

Der er desværre ingen der får point i denne omgang.

ZeroHero