UC知道delphi 调用 c语言 dll
来源：百度知道 编辑：UC知道 时间：2024/07/06 10:18:44
我用C语言写了一个Dll，编译成功。
是一个非常简单的加密算法，代码如下：
#include<stdio.h>
__declspec(dllexport) void Encipher(char a[16])
{
int i,len;
int s=1;
len=strlen(a);
for(i=0;i<len;i++)
{
a[i]=a[i]+s;
s=s+2;
}
}
现在我在Delphi中如何调用它并实现这样的功能，点击Button1，获取edit1.text的内容，存于数组中，然后调用Dll中的函数，进行简单加密，然后将结果赋给edit2.text。
是一个非常简单的加密算法，代码如下：
#include<stdio.h>
__declspec(dllexport) void Encipher(char a[16])
{
int i,len;
int s=1;
len=strlen(a);
for(i=0;i<len;i++)
{
a[i]=a[i]+s;
s=s+2;
}
}
现在我在Delphi中如何调用它并实现这样的功能，点击Button1，获取edit1.text的内容，存于数组中，然后调用Dll中的函数，进行简单加密，然后将结果赋给edit2.text。
很疑问你这个函数能传新的字符数组？？
型参了吧。
不管怎么说，照着你的要求做了 delphi程序。
type
TArrChar = array[0..15] of char;
procedure Encipher(a:TArrChar);cdecl;external 'xxx.dll';
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a:TArrChar;
begin
CopyMemory(@a,@Edit1.text[1],16);
Encipher(a);
Edit2.Text:=a;
end;
用delphi写dll啊，那样调用方便些。看不懂C语言的代码