求帮助........

tigi 2005-03-01 08:55:43
请朋友帮我做个DLL文件。我现在需要一个DLL文件(类似于API),在PB中进行声明调用。

这个DLL文件中封装一个函数。函数的名字是JhaRdecrypt,返回值为BOOLEAN型。这个函数有两个参数,A和B,这两个参数都是String型的,其中,B为ref的参数(可以返回值)最后函数的返回值为TRUE
函数的内容如下:
B = A;//把A的值赋给B;
retrun True;//函数返回真
用VB语言描述为:
Function JhaRdecrypt(A As String, ByRef B As String) As Boolean
B = A
JhaRdecrypt = True
End Function
请朋友们帮我把这个做一下发到我的邮箱。
我的邮箱是gaoxianfengtigi@sina.com.cn
...全文
64 点赞 收藏 5
写回复
5 条回复
gzmhero 2005年03月01日
again
回复 点赞
tigi 2005年03月01日
我没收到啊你在发一遍好吗?
回复 点赞
gzmhero 2005年03月01日
已经email给你。
回复 点赞
gzmhero 2005年03月01日
dll:
library comm;

{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }

uses
SysUtils,
windows,
Classes;

{$R *.res}

function JhaRdecrypt(var A:string;var B:string):boolean;stdcall;
begin
B:=A;
Result:=true;
end;

exports
JhaRdecrypt;

begin
end.

使用DLL:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

function JhaRdecrypt(var A:string;var B:string):boolean;stdcall;external 'comm.dll';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
A,B:string;
begin
A:=Edit1.Text;
JhaRdecrypt(A,B);
Edit2.Text:=B;
end;

end.
回复 点赞
todouwang 2005年03月01日
dll编写,http://blog.csdn.net/whbo
回复 点赞
发动态
发帖子
语言基础/算法/系统设计
创建于2007-08-02

3418

社区成员

3.3w+

社区内容

Delphi 语言基础/算法/系统设计
社区公告
暂无公告