2

是否可以下降到 DX10 而不是 DX10.1 支持。我有一个客户的电脑只支持 DX10，所以他们不能利用 Direct2D，因为 FM 似乎只支持 10.1

我尝试修改源以使用 DX10（FMX.Canvas.D2D 和 FMX.Context.DX10），并再次切换到 DX10，但一个调用似乎失败了。

我修改了共享设备的创建方式

if not Assigned(FSharedDevice) then 
begin
SaveClearFPUState;
try
Flags := {$ifdef DXDEBUG}D3D10_CREATE_DEVICE_DEBUG{$else}0{$endif};
Flags := Flags or D3D10_CREATE_DEVICE_BGRA_SUPPORT;
HR := D3D10CreateDevice(nil, FDriverType, 0, Flags, D3D10_SDK_VERSION, FSharedDevice);
if Succeeded(HR) then
begin
HR := FSharedDevice.CreateBuffer(TD3D10_BufferDesc.Create(VBSize, D3D10_BIND_VERTEX_BUFFER, D3D10_USAGE_DYNAMIC, D3D10_CPU_ACCESS_WRITE), nil, @FVB);
HR := FSharedDevice.CreateBuffer(TD3D10_BufferDesc.Create(IBSize, D3D10_BIND_INDEX_BUFFER, D3D10_USAGE_DYNAMIC, D3D10_CPU_ACCESS_WRITE), nil, @FIB);
// Acquire device DXGI factory
HR := FSharedDevice.QueryInterface(IDXGIDevice, DXGIDevice);
if Succeeded(HR) and (DXGIDevice <> nil) then
begin
HR := DXGIDevice.GetParent(IDXGIAdapter, DXGIAdapter);
if Succeeded(HR) and (DXGIAdapter <> nil) then
HR := DXGIAdapter.GetParent(IDXGIFactory, FDXGIFactory);
end;
if not Assigned(FDXGIFactory) then
HR := CreateDXGIFactory(IDXGIFactory, FDXGIFactory);
end;
finally
RestoreFPUState;
end;
end;

当我使用设备时，我使用下面这样的代码..

SharedDevice: ID3D10Device

if Assigned(TCustomDX10Context.SharedDevice) then
begin
FillChar(Desc, SizeOf(D3D10_TEXTURE2D_DESC), 0);
Desc.Format := DXGI_FORMAT_B8G8R8A8_UNORM;
Desc.Width := 1;
Desc.Height := 1;
Desc.MipLevels := 1;
Desc.ArraySize := 1;
Desc.SampleDesc.Count := 1;
Desc.SampleDesc.Quality := 0;
Desc.Usage := D3D10_USAGE_DEFAULT;
Desc.BindFlags := D3D10_BIND_RENDER_TARGET or D3D10_BIND_SHADER_RESOURCE;
Res := TCustomDX10Context.SharedDevice.CreateTexture2D(Desc, nil, FSharedTexture);
Prop := D2D1RenderTargetProperties(TargetMode, D2D1PixelFormat(DXGI_FORMAT_UNKNOWN, D2D1_ALPHA_MODE_PREMULTIPLIED));
Res := FFactory.CreateDxgiSurfaceRenderTarget(FSharedTexture as IDXGISurface, Prop, FSharedRenderTarget);
end;

我在源代码中创建了一个开关，允许我在 10.1 和 10 设备之间切换，并修改了 FMX.Canvas.D2D 和 FMX.Context.DX10 中的所有代码以使用替代设备。

但...

CreateDxgiSurfaceRenderTarget 失败，错误代码为 -2147024809。

所以应用程序加载，但表单都是空白的，因为无法创建目标。

有哪位大师可以帮助解决这个问题吗？

4

1 回答 1

2

Direct2D 1.0 支持与 Direct3D 10.1 的互操作，但它仍然可以通过功能级别选择支持 Direct3D 10.0 硬件。我对Delphi一无所知，但不是调用D3D10CreateDevice来创建Direct3D设备，而是需要调用D3D10CreateDevice1函数。然后，您可以简单地请求所需的功能级别，例如 D3D10_FEATURE_LEVEL_10_0。

于 2013-01-17T15:52:14.980 回答