Question

是否可以下载到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。

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

那里的任何一位大师可以帮忙解决这个问题吗？

Answer 1

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

Firemonkey中的DirectX10支持（不是10.1）

1 个答案: