小编Dav*_*d A的帖子

简单的DER Cert在python中解析

哪个是用python解析带有X509证书的二进制文件以DER格式提取公钥的最佳方法.

python ssl-certificate public-key

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

如何创建自定义形状更改对话框表单

如何使用Delphi XE3在Firemonkey中创建自定义形状更改对话框表单。

我想创建两个布局,其中任何一个组件内部都有一些组件(按钮,编辑),并在第一个布局中创建一个名称为“ SHOW / HIDE MORE DETAILS”的按钮,因此此按钮将执行以下操作:layout2.visible:= false

使用此layout2组件可以隐藏但不能自动对齐和自动调整大小形式。我该怎么办?这是关于我想做什么的图像示例

图片范例

delphi dialog firemonkey

4
推荐指数
1
解决办法
573
查看次数

Delphi - 从线程更新状态栏

从一个tthread类对象更新mainform中状态栏的最佳方法是什么.例如,我有一个TThread对象,它可以生成一个非常大的数量的东西,我希望根据您在状态栏上显示的软件的详细消息.

delphi multithreading

2
推荐指数
1
解决办法
2101
查看次数

从抽象Base类创建子类的最佳方法

从抽象Base类创建子类的最佳方法.

在我的项目中,我有一个基类抽象和两个子类.

TbaseClass=class
public
    procedure Doit;virtual;abstract;
    procedure Calculate;virtual;abstract;


Tchild1class=class(TbaseClass)
..
protected
    procedure CalcArea;virtual;
public
    procedure Doit;override;
    procedure Calculate;override;


Tchild2class=class(Tchild1class)
protected
    procedure CalcArea;override;
Run Code Online (Sandbox Code Playgroud)

在我的buttonclick代码中,我以这种方式创建了所需的子类,并且正在工作.

.....
var
 T:TBaseClass;
begin
    case OP of
    1: T:=Tchild1class.Create;
    2: T:=TChild2Class.Create;
T.Doit;
T.Calculate;
end;
Run Code Online (Sandbox Code Playgroud)

我的问题是下一个.我可以在我的基本抽象类中创建一个构造函数创建过程,这取决于int参数生成所需的子类??? 例如:

constructor TBaseClass.Create(OP:integer);
begin
inherited;
case OP of
    1: Tchild1class.Create; ///>>>???
    2: TChild2Class.Create; //>>>>???
end;
Run Code Online (Sandbox Code Playgroud)

这可能吗?

这样做的最佳方法是什么?

delphi polymorphism abstract-class delphi-xe3

2
推荐指数
1
解决办法
449
查看次数

在Delphi Xe中使用带有rawbytestring的Regex

在我的项目中,我需要使用正则表达式在400mb TMemoryStream对象中查找一些数据.我在delphi xe3中检查新的regularrexpresion,但函数只与接收到的字符串参数匹配,而不是rawbytestring或pointer.我通过这种方式定义了模式:

MyPatt:="\x8A\x8A(..)\x8A"
Run Code Online (Sandbox Code Playgroud)

问题是如何找到我试过的二进制rawdata里面

TRegex.Match((MyStreamObject.Memory)^,MyPatt);
Run Code Online (Sandbox Code Playgroud)

但没有成功.我试着用这个而不是成功

TRegex.Match(String((MyStreamObject.Memory)^),MyPatt);
Run Code Online (Sandbox Code Playgroud)

bcz问题是如果rawbinary对象以0x00开头被截断.

我如何使用指针或rawbinarystring匹配正则表达式.

regex delphi delphi-xe3

2
推荐指数
1
解决办法
1211
查看次数