Delphi 如何通过主程序判断显示调用的DLL已经在运行

用D7开发了一个OA办公流程DLL(挂靠在其他项目中使用),又做了一个托盘程序,登陆托盘程序后,Timer控件定时查询需审批的流程。查到流程后,右下角图标闪烁,双击调用OA办公流程DLL。现遇到一个问题,想实现的功能:打开OA流程DLL后,取消闪烁,并停止Timer;关闭DLL后,重新开启Timer(不改动DLL,只通过托盘程序判断)。求教大家有什么办法么?

2个回答

通过窗口类名去判断窗口是否存在

hhwq1988
不合适先森 代码换成h:=FindWindow('窗口类名','流程列表');就解决了 谢谢哈
2 年多之前 回复
hhwq1988
不合适先森 嗯嗯,我用h:=FindWindow(nil,'流程列表');//流程列表 : OA流程DLL的主窗口标题 是实现了我需要的判断,但是就怕其他窗口也刚好同名,咋办呢?
2 年多之前 回复

我记得在载入dll的时候,可以以独占模式载入。

或者,每次调用dll时,不载入dll本身,而是拷贝一份,每次对这个拷贝进行判断,如果能够读写删除,说明dll已经关闭了,如果不能,说明dll被打开了。

newpeng
newpeng 回复不合适先森: 说明你在关闭dll时没有释放相应的句柄,否则不会无法删除的。
2 年多之前 回复
hhwq1988
不合适先森 第一次打开之前是可以删除的,但是打开一次DLL再关闭后貌似就不行了,我本来想通过什么办法在主程序遍历到DLL的窗口是否已经打开,但是没找到解决方案
2 年多之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
C#调用Delphi dll文件问题

最近手头一个项目,需要用到C#调用Delphi写出的dll文件(调用的是modelDLL.dll,但是该dll文件还需要另外一个borlndmm.dll文件支持,调用的时候已经把这两个dll文件放到debug目录下了),直接附上相关代码: Delphi相关源码: ``` type TCharStr=array[0..599] of char; ``` 用Delphi写的直接调用可运行,代码如下: ``` procedure TMainDLLForm.PedBitBtnClick(Sender: TObject); var fileName:TCharStr; begin OpenDataFileDlg.InitialDir:= GetCurrentDir; OpenDataFileDlg.Title:='加载模型文件'; OpenDataFileDlg.Filter := '定量模型[*.mdl]|*.mdl|定性模型[*.mdr]|*.mdr'; if OpenDataFileDlg.Execute then begin StrPCopy(FileName,OpenDataFileDlg.FileName); tmpD:=NIRSAModelForPred(graphyData,dataLength,FileName,targetName); end; if compareText(fileExt,'.MDR')=0 then begin memo1.Lines.Add('定性模型: '+ExtractFileName(FileName)); memo1.Lines.Add(Format('预测结果: %10s:%0.0f',[targetName,tmpD])); end; memo1.Lines.Add('--------------'); memo1.Lines.Add(trim(NIRSAPretreatInfor(FileName)));//调用该函数 memo1.Lines.Add('--------------'); memo1.Lines.Add(trim(NIRSAModelInfor(FileName))); end; ``` 而我现在用C#调用出现"尝试读取或写入受保护的内存。这通常指示其他内存已损坏"的错误,代码如下所示: ``` [MarshalAs(UnmanagedType.LPStr, SizeConst = 600)] public string fileName; [DllImport(@"modelDLL.dll", CharSet = CharSet.Auto, CallingConvention = CallingConvention.StdCall)] [return: MarshalAs(UnmanagedType.LPStr, SizeConst = 600)] public static extern string NIRSAPretreatInfor(ref string fileName); private void preCalcButton_Click(object sender, EventArgs e) { OpenFileDialog dialog = new OpenFileDialog(); dialog.Multiselect = false; if (dialog.ShowDialog() == System.Windows.Forms.DialogResult.OK) { fileName = dialog.FileName; string result = NIRSAPretreatInfor(ref fileName); modelInfoTextBox.Text = result; } } ``` 该段代码主要参考Stack Overflow的一些解决方案,地址:[链接](https://stackoverflow.com/questions/5105460/delphi-dll-in-c-sharp-var-array-as-parameter ""),现在解决不了,没有C币了,请大神支支招,谢谢!

delphi DLL数据及窗体调用

