Delphi BluetoothLE WriteCharacteristic Access Violation

Question

これはDelphi 10.1 Berlin（おそらくパッチが適用されていません）です。 このコードはかなり基本的です。 このコードは、安定していません。

なぜですか？

procedure TBLEEnumerator.WriteToSubScribedCharacteristic(bs: TArray<byte>); 
var 
    //member ble is an instance of TBluetoothLE 
    chr: TBluetoothGattCharacteristic; 
begin 
    chr := ble.GetCharacteristic(FBLEGattService, ChooseCharacteristic); 
    chr.SetValue(bs); 
    ble.WriteCharacteristic(self.dev, chr); 
end; 

他のいくつかの注意事項：Windows上で実行している場合 このエラーはあるが、私はこのコードは、モバイルデバイス上でも実行する予定。

この関数は、メインスレッドから呼び出され、TBluetoothLEコンポーネントのラッパーです。元の接続/スキャンは、メインスレッドからも処理されます。

明らかに簡単です。 TArrayは参照カウントの動的配列です。ときにタンク

はここでコールスタックです：

:761d31ce ucrtbase.memcpy + 0x4e 
System.Win.BluetoothWinRT.BytesToIBuffer(???,???) 
System.Win.BluetoothWinRT.TWinRTBluetoothGattCharacteristic.SetValueToDevice 
System.Win.BluetoothWinRT.TWinRTBluetoothLEDevice.DoWriteCharacteristic$52$ActRec.$0$Body 
System.Classes.TAnonymousThread.Execute 
System.Classes.ThreadProc($7511F40) 
System.ThreadWrapper($5A30D30) 
:740162c4 KERNEL32.BaseThreadInitThunk + 0x24 
:77060fd9 ; 
:77060fa4 ; 

Answer 1

は、ここでの契約です。これはEmbarcaderoライブラリのBUGです。はい、それでもおそらく修正されないバグです。

はここで自分のためにそれを修正する方法は次のとおりです。

1. コピープロジェクトディレクトリにSystem.Win.BluetoothWinRT.pasまたはプロジェクトで使用されるいくつかの他のパス。
2. IDEでファイルを開きます。
3. 「BytestoBuffer」を検索してください。
4. 関数のシグネチャから単語 "const"を削除します。

（FMXとVCLの作者を含む）これを実現する人はほとんどいませんが、 "const"文字列と動的配列を使用すると、Win32コンパイラはそれらの構造の参照カウント処理を最適化します。モバイルコンパイラやWin64コンパイラに影響するかどうかはわかりませんが、おそらくわかりません。

その厄介な効果は、その文字列または動的配列が別のスレッドから発生した場合、その別のスレッドが新しいスレッドの前にその文字列または動的配列を破棄することを非常にうまく決定する可能性があるということです（この場合、 - データの後ろに）その作業を終了します。

この機能からconstを削除すると、不安定性が修正されました。