小编sha*_*ful的帖子

Delphi数据类型太大:柏林更新2中超过2 GB

我有一个适用于Delphi和Lazarus的单元.在Lazarus中,该单元编译时没有任何异常,但在Delphi中它给出了错误数据类型太大:超过2 GB.以下是代码:

unit UType;

{$ifdef FPC}
 {$MODE delphi}{$H+}
{$endif}

interface


type
  TFreqType = Extended;

  TFreqCutArray = Array [0..0]of TFreqType;

  PFreqCutArray = ^TFreqCutArray;

  FilterOrder = Integer;

  TAS_Sample = Extended;

  TAS_SampleArray = Array[0..High(Integer) div Sizeof(TAS_Sample) - 1] of TAS_Sample;

  PTAS_SampleArray = ^TAS_SampleArray;

  TAS_Float = Extended;

  TComplex = record
    Re, Im: TAS_Sample; // Z = Re + i*Im
    end;

  PComplex = ^TComplex;
  TComplexArray = Array[0..High(Integer) div Sizeof(TComplex) - 1] of TComplex;//here Delphi gives the error

  PComplexArray = ^TComplexArray;
  FilterProc = function(V: TAS_Sample): TAS_Sample …
Run Code Online (Sandbox Code Playgroud)

delphi freepascal lazarus delphi-10.1-berlin

9
推荐指数
1
解决办法
475
查看次数

Delphi Firemonkey TWebBrowser 在 Android、iOS 和 MacOS 中使用 WebRTC

已经在Delphi TWebbrowser 上为此创建了一个帖子以使用 -enable-media-stream,但尚未收到任何评论或答案。所以我提出一个不同的问题。如何在 Android、iOS 和 MacOSX 中使用 TWebBrowser 使用 WebRTC?在 Windows 中,我使用了 TChromiumFMX,它具有从命令行启用媒体流的功能。但是怎么用TWebBrowser。对于 Android,我添加了以下权限和用户功能:

<uses-permission android:name="android.permission.ACCESS_NETWORK_STATE"/>
<uses-permission android:name="android.permission.CAMERA"/>
<uses-permission android:name="android.permission.INTERNET"/>
<uses-permission android:name="android.permission.MODIFY_AUDIO_SETTINGS"/>
<uses-permission android:name="android.permission.RECORD_AUDIO"/>
<uses-feature android:name="android.hardware.audio.low_latency"/>
<uses-feature android:name="android.hardware.audio.pro"/>
<uses-feature android:name="android.hardware.microphone" android:required="true"/>
<uses-feature android:name="android.hardware.camera.autofocus"/>
<uses-feature android:name="android.hardware.camera" android:required="true"/>
<uses-feature android:name="android.hardware.camera.front" android:required="true"/>
<uses-feature android:glEsVersion="0x00020000" android:required="True"/>
Run Code Online (Sandbox Code Playgroud)

它不起作用,我只在 TWebBrowser 上得到一个带有黑色播放按钮图像的黑色圆圈。请帮忙。 在此处输入图片说明

我的代码加载网址:

  {$IFDEF MSWINDOWS}
  mybrowser.Load(Format('https://www.myhost.com/multiple.html?room=%s', [NumberBox1.Value.ToString]));
  {$ELSE}
  mybrowser.URL := Format('https://www.myhost.com/multiple.html?room=%s', [NumberBox1.Value.ToString]);
  mybrowser.Navigate
  {$ENDIF}
Run Code Online (Sandbox Code Playgroud)

上图显示在我的 Nexus 5 上。

delphi firemonkey webrtc

6
推荐指数
1
解决办法
1504
查看次数

Flutter 如何创建 zip 文件

如何使用 Flutter 创建 zip 文件?我尝试使用存档包,但它没有任何示例来创建 zip 文件。请帮忙。我对 Flutter 完全陌生。创建包含存档包的 zip 文件后,在解压 zip 文件时出现错误。

对于存档包,这就是我所做的:

  void _generateItemArchive(ZipFileEncoder encoder, int id) async {
List<Item> _itemList = await DBProvider.db.getAllItem(id);
_itemList.forEach((Item _item) {
  encoder.addFile(File(_item.photo));
});
Run Code Online (Sandbox Code Playgroud)

}

ZipFileEncoder encoder = ZipFileEncoder();
encoder.create(join(documentsDirectory.path, 'product.zip'));

encoder.addFile(File('${documentsDirectory.path}/TestDB.db'));

List<Supplier> _supplierList = await DBProvider.db.getAllSupplier();
_supplierList.forEach((Supplier _supplier) {
  encoder.addFile(File(_supplier.photo));
  _generateItemArchive(encoder, _supplier.id);
});
Run Code Online (Sandbox Code Playgroud)

当我尝试调用编码器.close(); 时出现错误 我需要从数据库记录添加文件。

flutter

6
推荐指数
1
解决办法
1万
查看次数

如何使用DynamicAppearance向TListView添加项目?

如何在运行时向DynamicAppearance Listview添加项?在设计模式下,我创建了我想要的ListView布局.我添加了3个TTextObjectAppearance.如何动态设置这3个TTextObjectAppearance文本?

delphi listview firemonkey delphi-10.1-berlin

5
推荐指数
1
解决办法
4671
查看次数