<zw版·delphi与halcon系列原创教程>hello,zw 按惯例,第一个程序是‘hello’ 毕竟,Halcon是专业的图像库,所以我们就不用纯文本版的,来一个专业版.Halcon图像版的hello程序. 首先,记得在代码文件头部的模块引用"uses",当中,加入:HALCONXLib_TLB 模块名 另外,在exe程序输出目录下,建立一个tmp子目录,这个目录是zw系列教程的统一输出目录. 下面我们输入以下代码,建立v1版的hello子程序:hello_zw01

zw版[转发·台湾nvp系列Delphi例程].NET调用HALCON COM控件内存释放模式 ------------------------------------方法一 :Imports System.Runtime.InteropServices Marshal.ReleaseComObject(COM物件)COM 物件 = Nothing 方法二 :COM 物件 = NothingGC.Collect()GC.WaitForPendingFinalizers() 方法三 :Import

上次写了如何在VC6.0下对Delphi写的COM进行调用,原本想马上写如何在Delphi中调用VC6.0开发的COM时,由于在写事例程序中碰到了个很怪的问题,在我机子上用VC写的接口程序编译能通过.但是调用就会出现问题,(在VC下调用也是一样的出现).但是用Delphi写的接口程序编译后,不管是在VC下还是在Delphi下调用都没有问题.后来我把VC开发的接口程序编译后,拷贝到其它机子上试,怪事,完全没有问题了.总结后才知道是我机子有点问题.我到现在还没有解决为什么在我的机子上不行,在其它机子

Delphi 10.2(Tokyo)出来一段时间了,最重要的新特性就是支持Linux的服务端. 官网有详细的介绍: 这里是主要的特性介绍:https://www.embarcadero.com/products/rad-studio/whats-new-in-10-2-tokyo 这里是详细的更新清单:http://docwiki.embarcadero.com/RADStudio/Tokyo/en/What%27s_New 我使用谷歌翻译将更新清单翻译了一下,和各位爱好者分享. 原文我就不贴出

dll传递string实现方法 delphi中dll传递string的实现方法: dll项目uses第一个引用sharemem单元; 调用的项目uses第一个引用sharemem单元; 调用的单元uses第一个引用sharemem单元; ************************************************************** delphi中dll传递string的实现方法:dll项目uses第一个引用sharemem单元;调用的项目uses第一个引用share

delphi 10 里面的安卓服务有四种,上面的一篇文章里面的图有介绍. 今天做一个remote service 的例子.(里面一部分代码是抄别人的,如果不太清楚,自行恶补) remote service 实际上就是主程序包含服务模块,另外的一个程序可以调用. 由于delphi 10 的低级错误,需要手工修改一些东西.这一块可以参考http://blog.qdac.cc/?p=2839 为了不影响这个例子的顺利完成,本例中没有使用上面的修改.直接在本例中处理. 现在开工: 和以前一样,先建立一个

IOS 9 于17号早上正式开始推送,早上起来立马安装,这次升级包只有1G, 安装空间也大大降低(想起IOS 8 升级时,几乎把手机里面的东西删光了,满眼都是泪). 虽然安装后,网上几乎是铺天盖地的吐槽,但是如果不安装的话,拿什么吐呢?:) 回到正题,既然IOS 9出来了,那么前几天刚出来的delphi 10 会怎么想?是支持呢,还是不支持? 昨天晚上把所有的准备条件搞好(xcode7+ios 9 SDK). 把以前的几个程序重新编译发布,基本上没有问题,可以正常运行.以为大事已定.突然发现 原

zw版[转发·台湾nvp系列Delphi例程]HALCON DispCross procedure TForm1.Button1Click(Sender: TObject);var r, c : OleVariant; val : OleVariant;begin randomize; r := VarArrayOf([30, 60, 90, 120, 150, 180]); c := VarArrayOf([30, 80, 100, 160, 240, 300]); val := VarArr

zw版[转发·台湾nvp系列Delphi例程]HALCON 3D Position Of Circles procedure TForm1.action();var ho_Image, ho_EllipseContoursLarge : HUntypedObjectX; ho_EllipseContoursSmall, ho_EllipseContours : HUntypedObjectX; hv_Width, hv_Height : OleVariant; hv_WindowHandle,

zw版[转发·台湾nvp系列Delphi例程]HALCON TileChannels unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, HALCONXLib_TLB, StdCtrls;type TForm1 = class(TForm) Button1: TButton; HWindowXCtrl1: THW