DLL工程文件代码: ``` library DLLUSERS; uses Windows, ADODB, Dialogs, Forms, SysUtils, Classes, U_DataModule in 'U_DataModule.pas' {DataModule1: TDataModule}, U_Users in 'U_Users.pas' {Frm_Users}, U_Initialize in 'U_Initialize.pas'; {$R *.res} function GetForm(ClassName: PChar; DM: TDataModule1): TFormClass; stdcall; begin DataModule1 := DM; Result:=TFormClass(FindClass(ClassName)); end; procedure InitDLL(DM: TDataModule1); stdcall; begin DataModule1:=DM; end; exports GetForm,InitDLL,SetUseName; begin end. ``` DLL公共单元代码: ``` unit U_Initialize; {DLL公共单元UNIT} interface function GetUseName: PChar; stdcall; procedure SetUseName(SName: PChar); stdcall; var StrName: PChar; implementation uses U_DataModule, ActiveX; function GetUseName: PChar; stdcall; begin Result:=StrName; end; procedure SetUseName(SName: PChar); stdcall; begin StrName:=SName; end; initialization CoInitialize(nil); DataModule1 := TDataModule1.Create(nil); finalization DataModule1.Free; CoUninitialize; end. ``` DLL数据模块代码: ``` unit U_DataModule; {数据模块} interface uses SysUtils, Classes, DB, ADODB; type TDataModule1 = class(TDataModule) ADOCNT: TADOConnection; private { Private declarations } public { Public declarations } end; var DataModule1: TDataModule1; implementation {$R *.dfm} end. ``` DLL内部窗体代码: ``` unit U_Users; {DLL内部窗体} interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBGridEhGrouping, ComCtrls, GridsEh, DBGridEh, ExtCtrls, RzPanel, Menus, ADODB, DB, EhlibCDS, EhlibADO, Comobj, DBGridEhImpExp, U_DataModule; type TFrm_Users = class(TForm) MainMenu1: TMainMenu; mmAdd: TMenuItem; mmEdit: TMenuItem; mmDelete: TMenuItem; mmRight: TMenuItem; mmFind: TMenuItem; mmDataOut: TMenuItem; mmClose: TMenuItem; RzGroupBox1: TRzGroupBox; DBGridEhUsers: TDBGridEh; StatusBar1: TStatusBar; SaveDialog1: TSaveDialog; procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public ADOUsers,ADODelete:TADOQuery; DSUsers: TDataSource; { Public declarations } end; var Frm_Users: TFrm_Users; implementation uses U_Initialize; {$R *.dfm} procedure TFrm_Users.FormCreate(Sender: TObject); begin Font.Name:='Arial'; ADOUsers:=TADOQuery.Create(nil); ADODelete:=TADOQuery.Create(nil); DSUsers:=TDataSource.Create(nil); ADOUsers.Connection:=DataModule1.ADOCNT; ADODelete.Connection:=DataModule1.ADOCNT; //设置文件类型列表和默认文件类型 SaveDialog1.Filter:='Text files (*.txt)|*.TXT|Comma separated values (*.csv)|*.CSV|HTML file (*.htm)|*.HTM|Rich Text Format (*.rtf)|*.RTF|Microsoft Excel Workbook (*.xls)|*.XLS'; SaveDialog1.FilterIndex:=0; end; procedure TFrm_Users.FormShow(Sender: TObject); begin StrName:=GetUseName; with ADOUsers do begin Close; SQL.Clear; if String(StrName)='alsaby' then SQL.Add('select a.*,b.Person_Name,c.Partment_Name from t_User a '+ 'left join t_Person b on a.User_PersonId=b.Person_Id '+ 'left join t_Partment c on a.User_PartmentId=c.Partment_Id '+ 'order by a.User_Name') else if String(StrName)='admin' then SQL.Add('select a.*,b.Person_Name,c.Partment_Name from t_User a '+ 'left join t_Person b on a.User_PersonId=b.Person_Id '+ 'left join t_Partment c on a.User_PartmentId=c.Partment_Id '+ 'where a.User_Name<>''alsaby'' order by a.User_Name') else SQL.Add('select a.*,b.Person_Name,c.Partment_Name from t_User a '+ 'left join t_Person b on a.User_PersonId=b.Person_Id '+ 'left join t_Partment c on a.User_PartmentId=c.Partment_Id '+ 'where a.User_Name<>''alsaby'' and a.User_Name<>''admin'' order by a.User_Name'); Open; end; DSUsers.DataSet:=ADOUsers; DBGridEhUsers.DataSource:=DSUsers; StatusBar1.Panels[1].Text:=IntToStr(ADOUsers.RecordCount) +' 条数据。'; end; procedure TFrm_Users.FormClose(Sender: TObject; var Action: TCloseAction); begin ADOUsers.Close; ADOUsers.Destroy; ADODelete.Close; ADODelete.Destroy; DSUsers.Destroy; Action:=caFree; end; initialization RegisterClass(TFrm_Users); finalization UnRegisterClass(TFrm_Users); end. ``` 主程序调用代码: ``` unit U_Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ImgList, ComCtrls, ADODB, DB, jpeg, ExtCtrls, RzPanel, RzSplit, RzTreeVw, U_DataModule; type TInitDLL = procedure(DM: TFrm_DataModule); stdcall; TSetUseName = procedure(SName: PChar); stdcall; TGetForm = function(ClassName: PChar; DM: TFrm_DataModule): TFormClass; stdcall; TFrm_Main = class(TForm) MainMenu1: TMainMenu; mmSysFlies: TMenuItem; mmUserChange: TMenuItem; N2: TMenuItem; mmExit: TMenuItem; N1: TMenuItem; mmBakRecover: TMenuItem; mmSysUser: TMenuItem; N5: TMenuItem; StatusBar1: TStatusBar; OpenDialog1: TOpenDialog; ImageList1: TImageList; procedure FormCreate(Sender: TObject); procedure mmSysUserClick(Sender: TObject); private { Private declarations } public UName: String; { Public declarations } end; var Frm_Main: TFrm_Main; implementation uses U_Public; {$R *.dfm} procedure TFrm_Main.FormCreate(Sender: TObject); begin Font.Name:='Arial'; UName:=Frm_DataModule.ADO_User.FieldByName('User_Name').AsString; end; procedure TFrm_Main.mmSysUserClick(Sender: TObject); var DLLName: String; DLLHandle: THandle; FarProc: TFarProc; Form: TForm; SetUseName: TSetUseName; GetForm: TGetForm; InitDLL: TInitDLL; begin GetDir(0,DLLName); DLLName := DLLName + '\DLLUSERS.dll'; DLLHandle:= SafeLoadLibrary(DLLName); if DLLHandle > 0 then Try FarProc := GetProcAddress(DLLHandle, 'InitDLL'); if FarProc<>nil then begin InitDLL := TInitDLL(FarProc); InitDLL(Frm_DataModule); end; FarProc := GetProcAddress(DLLHandle, 'SetUseName'); if FarProc<>nil then begin SetUseName := TSetUseName(FarProc); SetUseName(PChar(Trim(UName))); end; FarProc := GetProcAddress(DLLHandle, 'GetForm'); if FarProc<>nil then begin GetForm := TGetForm(FarProc); Form := GetForm('TFrm_Users', Frm_DataModule).Create(nil); Form.ShowModal; FreeAndNil(Form); end; Finally FreeLibrary(DLLHandle); End else ShowMessage(DLLName+'文件不存在!'); end; end. ``` 以上在运行程序时没有错误,数据也正常显示,但是关闭调用的DLL内部窗体后,再次通过主程序调用就出现了Read of Address 00000008错误,请高手指点这是咋回事?

