新手上路,请多关照。我手里有一个*.LIB和*.DLL两个文件
解决方案 »
- 对10到30位的数字进行加密,加密后还是数字,一个加密算法,一个解密算法,两个算法都不同,怎么写???
- 基于机顶盒环境的软件开发,前景如何?
- 如何在Delphi实现VC++的Union?紧急!谢谢!
- 大家请给点看法,关于TComponenet的虚拟构造方法
- Delphi如何从Excel中拷贝一个图表?
- Delphi世界群23981160,喜欢的都来吧
- 如何获取treeview的itemfocuschanged事件?
- 指针
- 请问数据库中有主键,如果输入重复老是错误,请问怎样避免?谢谢你们了。是paradox数据库
- DevExpress cxGrid 重绘之后点击列头排序不显示图标
- 象MP3播放器那样一边播放一边显示流逝的时间是怎么做的?
- Qreport中如何显示dbgrid控件,并将数据打印出来?
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function des (i:integer):integer;stdcall;external 'project2.dll';//调用Dll中的方法var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=inttostr( des(5));
end;end.
;//调用Dll 关键字
意思就是你用delphi写的dll也可以被其他语言所调用
是你引用的涵数名称不对,和DLL的不一致,VC区分大小写,所以你最好在DLL引用后面加上Name 'VC函数名';
int CheckProgid (int ProgId, char *Error_Message)我在DELPHI中调用如下
function CheckProgid (ProgId:integer;var Error_Message:pChar):integer;external 'ClientDll.dll';
那里不对?