delphi怎么生成dll文件?我启动delphi后,选择new-other-new items-dll wizard写代码后,怎么保存呢?生成dll文件呢?
解决方案 »
- 创建线程越多,线程中的TIdHttp的Get或Post返回就越慢
- Delphi新手求助!
- WebBrowser中怎么模拟鼠标点击超级连接
- 如何像系统一样监视网络连接状态!高手请进!
- (一有答案马上揭帖)谁知道怎么把内存里的一连串图片流(连续图片)转换成mpeg4或h264 或其他占硬盘小的视频文件
- 关于TreeView和ListView同时使用的问题!!
- 请问如何把缓冲中的数据原样读出
- 那有ORACLE下载?
- 关于Treeview和ListView在一起的用法。无论会与不会都可以进来看看!
- 怎么辨别EOleException异常的类型?who can help me!!!!!!!
- 读取ie默认主页代码 dephi-javascript
- SPCOMM控件ComReceiveData能接收数据,但不能把数据传递给其他过程
PAS代码:
unit penniesint;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
pcoinsrec=^tcoinsrec;
tcoinsrec=record
quarters,dimes,nickels,pennies:word;
end;
{$ifndef pennieslib}
function penniestocoins(totpennies:word;coinsrec):word;stdcall;
{$endif}
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
{$ifndef pennieslib}
function penniestocoins;external 'pennieslib.dll' name 'penniestocoins';
{$endif}
end.
DLL代码:
ibrary PENNIESLIB;
{$define pennieslib}
uses
sysutils,
classes,
penniesint,
Unit1 in 'Unit1.pas' {Form1};function penniestocoins(totpennies:word;coinsrec:pcoinsrec):word;stdcall;
begin
result:=totpennies;//将结果存放在 result
{计算quarters,dimes,nickels,pennies的值 }
quarters:=totpennies div 25;
totpennies:= totpennies-quarters*25;
dimes:= totpennies div 10;
nickels:=totpennies div 5;
totpennies:=totpennies-nickels*5;
pennies:=totpennies;
end;
end;
{引出函数名}
exports
penniestocoins;
end.
看下我这儿!