小编Gre*_*hop的帖子

如何在图像中找到对齐标记

我正在设计一个系统,它将以标准化的形式扫描到图像(例如,TBitmap).我想在这些页面上识别对齐标记,并使用这些裁剪标记的位置将页面旋转到正确的方向(因此顶部实际上是向上)并将图像裁剪到对齐标记的位置.

我需要找到的典型标记的示例图像是:

裁剪标记http://draftingmanuals.tpub.com/14065/img/14065_69_1.jpg

什么是评估从扫描仪获得的图像以定位图像中的各种标记的技术?我需要找到多个标记及其中心点位置.

delphi graphics crop image-processing computer-vision

12
推荐指数
1
解决办法
2163
查看次数

字符串到TStream

我正在尝试将字符串转换为TStream.我的下面的代码在CopyFrom行上给我一个"抽象错误"消息.我在这里碰壁砖,有关如何解决这个问题的想法吗?

procedure StringToStream(const AString: string; out AStream: TStream);
var
  SS: TStringStream;
begin
  SS := TStringStream.Create(AString);
  try
    SS.Position := 0;
    AStream.CopyFrom(SS, SS.Size);  //This is where the "Abstract Error" gets thrown
  finally
    SS.Free;
  end;
end;
Run Code Online (Sandbox Code Playgroud)

delphi string tstream

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

如何以编程方式设置文件标记

使用Windows资源管理器查看文件时,我可以选择设置"标记","类别"或其他属性.对于JPEG,可以选择不同的属性集(包括"标记").我希望能够以编程方式设置这些.

如何使用Delphi(我有Delphi 2010 Pro)以编程方式设置文件标签和其他文件属性?

windows delphi file file-properties file-attributes

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

没有参数类型的过程声明的行为是什么?

在尝试一些代码时,我发现如果我们为没有类型的函数或过程提供参数,它就不会给我们一个编译时错误.

为什么会发生这种情况,请给出一些解释,因为我无法在任何地方找到这样的代码?

程序声明:

Procedure TestProc(var objTest);
Run Code Online (Sandbox Code Playgroud)

如果我们删除关键字var,则编译时错误显示为Type required.

有人可以解释一下吗?

delphi function

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