asp.net webservice调用Delphi的dll

asp.net webservice调用Delphi的dll,执行方法Init(连接Oracle数据库),报错连接超时。 建立个winform程序,调用Init函数可通过,但webservice就是不行。 我是发布在服务器server 2003 32位, IIS发布,发程序发布的文件扔到IIS根目录,dll文件在bin目录下。 调用的这个dll文件又调用了另一个dll,2个dll文件都扔到bin目录下了。不知道是什么原因,winform可以调用,webservice就不能调用。尝试用web程序调用,也失败了。是权限的问题?还是什么配置的问题? 尝试建立web程序调用dll,来捕获异常,但页面一直处于加载状态,任何异常都无法捕获。 以下是webservice调用dll代码: [DllImport(@"BF_CRM700.dll", EntryPoint = "CRMInit", CharSet = CharSet.Ansi, CallingConvention = CallingConvention.StdCall)] static extern bool CRMInit(int fdbh); [WebMethod(Description = "初始化CRMInit")] public bool Init() { return CRMInit(1); } 谁能帮助解决下,QQ 469894973

delphi调用c++ dll参数char* 的问题

我有一个c作的dll 具体说明如下 1、文件解密接口函数及参数说明: int __stdcall DecodeFile(char* InFile, //要解密的文件 char* Key, //解密的密钥 char* OutFile, //解密后的文件,在解密路径下的同名XML文件 char* Info); //提示信息函数返回 0 成功,非0失败。 2、动态调用实例: String jmfile = 要解密的文件路径; String key = 要解密的文件密钥; String strDllFile = "DecodeXMLFIle.dll"; //解密动态库文件名 DLLInst = LoadLibrary(strDllFile.c_str()); if( !DLLInst) Application->MessageBox( "DLL装载错误", "错误信息", MB_ICONERROR); else { /l输入函数声明 int (__stdcall *DecodeFile)(char* InFile, char* Key, char* OutFile, char* Info); DecodeFile = (int (__stdcall *)(char* InFile, char* Key, char* OutFile, char* Info))GetProcAddress( DLLInst, "DecodeFile"); if (DecodeFile) { char outfilestr[1000] = {0}; char msgInfostr[1000] = {0}; int dRes = DecodeFile(jmfile.c_str(),key.c_str(),outfilestr,msgInfostr); if(dRes != 0) { String Msgstr = "提示信息:解密失败 "+AnsiString(msgInfostr); Application->MessageBox(Msgstr, "错误信息", MB_ICONERROR); }else Application->MessageBox("成功", "成功", MB_OK); } } FreeLibrary(DLLInst); ---------------------------------------------- 如何用delph声明这个函数并调用呢

vb调用DLL转成DELPHI出错?

1.原来VB的程序,经执行可以通过 VB 数据类型定义 'Profile infomation Public Type LJIF_PROFILE_INFO fXStart As Single fXPitch As Single End Type 定义 Public Declare Function LJIF_GetProfileData Lib "LJIF.dll" (ByVal ProfileTarget As Long, ByRef pProfileInfo As LJIF_PROFILE_INFO, ByRef pProfile As Single, ByVal nCount As Long) As Long 条用 rc = LJIF_GetProfileData(LJIF_HEAD_INDEX(GetProfileParam1.ListIndex), ProfileInfo, pBuffer(0), GetProfileParam2) 'Get Profile Data 2.改成DELPHI后,就这个函数提示参数错误 DELPHI 定义 Type pLJIF_PROFILE_INFO=^LJIF_PROFILE_INFO; LJIF_PROFILE_INFO=record fXStart : Single; fXPitch : Single; End ; /Get Profile Data Function LJIF_GetProfileData ( ProfileTarget:LongInt; var pProfileInfo: LJIF_PROFILE_INFO;var pProfile:array of Single; nCount :LongInt): LongInt;external 'LJIF.dll'; 调用: rc := LJIF_GetProfileData(0, ProfileInfo, pBuffer, GetProfileParam2.Value) ; 始终报参数错误? 求大侠指点!

Delphi 调用C++ dll 回调函数

用Delphi 调用容联云通信的动态库CCPAppClient.DLL,其中有一个函数 Function CCPinit( CallbackInterface: CCPCALLBACKINTERFACE ):Integer;stdcall; 参数CCPCALLBACKINTERFACE 是一个结构体指针,包含 onConnected , onConnectError 等回调函数。 在调用函数CCPinit调用成功后(返回值0),会触发CCPCALLBACKINTERFACE 结构体中的回调函数onConnected 这部分代码用Delphi如何写?麻烦高手给看一下 下面是C#的demo CCPCall.instance.loginInterface = this; string ret = CCPCall.instance.LoginCCP(); if (ret != null) { MessageBox.Show(ret, "登录失败", MessageBoxButtons.OKCancel, MessageBoxIcon.Error); } else { login_btn.Enabled = false; login_btn.BackgroundImage = Resources.bluebutton_disable; login_btn.ForeColor = Color.White; login_btn.Text = "登录中...请稍后"; } public delegate void LoginDelegate(); #region ILoginInterface 成员 public void onConnected() { LoginDelegate connected = delegate() { IMDBAccess.CreateIMMessageTable(); IMDBAccess.CreateGroupNoticeTabel(); this.Hide(); new MainForm().Show(); }; this.BeginInvoke(connected); } public void onConnectError(CloopenReason reason) { LoginDelegate error = delegate() { login_btn.Enabled = true; login_btn.BackgroundImage = Resources.bluebutton_normal; login_btn.Text = "登录"; }; login_btn.BeginInvoke(error); } #endregion ```

VS2010编写的C#dll在delphi中怎么调用?在线急等!

我用C#写了一个dll给delphi调用,可是生成的程序启动不了,提示初始化失败!是什么原因啊?请教了!在线等,解决问题立刻结贴。

Delphi XE 10 如何引用dll

Delphi XE 10 中需要添加dll的引用。 在vb.net 中添加引用成功后可以在控件列表中加载dll中所带的控件,如图 ![图片说明](https://img-ask.csdn.net/upload/201510/13/1444720186_82053.png) ![图片说明](https://img-ask.csdn.net/upload/201510/13/1444720206_536924.png) Delphi XE 10 中应该如何实现

delphi 简单dll调用出错

library wjfz; { 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 shellapi, ShareMem, System.SysUtils, System.Classes; {$R *.res} function DelDirectory(X,Y:integer): integer; stdcall; begin Result :=X+Y; end; exports DelDirectory; // DelDirectory12; begin end. 这是简单的dll,求和 unit Unit2; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs , shellapi, Vcl.StdCtrls; type TForm2 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} function DelDirectory(X,Y:integer): integer; stdcall; external 'wjfz.dll' ; procedure TForm2.Button1Click(Sender: TObject); begin edit3.Text:=inttostr(DelDirectory(1,2)); end; end. 用一个按钮实现1+2的和 他就报错! access violation at address......

Delphi DLL数据及窗体调用

DLL工程相关代码如下: library DLLUSERS; uses Windows, ADODB, Dialogs, Forms, SysUtils, Classes, U_DataModule in 'U_DataModule.pas' {DataModule1: TDataModule}, U_Users in 'U_Users.pas' {Frm_Users}, U_Initialize in 'U_Initialize.pas'; {$R *.res} function GetForm(ClassName: PChar; DM: TDataModule1): TFormClass; stdcall; begin DataModule1 := DM; Result:=TFormClass(FindClass(ClassName)); end; procedure InitDLL(DM: TDataModule1); stdcall; begin DataModule1:=DM; end; exports GetForm,InitDLL,SetUseName; begin end. DLL公共单元代码如下: unit U_Initialize; {DLL公共单元UNIT} interface function GetUseName: PChar; stdcall; procedure SetUseName(SName: PChar); stdcall; var StrName: PChar; implementation uses U_DataModule, ActiveX; function GetUseName: PChar; stdcall; begin Result:=StrName; end; procedure SetUseName(SName: PChar); stdcall; begin StrName:=SName; end; initialization CoInitialize(nil); DataModule1 := TDataModule1.Create(nil); finalization DataModule1.Free; CoUninitialize; end. DLL数据模块代码: unit U_DataModule; {数据模块} interface uses SysUtils, Classes, DB, ADODB; type TDataModule1 = class(TDataModule) ADOCNT: TADOConnection; private { Private declarations } public { Public declarations } end; var DataModule1: TDataModule1; implementation {$R *.dfm} end. DLL内部窗体代码: unit U_Users; {DLL内部窗体} interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBGridEhGrouping, ComCtrls, GridsEh, DBGridEh, ExtCtrls, RzPanel, Menus, ADODB, DB, EhlibCDS, EhlibADO, Comobj, DBGridEhImpExp, U_DataModule; type TFrm_Users = class(TForm) MainMenu1: TMainMenu; mmAdd: TMenuItem; mmEdit: TMenuItem; mmDelete: TMenuItem; mmRight: TMenuItem; mmFind: TMenuItem; mmDataOut: TMenuItem; mmClose: TMenuItem; RzGroupBox1: TRzGroupBox; DBGridEhUsers: TDBGridEh; StatusBar1: TStatusBar; SaveDialog1: TSaveDialog; procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public ADOUsers,ADODelete:TADOQuery; DSUsers: TDataSource; { Public declarations } end; var Frm_Users: TFrm_Users; implementation uses U_Initialize; {$R *.dfm} procedure TFrm_Users.FormCreate(Sender: TObject); begin Font.Name:='Arial'; ADOUsers:=TADOQuery.Create(nil); ADODelete:=TADOQuery.Create(nil); DSUsers:=TDataSource.Create(nil); ADOUsers.Connection:=DataModule1.ADOCNT; ADODelete.Connection:=DataModule1.ADOCNT; //设置文件类型列表和默认文件类型 SaveDialog1.Filter:='Text files (*.txt)|*.TXT|Comma separated values (*.csv)|*.CSV|HTML file (*.htm)|*.HTM|Rich Text Format (*.rtf)|*.RTF|Microsoft Excel Workbook (*.xls)|*.XLS'; SaveDialog1.FilterIndex:=0; end; procedure TFrm_Users.FormShow(Sender: TObject); begin StrName:=GetUseName; with ADOUsers do begin Close; SQL.Clear; if String(StrName)='alsaby' then SQL.Add('select a.*,b.Person_Name,c.Partment_Name from t_User a '+ 'left join t_Person b on a.User_PersonId=b.Person_Id '+ 'left join t_Partment c on a.User_PartmentId=c.Partment_Id '+ 'order by a.User_Name') else if String(StrName)='admin' then SQL.Add('select a.*,b.Person_Name,c.Partment_Name from t_User a '+ 'left join t_Person b on a.User_PersonId=b.Person_Id '+ 'left join t_Partment c on a.User_PartmentId=c.Partment_Id '+ 'where a.User_Name<>''alsaby'' order by a.User_Name') else SQL.Add('select a.*,b.Person_Name,c.Partment_Name from t_User a '+ 'left join t_Person b on a.User_PersonId=b.Person_Id '+ 'left join t_Partment c on a.User_PartmentId=c.Partment_Id '+ 'where a.User_Name<>''alsaby'' and a.User_Name<>''admin'' order by a.User_Name'); Open; end; DSUsers.DataSet:=ADOUsers; DBGridEhUsers.DataSource:=DSUsers; StatusBar1.Panels[1].Text:=IntToStr(ADOUsers.RecordCount) +' 条数据。'; end; procedure TFrm_Users.FormClose(Sender: TObject; var Action: TCloseAction); begin ADOUsers.Close; ADOUsers.Destroy; ADODelete.Close; ADODelete.Destroy; DSUsers.Destroy; Action:=caFree; end; initialization RegisterClass(TFrm_Users); finalization UnRegisterClass(TFrm_Users); end. 主程序调用DLL代码: unit U_Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ImgList, ComCtrls, ADODB, DB, jpeg, ExtCtrls, RzPanel, RzSplit, RzTreeVw, U_DataModule; type TInitDLL = procedure(DM: TFrm_DataModule); stdcall; TSetUseName = procedure(SName: PChar); stdcall; TGetForm = function(ClassName: PChar; DM: TFrm_DataModule): TFormClass; stdcall; TFrm_Main = class(TForm) MainMenu1: TMainMenu; mmSysFlies: TMenuItem; mmUserChange: TMenuItem; N2: TMenuItem; mmExit: TMenuItem; N1: TMenuItem; mmBakRecover: TMenuItem; mmSysUser: TMenuItem; N5: TMenuItem; StatusBar1: TStatusBar; OpenDialog1: TOpenDialog; ImageList1: TImageList; procedure FormCreate(Sender: TObject); procedure mmSysUserClick(Sender: TObject); private { Private declarations } public UName: String; { Public declarations } end; var Frm_Main: TFrm_Main; implementation uses U_Public; {$R *.dfm} procedure TFrm_Main.FormCreate(Sender: TObject); begin Font.Name:='Arial'; UName:=Frm_DataModule.ADO_User.FieldByName('User_Name').AsString; end; procedure TFrm_Main.mmSysUserClick(Sender: TObject); var DLLName: String; DLLHandle: THandle; FarProc: TFarProc; Form: TForm; SetUseName: TSetUseName; GetForm: TGetForm; InitDLL: TInitDLL; begin GetDir(0,DLLName); DLLName := DLLName + '\DLLUSERS.dll'; DLLHandle:= SafeLoadLibrary(DLLName); if DLLHandle > 0 then Try FarProc := GetProcAddress(DLLHandle, 'InitDLL'); if FarProc<>nil then begin InitDLL := TInitDLL(FarProc); InitDLL(Frm_DataModule); end; FarProc := GetProcAddress(DLLHandle, 'SetUseName'); if FarProc<>nil then begin SetUseName := TSetUseName(FarProc); SetUseName(PChar(Trim(UName))); end; FarProc := GetProcAddress(DLLHandle, 'GetForm'); if FarProc<>nil then begin GetForm := TGetForm(FarProc); Form := GetForm('TFrm_Users', Frm_DataModule).Create(nil); Form.ShowModal; FreeAndNil(Form); end; Finally FreeLibrary(DLLHandle); End else ShowMessage(DLLName+'文件不存在!'); end; end. ``` ``` 以上第一次运行数据都是可以正确显示的,可是关闭调用出来的DLL内部窗体后,再次调用就出现错误了,错误提示为Read of address 00000008,这是为什么呢?

求救!!! 调用一个DLL文件的函数,提供的调用方法好像是Delphi,VB怎么调用!

# 提供的调用方法如下 ## 3.2 封装模式 接口动态库的文件名为nxmi.dll,HIS直接调用nxmi.dll, 调用之前请先安装读卡环境,安装程序为inst.exe。 ## 3.3 调用方法 对外提供的接口函数: Procedure invoke(params :PChar; result : PChar) ; 我现在在VB中写的如下: 在模块下定义 Public Declare Function invoke Lib "nxmi.dll" (ByVal strIn As Byte, ByRef strOut As Byte) As String 在窗体内的代码如下 Private Sub Command1_Click() Dim gstrIn() As Byte Dim gstrOut As String gstrIn = "{functionname:''bizbuss'',params:{hid:'''" & gstrHid & "''',biztyp e: '''" & strBiztype & "''',ip:'''" & gstrIp & "''' ,indata:'''" & "<?xml version=""1.0"" encoding=""GBK""><DATA><HEAD><VER>01.01</VER><APP>J2</APP><WorkDate>20151019</WorkDate><Reserve></Reserve><ErrCode>0</ErrCode><ErrDetail></ErrDetail></HEAD><MSG><HEAD><YLJGDM>03000025</YLJGDM><JYRQ>20151019112525</JYRQ><MZZYBZ>0</MZZYBZ><ZXBXBZ>0</ZXBXBZ><ZHCXBZ>0</ZHCXBZ><DKXXBZ>1</DKXXBZ><PWD>1</PWD></HEAD></MSG></DATA>" & "''' }}" gstrOut = invoke(gstrIn, "") End Sub 执行的时候回提示类型不匹配,那我的入参应该如何带进去

delphi 语言调用C++的DLL, 怎么接收参数是引用?

delphi 调用C++的Dll,函数参数的引用,delphi 调用的时候该怎么接收啊? ![图片说明](https://img-ask.csdn.net/upload/201905/05/1557036804_556551.jpg) 就像这样,delphi该怎么用啊

delphi 封装程序到DLL里?

一个EXE程序,有一个主窗体,2个调用的窗体。 可以把这个程序封装到DLL里吗,有其他程序调用这个DLL里的程序且功能可以用? 请问可以吗,如何实现啊?

PB 调用DLL 返回值为乱码

PB 使用SMS.DLL在PB中调用时,发现返回值为乱码。 推测异常原因可能是: DLL中定义的数据类型与PB数据类型不同造成。 使用DELPHI调用相同的DLL,返回值正常。 //DLL声明 function uint Sms_Connection(string CopyRight,uint Com_Port,uint Com_BaudRate,ref string Mobile_Type,ref string CopyRightToCOM)library "sms.dll" alias for "Sms_Connection;Ansi" //PB代码 integer li_com,li_rc string ls_type string str_copyright string str_copyrighttocom ls_type = space(5000) str_CopyRight='//上海迅赛信息技术有限公司,网址www.xunsai.com//' if ddlb_com.text = '' or isnull(ddlb_com.text) then messagebox('','连接不能为空!') return end if li_com = integer(ddlb_com.text) li_rc = sms_connection(str_copyright,li_com,9600,ls_type,str_copyrighttocom) if li_rc > 0 then st_mobile.text = string(ls_type) messagebox(string(len(trim(ls_type))),trim(ls_type)) messagebox('','连接成功!') cb_1.enabled = false cb_2.enabled = true else messagebox('','连接失败!') cb_1.enabled = true cb_2.enabled = false end if

Delphi 调用C++调用Dll问题

C++ Dll里面定义的函数头/*COMMON_LIB_API unsigned long __stdcall cmm_DESDecrypt( unsigned char *Key,__int16 KeyLen, unsigned char *Source, unsigned long SrcLen, unsigned char *result, __int16 PadMode /*= COMMON_LIB_DES_PAD_00*/ 请问Delphi 里面要怎么定义函数头

C#程序调用Dll库的问题,在我的电脑上可以运行,在别人电脑上就不行?

错误提示: 试图加载格式不正确的程序。(异常来自HRESULT: 0x8007000B) ![图片说明](https://img-ask.csdn.net/upload/201806/15/1529030334_177541.png) 可能原因:我的Dll库在生成时有依赖一个lib库文件,libeay32.lib,位于SysWOW64文件夹下。 请教大神,该如何解决呢?

替换Delphi中调用的dll

在一段Delphi编写的dll中调用了另外一个一个A.dll,现在想将这个A.dll替换为自己写的B.dll。只是知道A大概的功能,B是自己写的,中间需要注意些什么?

Delphi的DLL中的声明的类型的问题

假如我在DLL中新定义了一个类,并且声明了 一个变量,那么我在加载这个DLL的程序中想要使用这个变量,需不需要重新将对应类型声明再在这个程序的源码文件中再声明一遍? 就是怎么能让DLL中定义的新的数据类型也在加载它的程序中使用?

delphi 调用DLL里的鼠标光标资源?

delphi 调用DLL里的鼠标光标资源? 如题 DLL已经封装好了,但是调用不会了,动态加载DLL调用鼠标指针资源。

初级玩转Linux+Ubuntu(嵌入式开发基础课程)

课程主要面向嵌入式Linux初学者、工程师、学生 主要从一下几方面进行讲解: 1.linux学习路线、基本命令、高级命令 2.shell、vi及vim入门讲解 3.软件安装下载、NFS、Samba、FTP等服务器配置及使用

我以为我对Mysql事务很熟,直到我遇到了阿里面试官

太惨了,面试又被吊打

Python代码实现飞机大战

文章目录经典飞机大战一.游戏设定二.我方飞机三.敌方飞机四.发射子弹五.发放补给包六.主模块 经典飞机大战 源代码以及素材资料(图片,音频)可从下面的github中下载: 飞机大战源代码以及素材资料github项目地址链接 ————————————————————————————————————————————————————————— 不知道大家有没有打过飞机,喜不喜欢打飞机。当我第一次接触这个东西的时候,我的内心是被震撼到的。第一次接触打飞机的时候作者本人是身心愉悦的,因为周边的朋友都在打飞机, 每

Python数据分析与挖掘

92讲视频课+16大项目实战+源码+¥800元课程礼包+讲师社群1V1答疑+社群闭门分享会=99元 &nbsp; 为什么学习数据分析? &nbsp; &nbsp; &nbsp; 人工智能、大数据时代有什么技能是可以运用在各种行业的?数据分析就是。 &nbsp; &nbsp; &nbsp; 从海量数据中获得别人看不见的信息,创业者可以通过数据分析来优化产品,营销人员可以通过数据分析改进营销策略,产品经理可以通过数据分析洞察用户习惯,金融从业者可以通过数据分析规避投资风险,程序员可以通过数据分析进一步挖掘出数据价值,它和编程一样,本质上也是一个工具,通过数据来对现实事物进行分析和识别的能力。不管你从事什么行业,掌握了数据分析能力,往往在其岗位上更有竞争力。 &nbsp;&nbsp; 本课程共包含五大模块: 一、先导篇: 通过分析数据分析师的一天,让学员了解全面了解成为一个数据分析师的所有必修功法,对数据分析师不在迷惑。 &nbsp; 二、基础篇: 围绕Python基础语法介绍、数据预处理、数据可视化以及数据分析与挖掘......这些核心技能模块展开,帮助你快速而全面的掌握和了解成为一个数据分析师的所有必修功法。 &nbsp; 三、数据采集篇: 通过网络爬虫实战解决数据分析的必经之路:数据从何来的问题,讲解常见的爬虫套路并利用三大实战帮助学员扎实数据采集能力,避免没有数据可分析的尴尬。 &nbsp; 四、分析工具篇: 讲解数据分析避不开的科学计算库Numpy、数据分析工具Pandas及常见可视化工具Matplotlib。 &nbsp; 五、算法篇: 算法是数据分析的精华,课程精选10大算法,包括分类、聚类、预测3大类型,每个算法都从原理和案例两个角度学习,让你不仅能用起来,了解原理,还能知道为什么这么做。

如何在虚拟机VM上使用串口

在系统内核开发中,经常会用到串口调试,利用VMware的Virtual Machine更是为调试系统内核如虎添翼。那么怎么搭建串口调试环境呢?因为最近工作涉及到这方面,利用强大的google搜索和自己

程序员的兼职技能课

获取讲师答疑方式: 在付费视频第一节(触摸命令_ALL)片头有二维码及加群流程介绍 限时福利 原价99元,今日仅需39元!购课添加小助手(微信号:csdn590)按提示还可领取价值800元的编程大礼包! 讲师介绍: 苏奕嘉&nbsp;前阿里UC项目工程师 脚本开发平台官方认证满级(六级)开发者。 我将如何教会你通过【定制脚本】赚到你人生的第一桶金? 零基础程序定制脚本开发课程,是完全针对零脚本开发经验的小白而设计,课程内容共分为3大阶段: ①前期将带你掌握Q开发语言和界面交互开发能力; ②中期通过实战来制作有具体需求的定制脚本; ③后期将解锁脚本的更高阶玩法,打通任督二脉; ④应用定制脚本合法赚取额外收入的完整经验分享,带你通过程序定制脚本开发这项副业,赚取到你的第一桶金!

MFC一站式终极全套课程包

该套餐共包含从C小白到C++到MFC的全部课程,整套学下来绝对成为一名C++大牛!!!

C++语言基础视频教程

C++语言基础视频培训课程:本课与主讲者在大学开出的程序设计课程直接对接,准确把握知识点,注重教学视频与实践体系的结合,帮助初学者有效学习。本教程详细介绍C++语言中的封装、数据隐藏、继承、多态的实现等入门知识;主要包括类的声明、对象定义、构造函数和析构函数、运算符重载、继承和派生、多态性实现等。 课程需要有C语言程序设计的基础(可以利用本人开出的《C语言与程序设计》系列课学习)。学习者能够通过实践的方式,学会利用C++语言解决问题,具备进一步学习利用C++开发应用程序的基础。

北京师范大学信息科学与技术学院笔试10复试真题

北京师范大学信息科学与技术学院笔试,可以更好的让你了解北师大该学院的复试内容,获得更好的成绩。

深度学习原理+项目实战+算法详解+主流框架(套餐)

深度学习系列课程从深度学习基础知识点开始讲解一步步进入神经网络的世界再到卷积和递归神经网络,详解各大经典网络架构。实战部分选择当下最火爆深度学习框架PyTorch与Tensorflow/Keras,全程实战演示框架核心使用与建模方法。项目实战部分选择计算机视觉与自然语言处理领域经典项目,从零开始详解算法原理,debug模式逐行代码解读。适合准备就业和转行的同学们加入学习! 建议按照下列课程顺序来进行学习 (1)掌握深度学习必备经典网络架构 (2)深度框架实战方法 (3)计算机视觉与自然语言处理项目实战。(按照课程排列顺序即可)

网络工程师小白入门--【思科CCNA、华为HCNA等网络工程师认证】

本课程适合CCNA或HCNA网络小白同志,高手请绕道,可以直接学习进价课程。通过本预科课程的学习,为学习网络工程师、思科CCNA、华为HCNA这些认证打下坚实的基础! 重要!思科认证2020年2月24日起,已启用新版认证和考试,包括题库都会更新,由于疫情原因,请关注官网和本地考点信息。题库网络上很容易下载到。

Python界面版学生管理系统

前不久上传了一个控制台版本的学生管理系统,这个是Python界面版学生管理系统,这个是使用pycharm开发的一个有界面的学生管理系统,基本的增删改查,里面又演示视频和完整代码,有需要的伙伴可以自行下

软件测试2小时入门

本课程内容系统、全面、简洁、通俗易懂,通过2个多小时的介绍,让大家对软件测试有个系统的理解和认识,具备基本的软件测试理论基础。 主要内容分为5个部分: 1 软件测试概述,了解测试是什么、测试的对象、原则、流程、方法、模型;&nbsp; 2.常用的黑盒测试用例设计方法及示例演示;&nbsp; 3 常用白盒测试用例设计方法及示例演示;&nbsp; 4.自动化测试优缺点、使用范围及示例‘;&nbsp; 5.测试经验谈。

Tomcat服务器下载、安装、配置环境变量教程(超详细)

未经我的允许,请不要转载我的文章,在此郑重声明!!! 请先配置安装好Java的环境,若没有安装,请参照我博客上的步骤进行安装! 安装Java环境教程https://blog.csdn.net/qq_40881680/article/details/83585542 Tomcat部署Web项目(一)·内嵌https://blog.csdn.net/qq_40881680/article/d...

2019数学建模A题高压油管的压力控制 省一论文即代码

2019数学建模A题高压油管的压力控制省一完整论文即详细C++和Matlab代码,希望对同学们有所帮助

图书管理系统(Java + Mysql)我的第一个完全自己做的实训项目

图书管理系统 Java + MySQL 完整实训代码,MVC三层架构组织,包含所有用到的图片资源以及数据库文件,大三上学期实训,注释很详细,按照阿里巴巴Java编程规范编写

linux下利用/proc进行进程树的打印

在linux下利用c语言实现的进程树的打印,主要通过/proc下的目录中的进程文件,获取status中的进程信息内容,然后利用递归实现进程树的打印

微信小程序开发实战之番茄时钟开发

微信小程序番茄时钟视频教程,本课程将带着各位学员开发一个小程序初级实战类项目,针对只看过官方文档而又无从下手的开发者来说,可以作为一个较好的练手项目,对于有小程序开发经验的开发者而言,可以更好加深对小程序各类组件和API 的理解,为更深层次高难度的项目做铺垫。

[已解决]踩过的坑之mysql连接报“Communications link failure”错误

目录 前言 第一种方法: 第二种方法 第三种方法(适用于项目和数据库在同一台服务器) 第四种方法 第五种方法(项目和数据库不在同一台服务器) 总结 前言 先给大家简述一下我的坑吧,(我用的是mysql,至于oracle有没有这样的问题,有心的小伙伴们可以测试一下哈), 在自己做个javaweb测试项目的时候,因为买的是云服务器,所以数据库连接的是用ip地址,用IDE开发好...

人工智能-计算机视觉实战之路(必备算法+深度学习+项目实战)

系列课程主要分为3大阶段:(1)首先掌握计算机视觉必备算法原理,结合Opencv进行学习与练手,通过实际视项目进行案例应用展示。(2)进军当下最火的深度学习进行视觉任务实战,掌握深度学习中必备算法原理与网络模型架构。(3)结合经典深度学习框架与实战项目进行实战,基于真实数据集展开业务分析与建模实战。整体风格通俗易懂,项目驱动学习与就业面试。 建议同学们按照下列顺序来进行学习:1.Python入门视频课程 2.Opencv计算机视觉实战(Python版) 3.深度学习框架-PyTorch实战/人工智能框架实战精讲:Keras项目 4.Python-深度学习-物体检测实战 5.后续实战课程按照自己喜好选择就可以

2019 AI开发者大会

2019 AI开发者大会(AI ProCon 2019)是由中国IT社区CSDN主办的AI技术与产业年度盛会。多年经验淬炼,如今蓄势待发:2019年9月6-7日,大会将有近百位中美顶尖AI专家、知名企业代表以及千余名AI开发者齐聚北京,进行技术解读和产业论证。我们不空谈口号,只谈技术,诚挚邀请AI业内人士一起共铸人工智能新篇章!

机器学习初学者必会的案例精讲

通过六个实际的编码项目,带领同学入门人工智能。这些项目涉及机器学习(回归,分类,聚类),深度学习(神经网络),底层数学算法,Weka数据挖掘,利用Git开源项目实战等。

Python数据分析师-实战系列

系列课程主要包括Python数据分析必备工具包,数据分析案例实战,核心算法实战与企业级数据分析与建模解决方案实战,建议大家按照系列课程阶段顺序进行学习。所有数据集均为企业收集的真实数据集,整体风格以实战为导向,通俗讲解Python数据分析核心技巧与实战解决方案。

YOLOv3目标检测实战系列课程

《YOLOv3目标检测实战系列课程》旨在帮助大家掌握YOLOv3目标检测的训练、原理、源码与网络模型改进方法。 本课程的YOLOv3使用原作darknet(c语言编写),在Ubuntu系统上做项目演示。 本系列课程包括三门课: (1)《YOLOv3目标检测实战:训练自己的数据集》 包括:安装darknet、给自己的数据集打标签、整理自己的数据集、修改配置文件、训练自己的数据集、测试训练出的网络模型、性能统计(mAP计算和画出PR曲线)和先验框聚类。 (2)《YOLOv3目标检测:原理与源码解析》讲解YOLOv1、YOLOv2、YOLOv3的原理、程序流程并解析各层的源码。 (3)《YOLOv3目标检测:网络模型改进方法》讲解YOLOv3的改进方法,包括改进1:不显示指定类别目标的方法 (增加功能) ;改进2:合并BN层到卷积层 (加快推理速度) ; 改进3:使用GIoU指标和损失函数 (提高检测精度) ;改进4:tiny YOLOv3 (简化网络模型)并介绍 AlexeyAB/darknet项目。

2021考研数学张宇基础30讲.pdf

张宇:博士,全国著名考研数学辅导专家,教育部“国家精品课程建设骨干教师”,全国畅销书《张宇高等数学18讲》《张宇线性代数9讲》《张宇概率论与数理统计9讲》《张宇考研数学题源探析经典1000题》《张宇考

三个项目玩转深度学习(附1G源码)

从事大数据与人工智能开发与实践约十年,钱老师亲自见证了大数据行业的发展与人工智能的从冷到热。事实证明,计算机技术的发展,算力突破,海量数据,机器人技术等,开启了第四次工业革命的序章。深度学习图像分类一直是人工智能的经典任务,是智慧零售、安防、无人驾驶等机器视觉应用领域的核心技术之一,掌握图像分类技术是机器视觉学习的重中之重。针对现有线上学习的特点与实际需求,我们开发了人工智能案例实战系列课程。打造:以项目案例实践为驱动的课程学习方式,覆盖了智能零售,智慧交通等常见领域,通过基础学习、项目案例实践、社群答疑,三维立体的方式,打造最好的学习效果。

DirectX修复工具V4.0增强版

DirectX修复工具(DirectX Repair)是一款系统级工具软件,简便易用。本程序为绿色版,无需安装,可直接运行。 本程序的主要功能是检测当前系统的DirectX状态,如果发现异常则进行修复

期末考试评分标准的数学模型

大学期末考试与高中的考试存在很大的不同之处,大学的期末考试成绩是主要分为两个部分:平时成绩和期末考试成绩。平时成绩和期末考试成绩总分一般为一百分,然而平时成绩与期末考试成绩所占的比例不同会导致出现不同

Vue.js 2.0之全家桶系列视频课程

基于新的Vue.js 2.3版本, 目前新全的Vue.js教学视频,让你少走弯路,直达技术前沿! 1. 包含Vue.js全家桶(vue.js、vue-router、axios、vuex、vue-cli、webpack、ElementUI等) 2. 采用笔记+代码案例的形式讲解,通俗易懂

c语言项目开发实例

十个c语言案例 (1)贪吃蛇 (2)五子棋游戏 (3)电话薄管理系统 (4)计算器 (5)万年历 (6)电子表 (7)客户端和服务器通信 (8)潜艇大战游戏 (9)鼠标器程序 (10)手机通讯录系统

相关热词 c# 不能序列化继承类 c# char* 调用 c# 开发dll模板 c#添加控件到工具箱 c#控制台组合数 编程计算猴子吃桃问题c# c# wpf 背景透明 随机抽取号码软件c# c# 开发环境 c# 属性和字段
立即提问