Delphi 调用COM（VC编写）

Delphi 调用COM前的准备
--------------------------------------------------------------------
1. Windows 系统引入
运行 -> Regsvr32 x:/FCV.dll

x:/FCV.dll 是你放置COM文件的目录

2. Delphi 开发环境引入
Project -> Import Type Library ->"FCV 1.1 Type Library (Version1.1)"

主程序：

unit UntMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, FCVLib_TLB;

type
TfrmMain = class(TForm)
lblFileVal: TLabel;
lblFcvVal: TLabel;
edtFilePath: TEdit;
btnGenFCN: TButton;
edtFCVpath: TEdit;
btnCalFileValue: TButton;
btnReadFCV: TButton;
btnCreatFCV: TButton;
UCRC321: TUCRC32;
procedure btnCreatFCVClick(Sender: TObject);
procedure btnGenFCNClick(Sender: TObject);
procedure btnCalFileValueClick(Sender: TObject);
procedure btnReadFCVClick(Sender: TObject);
private
myFCV: IUCRC32;    // 定义COM接口
{ Private declarations }
public
instanceFlag: Boolean;
{ Public declarations }
end;

var
frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.btnCreatFCVClick(Sender: TObject);
begin
myFCV:= CoUCRC32.Create;
instanceFlag := True;
end;

procedure TfrmMain.btnGenFCNClick(Sender: TObject);
var
saveFile, checkFile: WideString;
i112: Integer;
begin
//
if not instanceFlag then exit;
saveFile:= edtFCVpath.Text;
checkFile:= edtFilePath.Text;
i112:= myFCV.SaveFCN(saveFile, checkFile);
ShowMessage(inttostr(i112));
end;

procedure TfrmMain.btnCalFileValueClick(Sender: TObject);
var
filePath: WideString;
retVal: DWORD;
begin
if not instanceFlag then exit;
filePath:= edtFilePath.Text;
retVal:= myFCV.CalCRC32(filePath);
lblFileVal.Caption:= IntToHex(retVal, 8);
end;

procedure TfrmMain.btnReadFCVClick(Sender: TObject);
var
filePath: WideString;
retVal: DWORD;
begin
//
if not instanceFlag then exit;
filePath:= edtFCVpath.Text;
retVal:= myFCV.ReadFCN(filePath);
lblFcvVal.Caption:= IntToHex(retVal, 8);
end;

end.

我把整个工程文件上传到PUDN上了。

地址：http://www.pudn.com/downloads332/sourcecode/windows/activex/detail1458101.html