zw版[转发·台湾nvp系列Delphi例程]HALCON SelectObj procedure TForm1.Button1Click(Sender: TObject);var img : HImageX; w, h : OleVariant; rg, rg1 : HRegionX; ht : HTupleX;begin ht := CoHTupleX.Create; img := CoHImageX.Create; img.ReadImage('rings_and_nuts'); w :=

Delphi 10.1进一步改进自Delphi 10带来的Http访问控件TNetHttpClient,支持异步访问,同时增加ConnectionTimeout及ResponseTimeout两个超时属性.你也许会问,这有什么?其他的语言早就有了,而我想到的确实别看这些常规的功能增加,他可以跨平台的啊,熟知Delphi跨平台的开发者一说就明白,这是跨win,osx,android,ios的,今年底还要linux.我又说多了,好象劝你也来用delphi似的.我们看一下如何使用异步处理Http请求.

TQ_Printrer控件,是一个为方便需要控制打印命令而设计的跨平台专用控件,已包含标准ESC/POS打印控制的基本指令在内(这些基本指令已能很好的满足多数项目使用). TQ_Printrer控件让开发人员在开发跨平台项目相关打印控制时更加方便快捷.控件支持Android.iOS以及WIN32/64的开发,可控制兼容ESC/POS的小票打印机.目前控件已在多个Android.iOS项目中配合蓝牙小票打印机使用. 控件下载地址: Delphi 10 Seattle小票打印控件  一.控件安装 1

zw版[转发·台湾nvp系列Delphi例程]HALCON SigmaImage2 procedure TForm1.Button1Click(Sender: TObject);var op: HOperatorSetX; img, img1: HUntypedObjectX; w, h: OleVariant;begin op := CoHOperatorSetX.Create; op.ReadImage(img, 'surface_scratch.png'); op.GetImageSize

zw版[转发·台湾nvp系列Delphi例程]HALCON SigmaImage1 procedure TForm1.Button1Click(Sender: TObject);var img, img1: HImageX; w, h: OleVariant;begin img := CoHImageX.Create; img.ReadImage('surface_scratch.png'); w := img.GetImageSize(h); HWindowXCtrl1.HalconWindo

zw版[转发·台湾nvp系列Delphi例程]HALCON AngleLl procedure TForm1.Button1Click(Sender: TObject);var Row1, Row2 : OleVariant; Column1, Column2 : OleVariant; AngleLl : OleVariant; sys : HSystemX; op : HOperatorSetX; deg : OleVariant; ht : HTupleX; val : double;be

zw版[转发·台湾nvp系列Delphi例程]HALCON Roberts1 procedure TForm1.Button1Click(Sender: TObject);var img, img1: HImageX; w, h: OleVariant; rg: HRegionX;begin img := CoHImageX.Create; img.ReadImage('clip'); w := img.GetImageSize(h); HWindowX1.SetPart(0, 0, h - 1

zw版[转发·台湾nvp系列Delphi例程]HALCON Roberts2 procedure TForm1.Button1Click(Sender: TObject);var op: HOperatorSetX; img, img1: HUntypedObjectX; w, h: OleVariant; rg: HUntypedObjectX;begin op := CoHOperatorSetX.Create; op.ReadImage(img, 'clip'); op.GetImageS

zw版[转发·台湾nvp系列Delphi例程]HALCON max_connection procedure TForm1.Button1Click(Sender: TObject);var ho_Image : HImageX; sys : HSystemX; ho_Region : HRegionX; hv_Information : OleVariant; ho_ConnectedRegions, ho_ConnectedRegionsMax : HRegionX; hv_NumConne

zw版[转发·台湾nvp系列Delphi例程]HALCON MirrorImage2 procedure TForm1.Button1Click(Sender: TObject);var op: HOperatorSetX; img, img1: HUntypedObjectX; w, h: OleVariant;begin op := CoHOperatorSetX.Create; op.ReadImage(img, 'circular_barcode'); op.GetImageSize(i

zw版[转发·台湾nvp系列Delphi例程]HALCON MirrorImage procedure TForm1.Button1Click(Sender: TObject);var img, img1: HImageX; w, h: OleVariant;begin img := CoHImageX.Create; img.ReadImage('circular_barcode'); w := img.GetImageSize(h); HWindowX1.SetPart(0, 0, h -