我有一个delphi程序
怎么才能改成dll文件~program Wavelet_JPEG2000;uses
Forms,
Wavelet_Form in 'Wavelet_Form.pas' {FormWavelet},
wavelet in 'wavelet.pas',
Image_Form in 'Image_Form.pas' {FormImage};{$R *.RES}begin
Application.Initialize;
Application.Title := 'Wavelet 2.1';
Application.CreateForm(TFormWavelet, FormWavelet);
Application.Run;
end.
怎么才能改成dll文件~program Wavelet_JPEG2000;uses
Forms,
Wavelet_Form in 'Wavelet_Form.pas' {FormWavelet},
wavelet in 'wavelet.pas',
Image_Form in 'Image_Form.pas' {FormImage};{$R *.RES}begin
Application.Initialize;
Application.Title := 'Wavelet 2.1';
Application.CreateForm(TFormWavelet, FormWavelet);
Application.Run;
end.
library DataInput;
uses
SysUtils,
Classes,
forms,
AtomData in 'AtomData.pas' {FrmData};{$R *.RES}
function FunTransfer(sharepointer:pointer):integer;
begin
FrmData:=TFrmData.Create(Application);
FrmData.pubform:=sharepointer;
try
FrmData.showmodal;
finally
FrmData.free;
FrmData:=nil;
result:=0;
end;
end; Exports FunTransfer;
begin
end.
首先﹐聲明的關鍵字不是program而改用library.然后﹐看你要做什么樣的Dll,要是提供函數共享的就要像樓上的那樣﹐在exports里把輸出的
函數聲明出來。到時在其它程式中調用時聲明也要用一樣的名字。
最后﹐呵呵﹐看書吧﹗好多書上都有的﹐電子版也有。