[100分求救]DELPHI调用VB写的DLL的过程为什么提示找不到入口!在线 [问题点数:100分,结帖人tpmao]

Bbs5
本版专家分:3704
结帖率 100%
Bbs9
本版专家分:74146
Blank
进士 2008年 总版技术专家分年内排行榜第九
Blank
红花 2009年1月 C++ Builder大版内专家分月排行榜第一
2008年12月 Delphi大版内专家分月排行榜第一
2008年11月 Delphi大版内专家分月排行榜第一
2008年10月 Delphi大版内专家分月排行榜第一
2008年6月 Delphi大版内专家分月排行榜第一
2008年1月 Delphi大版内专家分月排行榜第一
2005年7月 C++ Builder大版内专家分月排行榜第一
Blank
黄花 2009年1月 Delphi大版内专家分月排行榜第二
2008年12月 C++ Builder大版内专家分月排行榜第二
2008年7月 Delphi大版内专家分月排行榜第二
2005年7月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2009年5月 Delphi大版内专家分月排行榜第三
2009年4月 Delphi大版内专家分月排行榜第三
2009年3月 Delphi大版内专家分月排行榜第三
2009年2月 C++ Builder大版内专家分月排行榜第三
2009年2月 Delphi大版内专家分月排行榜第三
2008年11月 C++ Builder大版内专家分月排行榜第三
2008年8月 C++ Builder大版内专家分月排行榜第三
2008年7月 C++ Builder大版内专家分月排行榜第三
2008年6月 C++ Builder大版内专家分月排行榜第三
2008年5月 Delphi大版内专家分月排行榜第三
2005年8月 C++ Builder大版内专家分月排行榜第三
Bbs5
本版专家分:3704
Bbs4
本版专家分:1811
Bbs2
本版专家分:112
Bbs9
本版专家分:74146
Blank
进士 2008年 总版技术专家分年内排行榜第九
Blank
红花 2009年1月 C++ Builder大版内专家分月排行榜第一
2008年12月 Delphi大版内专家分月排行榜第一
2008年11月 Delphi大版内专家分月排行榜第一
2008年10月 Delphi大版内专家分月排行榜第一
2008年6月 Delphi大版内专家分月排行榜第一
2008年1月 Delphi大版内专家分月排行榜第一
2005年7月 C++ Builder大版内专家分月排行榜第一
Blank
黄花 2009年1月 Delphi大版内专家分月排行榜第二
2008年12月 C++ Builder大版内专家分月排行榜第二
2008年7月 Delphi大版内专家分月排行榜第二
2005年7月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2009年5月 Delphi大版内专家分月排行榜第三
2009年4月 Delphi大版内专家分月排行榜第三
2009年3月 Delphi大版内专家分月排行榜第三
2009年2月 C++ Builder大版内专家分月排行榜第三
2009年2月 Delphi大版内专家分月排行榜第三
2008年11月 C++ Builder大版内专家分月排行榜第三
2008年8月 C++ Builder大版内专家分月排行榜第三
2008年7月 C++ Builder大版内专家分月排行榜第三
2008年6月 C++ Builder大版内专家分月排行榜第三
2008年5月 Delphi大版内专家分月排行榜第三
2005年8月 C++ Builder大版内专家分月排行榜第三
C# 调用C#写的DLL提示找不到入口
RT... 究竟是什么问题,需要在DLL中生命主方法还是怎么样rn<em>调用</em>方式是通过[<em>dll</em>Import("")]
为什么vb 调用 vc 的dll 找不到入口
<em>为什么</em><em>vb</em> <em>调用</em> vc 的<em>dll</em> <em>找不到</em><em>入口</em>点 这是什么原因 急 <em>在线</em>等rnPrivate Declare Function setString Lib "C:\Documents and Settings\Administrator\桌面\项目开发\NewPro\Debug\NewPro.<em>dll</em>" (ByVal d As Integer) As Longrnrnextern "C" __declspec(<em>dll</em>export) int __stdcall setString(int i)rnrn没有定义def文件
VB调用DELPHI写的DLL
'function ReadIcCard(ComName:Pchar;out sIcNo, sEmpNo, sEmpName, sEmpSex, sPassword,rn' sEmpUnitName, sEmpRylb, sEmpQxh, InHosp, HospCode: shortstring;rn' var intHospNum, intOldYear: integer;rn' var curNNTcyz, curNNDEYZ, curMTYZ, GZYE, MZQFLJ: Double): integer; export;rn'上面是<em>delphi</em>写的DLL函数定义原形,在VB里面怎么定义啊?? rn'注意:不要说DLL有问题,因为已经有人使用了.哈哈rn'下面是我写的没有成功rnrnPrivate Declare Function ReadIcCard Lib "HospPolicy.<em>dll</em>" (ByVal ComName As String, ByRef sIcNo As String, _rn ByRef sEmpNo As String, ByRef sEmpName As String, ByRef sEmpSex As String, ByRef sPassWord As String, _rn ByRef sEmpUnitName As String, ByRef sEmpRylb As String, ByRef sEmpQxh As String, ByRef InHosp As String, _rn ByRef HospCode As String, ByRef intHospNum As Integer, ByRef intOldYear As Integer, ByRef curNNTcyz As Double, _rn ByRef curNNDEYZ As Double, ByRef curMTYZ As Double, ByRef GZYE As Double, ByRef MZQFLJ As Double) As LongrnrnPrivate Sub Command1_Click()rn Dim ichandle As Longrn Dim ComName As Stringrn Dim sIcNo As Stringrn Dim sEmpNo As Stringrn Dim sEmpName As Stringrn Dim sEmpSex As Stringrn Dim sPassWord As Stringrn Dim sEmpUnitName As Stringrn Dim sEmpRylb As Stringrn Dim sEmpQxh As Stringrn Dim InHosp As Stringrn Dim HospCode As Stringrnrn Dim intHospNum, intOldYear As Integerrn Dim curNNTcyz, curNNDEYZ, curMTYZ, GZYE, MZQFLJ As Doublern rn ComName = "COM1"rn ichandle = ReadIcCard(ComName, sIcNo, sEmpNo, sEmpName, sEmpSex, _rn sPassWord, sEmpUnitName, sEmpRylb, sEmpQxh, InHosp, HospCode, _rn intHospNum, intOldYear, curNNTcyz, curNNDEYZ, curMTYZ, GZYE, MZQFLJ)rn If ichandle = 0 Thenrn MsgBox ("NOT")rn End Ifrn rnrnEnd Subrn
Delphi调用VB写的DLL
请问Delphi能不能<em>调用</em>VB写的DLL,<em>为什么</em>这的会出错,代码如下:rnvarrn Form1: TForm1;rn function GetRecordCount(ComPortNo, ComPortSpeed, MachineNo, RecordCount:integer):integer; external 'IccodeA.<em>dll</em>' ;rnrnimplementationrn rnrn$R *.DFMrnrnprocedure TForm1.Button1Click(Sender: TObject);rnvarrn rc : integer;rnbeginrn GetRecordCount(1,9600,1,rc);rnend;rn结果一编译就<em>提示</em>:无法定位程序输入点 GetRecordCount 于动太链接庫IccodeA.<em>dll</em>上。rnrnDLL说明rn******************rn所有函数返回值:返回短整型rn1 通信口连接超时rn2 操作超时rn8 操作成功rn7 <em>找不到</em>卡钟rn255 传入机号大于255rn所有函数公共传入参数:rnComPortNo 必需的。 短整型值,传入的通讯口号。可为下列之一:1,2,3,4rnComPortSpeed 必需的。 长整型值,传入的通讯口号速率。可为下列之一:9600,19200,38400,57600,115200rnMachineNo 必需的。 短整型值,传入的机器号。范围为:0-255rnrnGetRecord模块只用于收集卡钟数据,只有两个方法成员:GetRecordCount 和 GetRecordrnGetRecordCount(ComPortNo, ComPortSpeed, MachineNo, RecordCount) 返回值:短整型说明:用于取卡钟内刷卡记录总数。rn参数rnRecordCount 必需的。长整型,用于返回指定卡钟内存放的记录总数。rnGetRecord(ComPortNo, ComPortSpeed, MachineNo, CurrentGetTimes,GotRecord() )返回值:短整型说明:用于收集卡钟数据。每<em>调用</em>一次GotRecord()数组返回64条记录。一般先<em>调用</em>GetRecordCount取卡钟内记录总数,确定<em>调用</em>GetRecord次数,再循环<em>调用</em>GetRecord函数取记录。在取完记录后<em>调用</em>SetMachine.DeleteAllData函数将所有刷卡记录删除。rn参数rnCurrentGetTimes 必需的。长整型值。只<em>调用</em>一次本函数时,CurrentGetTimes设为1。当卡钟内记录数超过64条,需要循环<em>调用</em>时,第一次<em>调用</em>时CurrentGetTimes必须为1,第二次到最后一次不能为1,否则只取总记录的前64条。一般CurrentGetTimes设为每<em>调用</em>一次加1。GetRecord<em>调用</em>间隔不能少于150毫秒,否则卡钟会因等不到命令而不发送数据,GetRecord返回2取记录超时。一般把64条记录写入硬盘后应马上进行下一次<em>调用</em>。rnGotRecord() 必需的。 一维字符串数组,用于返回刷卡记录,每次<em>调用</em>返回64条记录。最后一次<em>调用</em>若不足64条则按实际条数返回。rn********************rn
为什么找不到dll入口点?
我把一个函数find封装在my<em>dll</em>.<em>dll</em>里面,<em>dll</em>文件的类如下:rnusing System;rnrnnamespace WindowsApplication8rnrn /// rn /// Class1 的摘要说明。rn /// rn public class class1rn rn private bool find(int[] Model,int[] Source)rn rn int mi,si;rn int ML=Model.Length;rn int SL=Source.Length;rn if(ML>SL)return false;rn for(si=0;siSL)break;rn for(mi=0;mi=0;si--)rn rn if(si+1-ML<0)return false;;rn for(mi=0;mi
为什么找不到dll入口
想练习一下用<em>vb</em>调到vc,<em>提示</em><em>找不到</em><em>dll</em><em>入口</em>点 ,请问这是怎么回事?rnvc代码:rn#include "stdafx.h"rnrnextern "C" __declspec(<em>dll</em>export) int __stdcall Addtwo( int a, int b);rnrnrnrnBOOL APIENTRY DllMain( HANDLE hModule, rn DWORD ul_reason_for_call, rn LPVOID lpReservedrn )rnrn switch( ul_reason_for_call )rn rn case DLL_PROCESS_ATTACH: rn case DLL_THREAD_ATTACH: rn case DLL_THREAD_DETACH: rn case DLL_PROCESS_DETACH:rn break;rn rnrn return TRUE;rnrnrnrnint __stdcall Addtwo(int a,int b)rnrn return a+b ;rnrnrn<em>vb</em>代码:rnOption ExplicitrnPrivate Declare Function Addtwo Lib "Add" (ByVal a, ByVal b) As Longrn rnrnrnPrivate Sub Command1_Click()rnrnDim c As Longrnc = Addtwo(1, 2)rnMsgBox crnrnEnd Subrn谢谢!
dll调用的新问题:找不到dll入口
http://community.csdn.net/Expert/topic/3760/3760642.xml?temp=.4235193
为什么我用VB调用DLL,总是提示找不到呢?
我用VC++编写了一个DLLrn然后把DLL放在和我的VB所制作EXE相同的文件夹,rn<em>调用</em>DLL时代码是这么写的rn[code=VB]rnPrivate Declare Function chessinitial Lib "Quoridor.<em>dll</em>" (ByVal bolgo As Boolean) As IntegerrnPrivate Declare Function sendchess Lib "Quoridor.<em>dll</em>" (ByVal x As Long, ByVal y As Long, ByVal side As Long) As LongrnPrivate Declare Function sendfenceh Lib "Quoridor.<em>dll</em>" _rn (ByVal posx As Long, ByVal posy As Long, ByVal side As Long) As LongrnPrivate Declare Function sendfencev Lib "Quoridor.<em>dll</em>" _rn(ByVal posx As Long, ByVal posy As Long, ByVal side As Long) As LongrnPrivate Declare Function AIGO Lib "Quoridor.<em>dll</em>" () As aichessrn[/code]rnrn在本机运行毫无问题rn但是打包给我朋友rn他在他那台机器上运行,就<em>提示</em>Runtime-error:53,<em>找不到</em>XXXX.DLL的错误信息rnrn我仔细检查过该DLL,并没有什么特殊的依赖项,这是怎么回事呢?
shell_notifyicon API,提示找不到DLL入口的信息
请问出错在什么地方呢?
为什么告诉我找不到DLL中某个过程入口
同上。谢谢
vb写的dllvb.net中 怎么用dllImport来调用啊???老是提示找不到入口点!!
请告诉帮忙啊!
VC++ Dll 问题:为什么在VB中调用提示找不到入口点”?
rn 函数如下:rnextern "C" _declspec(<em>dll</em>export) rndouble _stdcall fnSpeed (long lngBegin, long lngEnd)rnrn //....rnrnrn 在VB中声明如下:rnPrivate Function fnSpeed Lib "Speed.<em>dll</em>" ( _rn ByVal lngLong As Long, _rn ByVal lngLong As Long _rn ) As Doublernrn 运行<em>提示</em> “<em>找不到</em>函数fnSpeed<em>入口</em>点”,去掉 _stdcall 关键字则运行<em>提示</em>“<em>调用</em>约定错误”。无论是 Win32 Dll 还是 MFC Dll(shared Dll) 都是如此。rn 到底是什么原因?请各位指点迷津!rn
找不到DLL入口
<em>找不到</em>DLL<em>入口</em>点 gettickcount in kernel32rn在模块中已经做过声明rn“declare function gettickcount lib "kernel32" as long
找不到DLL入口点?
这个.<em>dll</em>文件是我自已封装的,可我在用时<em>提示</em>:<em>找不到</em><em>入口</em>点Hook in <em>vb</em>MouseWheel.<em>dll</em>rn我这是出了什么问题,请指教等待回复。rn
vb调用delphi dll
我用DEPHI7.0编写了一个DLL,在DELPHI里可以<em>调用</em>,但我不知道怎么在VB里<em>调用</em>,有高手懂请一定赐教,感恩不尽!rn 下面是DLL模块里的部分代码:rn library prjDLL;rn rn usesrn SysUtils,rn Forms,rn Windows,rn Messages,rn Classes,rn DLLFormUnit in 'DLLFormUnit.pas' frmDLLForm,rn AboutUnit in 'AboutUnit.pas' frmAbout,rn sumt_fgh in 'sumt_fgh.pas' Form3;rn rn $R *.resrn rn varrn DLLApp: TApplication;rn DLLScr: TScreen;rn function CreateDLLForm(App: TApplication; Scr: TScreen):TForm;rn rn rn varrn ptr:PLongInt;rn beginrn Application := App;rn Screen := Scr;rn Application.CreateForm(TfrmDLLForm, frmDLLForm);rn Application.CreateForm(TfrmAbout, frmAbout);rn Application.CreateForm(TForm3, Form3);rn result:=frmDLLForm;rn end;rn rn procedure ExitDLL(Reason: Integer);rn beginrn if Reason = DLL_PROCESS_DETACH thenrn beginrn Application := DLLApp;rn Screen := DLLScr;rn end;rn end;rn rn exportsrn CreateDLLForm;rn rn beginrn DLLApp := Application;rn DLLScr := Screen;rn DLLProc := @ExitDLL;rn rn end.
VB 调用delphi DLL
library <em>dll</em>;rnusesrnSysUtils,Classes;rn$R *.RESrnfunction TestDll(const a: string;t:Longint):Longint;stdcall;rnbeginrnif ((a = '')or( t返回结果要求是 5883264rnrn现在还是搞不定,一运算结果就错了,
VB 调用 delphi DLL
<em>delphi</em> DLL文件rnlibrary <em>dll</em>;rnusesrnSysUtils,Classes;rn$R *.RESrnfunction TestDll(var a:string;var t:integer):integer;stdcall;rnbeginrnresult:=StrToInt64(a)+ t ;//转换成数字rnend;rnexportsrnTestDll;rnbeginrnend.rnrnrnrnPrivate Declare Function TestDll Lib "<em>dll</em>.<em>dll</em>" (ByVal a As String, ByVal t As Long) As LongrnPrivate Sub Command1_Click()rnMsgBox TestDll("12451", 11124)rnEnd Subrnrn不知道什么地方错了,只要在VB里面一点Command1 程序就错误了, 我看是 StrToInt64(a);的错误,改成1就不出错了,不知道<em>为什么</em>.rn我只是在VB里面传文本16位的数字到DLL 里面在转成int类型 结果就错了,那位帮我看看,.不好意思,没分给,只能说句感谢了
dll找不到入口
用VC做了一个DLL如下rn// SimDll.cpp : Defines the entry point for the DLL application.rn//rnrn#include "stdafx.h"rn#include "string.h"rnrn__declspec(<em>dll</em>export) int __stdcall foo(const char * );rnrnrnrnrnBOOL APIENTRY DllMain( HANDLE hModule, rn DWORD ul_reason_for_call, rn LPVOID lpReservedrn )rnrn return TRUE;rnrnrnint __stdcall foo(const char * name)rnrn MessageBox(NULL, "Enter Dll","Hint",MB_OK);rn return strlen(name);rnrnrn在VB中声明,<em>调用</em>如下rnPublic Declare Function foo Lib "SimDll.<em>dll</em>" (ByVal strName As String) As LongrnrnDim NameLen As LongrnrnNameLen = foo("come on baby!")rnrn(在VC中能正常<em>调用</em>)rnrn在CB中报错如下rnRuntime error "453"rnCan't find DLL entry point foo in SimDll.<em>dll</em>
找不到Dll入口点??
我用Vc编写了一个修改屏幕分辨率的Dll,函数名为extern "C" __declspec (<em>dll</em>export) BOOL CALLBACK ChangeDisplaySetting(); 然后在VB中<em>调用</em>,先声明Public Declare Function ChangeDisplaySetting Lib "e:\temp\EdrLib.<em>dll</em>" () As Boolean,然后<em>调用</em>rnrnPrivate Sub Command1_Click()rn Dim i As Booleanrn i = ChangeDisplaySettingrnEnd SubrnrnVB总是<em>提示</em>我 <em>找不到</em>Dll<em>入口</em>点,实时错误453,<em>为什么</em>??rnrn
用 VB 编写的 DLL,找不到入口?!!
编写Remote Hook是要求把HookFunction 放在DLL 中。于是我就用VB编写了一个ActiveX Dll,在另一个工程中引用,声明:rnPublic Declare Function HookFunc Lib "HookFuncDll.<em>dll</em>" () as Longrn结果运行是老<em>提示</em>无法找到HookFunc<em>入口</em>。rn怎么办?请各位大哥帮忙,谢谢。
找不到DLL入口点!
大家帮我看看。rn rn api函数的定义是:rn  bool AGENTAPI APIBind_Mode(struct USSD_SMPP_STRUCT *,long Mode)rn  VB中的声明是:rn  Public Declare Function Bind_Mode Lib "d:\agent<em>dll</em>.<em>dll</em>" Alias "APIBind_Mode" (SmppData As USSD_SMPP_STRUCT, ByVal Mode As Long) As Longrn  VB中的<em>调用</em>是:rn  Dim ussd_smpp As USSD_SMPP_STRUCTrn  Dim long1 As Longrn long1 = 1rn Flag1 = Bind_Mode(ussd_smpp, long1)rn  VB执行后,Flag1 = Bind_Mode(ussd_smpp, long1)这条语句出现实时错误'453',<em>找不到</em>DLL<em>入口</em>点APIBind_Mode in "agent<em>dll</em>.<em>dll</em>".rn  这是<em>为什么</em>?rn  资料显示可能是大小写的问题,但我核对过,应该没问题,那问题出在哪里呢?rn
关于Delphi调用VB写的dll问题?
请各位说说具体的用法rnrn基本类名称:clsOABasernrn使用方法:直接在本地计算机中注册服务器中(路径:\\ztoa_server\dzoaserver)的 文件OABAse.<em>dll</em>,然后在对应VB工程中(包括所有API和“邮件上报服务”、“OAWatch”)直接引用该动态连接库。rnrn基本函数(及接口参数说明)说明:rn1.Public Function GetMessage(Optional strServer As String, Optional strDataBase As String, Optional strUID As String, _rnOptional lngPerson As Long, Optional strDate As String, Optional strPass As String, Optional strsaPass As String) As Stringrn作用:<em>调用</em>打开SQL Server数据库有关信息函数rn参数说明:strServer:数据库服务器名rn strDataBase:数据库名称rn strUID:数据库用户名rn lngPerson:使用软件的人数控制rn strDate:软件的有效日期rn strPass:数据库用户口令rn strsaPass:数据库管理员口令rn 说明:通过这几个形参,可获得相应信息。rn返回值:正确时,返回为空;否则,返回出错原因。rn2.Public Function GetFJLXBMByFJName(ByVal strFJFileName As String, ByVal Conn As ADODB.Connection) As Stringrn作用:根据附件名称,获得附件类型编码。rn参数说明:strFJFileName:附件名称(完整的文件名,如“Main.bmp”)rn Conn:数据库的ADO连接对象rn返回值:附件类型编码(可能为空)。rn3.Public Function ShareString(cStrAuth As String, cChart As String) As Stringrn 作用:拆分以cChart分隔的字符串cStrAuthrn 参数说明:cStrAuth:被拆分串rn cChart:分隔字符rn 返回值:拆分后的结果值rn4.Public Function StrCount(string1, string2) As Integerrn 作用:string2在string1中出现的次数rn返回值:string2在string1中出现的次数rn5.Public Sub WriteWrongLog(strTime As String, lngErrNumber As Long, strErrDescipt As String, Optional strSqlScript As String = "", Optional strErrSource As String = "")rn作用:写错误报告<em>过程</em>(程序出错后,<em>调用</em>本<em>过程</em>),将自动生成文件WrongReport.txt,或向该文件中追加错误行。rn参数说明:strTime:出错时间,一般传Time()函数rn lngErrNumber:出错代码,一般传Err.Numberrn strErrDescipt:出错描述,一般传Err.Descriptionrn strSqlScript:出错时的SQL语句rn strErrSource:出错的<em>过程</em>或函数名rn
有关VB调用DELPHI写的DLL问题
我用DELPHI6写了一个DLL,目前在VB中能<em>调用</em>并返回正确结果,但有点小问题:VB程序退出时,说XXXXX内存不能WRITE。rn仔细考虑后,我怀疑是以下原因:VB<em>调用</em>DLL时用STRING类型的参数并BYREF传递地址,DLL中给该STRING类型的参数赋值(该参数的内存实际上是在DLL中分配的)。VB退出时,自动释放内存,但上述STRING类型参数的内存由于是DLL分配的,无法释放,造成错误。rn为了验证我的推测,我又写了一个DLL,用INTEGER做参数,结果不会错误。INTEGER类型的参数的内存是在VB中声明时分配的。rnrn现有以下问题:1、我的推测是否正确?2、如何解决STRING类型参数问题?rn谢谢高手指点,感激不尽。rn
VB写的DLL在DELPHI中能调用吗?
想确定一下
vb调用delphi写的dll文件
<em>delphi</em>本身<em>调用</em>自己的<em>dll</em>,如何通过<em>vb</em><em>调用</em>Project2.<em>dll</em> 并显示TForm_YZ窗体rnprocedure TForm1.btn2Click(Sender: TObject);rntypern TGetForm1= function(classname: PChar):TFormClass;stdcall;rnvarrn Th : THandle;rn Tf : TGetForm1;rn Tp : TFarProc;rn Forma : TForm;rn beginrn Th :=LoadLibrary('Project2.<em>dll</em>');rn if Th>0 thenrn tryrn Tp:=GetProcAddress(Th,'GetForms');rn if Tp <> nil thenrn beginrn Tf := TGetForm(Tp);rn Forma := Tf('TForm_YZ').create(nil);rn Forma.ShowModal;rn end;rn finallyrn Forma.Destroy;rn FreeLibrary(Th);rn end;rn rn end;
Delphi调用VB写的DLL问题?
VB写的DLL中类模块中的函数如下:rnfunction t()rna=1rnt=arnend functionrnrn请问如何在Delphi中<em>调用</em>这个DLL,及如何取得DLL中类模块的返回值,请写出源代码.
VB调用Delphi写的dll问题,急
用d写的一个<em>dll</em>函数,参数有4个,integer,double,pchar,pchar,最后一个参数必须是传址的,因为要返回东西,现在在d中<em>调用</em>测试成功,但在<em>vb</em>a中测试如果参数不定义成ByVal或<em>调用</em>使用变量时结果就是乱码,数值也错误.我要怎么<em>调用</em>才行啊,如果要改<em>dll</em>该怎么改?rnfunction f_Trade(FType:Integer;FCode:PChar;sInMsg:PChar;sOutMsg:PChar):Integer;stdcall;export;rnrn
Delphi 写的dll 怎么让vb调用
以下是<em>delphi</em>的<em>dll</em>中部分代码rnlibrary zhjinDll;rn...rn TModuleInfoRec = recordrn lpszModuleName: PChar;rn lpszAuthor: PChar;rn lpszVersion: PCharrn end;rn TModuleInfoPtr = ^TModuleInfoRec;rn...rnprocedure ZhjinEx(MyInfo: Pchar); stdcall;rnbeginrn LStrCpy(MyInfo, 'zhjin Module');rnend;rn...rnprocedure ModuleInfoEx(ModuleInfo: TModuleInfoPtr); stdcall;rnbeginrn with ModuleInfo^ do beginrn LStrCpy(lpszModuleName, 'zhjin Module');rn LStrCpy(lpszAuthor, 'zhjin');rn LStrCpy(lpszVersion, '1.0');rn end;rnend;rnrn以下是<em>vb</em><em>调用</em>:rnPublic Type ModuleInfoPtrrn lpszModuleName As String * 40rn lpszAuthor As String * 40rn lpszVersion As String * 40rnEnd TypernDeclare Sub ModuleInfoEx Lib "zhjinDll.<em>dll</em>" (lpModuleInfoPtr As ModuleInfoPtr)rnDeclare Sub ZhjinEx Lib "zhjinDll.<em>dll</em>" (ByVal myinfo As String)rn...rndim myinfos as string*40rndim myInfoExs as ModuleInfoPtrrnZhjinEx myinfosrndebug.print myinfos ‘可以得到 “zhjin Module”rnModuleInfoEx myInfoExsrndebug.print myinfoExs.lpszModuleName '得不到值啦,lpszAuthor,lpszVersion也得不到。<em>为什么</em>。该怎么该<em>delphi</em>或是<em>vb</em>中的定义结构的代码才行?rn
delphivb调用dll
<em>vb</em> 中定义接口函数rnPrivate Declare Function WimDev_Data Lib "WimDev.DLL" (ByVal CH As Long, Weight As Long, WtLimit As Long, WtCount As Long, AxisCount As Long, TyreWeight As Long, AxisType As Long, spd As Double) As Longrnrn其中在<em>vb</em>中<em>调用</em>如下:rnid0 = WimDev_Data(0, w0, limit0, Cnt0, AxisCnt0, ws0(0), axis0(0), spd0)rn定义的变量rnDim w0 As Long, limit0 As Long, Cnt0 As Long, AxisCnt0 As Long, ws0(9) As Long, axis0(9) As Long, spd0 As Doublern在<em>调用</em>后能得到数组ws0中所有的数rnrn用<em>delphi</em>写动态库应该怎么定义这个函数,主要是就是怎样能让<em>vb</em>得到数组的数
VB中调用Delphi写的DLL!
下面是我用DElphi写的DLL,请问在VB中如何<em>调用</em>!rn希望大侠能说得详细些!我对VB不太熟悉!rnlibrary MyDLL;rnusesrn SysUtils,rn Classes,Forms,rn Windows, Messages, Variants, Graphics, Controls,rn Dialogs, StdCtrls,rn uTDLL in 'uTDLL.pas' TDLLForm;rnrn$R *.resrnvarrn ccc: Pchar;rnprocedure OpenForm(mainForm:TForm);stdcall;rnvarrn Form1: TTDLLForm;rn ptr:PLongInt;rnbeginrn ptr:=@(Application.MainForm);rn ptr^:=LongInt(mainForm);rn Form1:=TTDLLForm.Create(mainForm);rn Form1.Show;rnend;rnrnprocedure InputCCC(Text: Pchar);stdcall;rnbeginrn ccc := Text;rnend;rnrnprocedure ShowCCC;stdcall;rnbeginrn ShowMessage(String(ccc));rnend;rnexportsrn OpenForm,rn InputCCC,rn ShowCCC;rnbeginrnend.
调用DELPHI写的DLL
现在有一个用DELPHI写的DLL其中有一个函数OPENIPrnrnfunction pos_openIP(ip_addr:string):boolean;stdcall;external 'pos<em>dll</em>.<em>dll</em>';rnrn我在VB.NET中是这样<em>调用</em>的rnrn _rn Private Shared Function DllopenAddr(ByVal ip As string) As Booleanrn End Functionrnrnrn Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChangedrn If CheckBox1.Checked Thenrn Dim ret As Booleanrn Tryrn ret = DllopenAddr("192.168.0.90")rn Catch ex As Exceptionrn labMsg.Text = ex.Message & <em>vb</em>CrLf & ex.ToStringrn End Tryrn If ret Thenrn MessageBox.Show("成功!")rn Elsern MessageBox.Show("失败!")rn End Ifrn Elsern OpenClosed() '关闭连接rn End Ifrn End Subrnrn第一次<em>调用</em>时返回<em>提示</em>"成功",第二次重新选中执行rnret = DllopenAddr("192.168.0.90")rn程序报错内容为: "外部组件异常!..."rnrn1、<em>为什么</em>第一次<em>调用</em>可以成功第二次就不可以了呢,是什么原因呢?rn2、.NET中string类型<em>调用</em>DELPHI中的string类型这样正确吗?rn3、.NET中<em>调用</em>DELPHI中的DLL类型要注意哪些?rnrnrn注:此函数在DELPHI中可以用相同的方法(选中打开,未选中关闭)多次<em>调用</em>都不会报错.rnrnrnrnrn
vb调用delphidll这样的怎么写??
xhms.<em>dll</em><em>调用</em>说明:rn本DLL中共有三个输出函数可供主程序<em>调用</em>:rn1.初始化DLL(即启动DLL)的<em>过程</em>:rn procedure InitDll2(hdl:Thandle);stdcall;External'xhms.<em>dll</em>';rn <em>过程</em>名称:InitDll2,输入参数:hdl:<em>调用</em>本DLL的窗口句柄,无返回值;rnrn2.获得信息机开/关机状态的函数:rnfunction MachineStart():integer;stdcall;External'xhms.<em>dll</em>';rn函数名称:MachineStart,无输入参数,返回值:整数型;rn返回值说明:rn 0:开机操作,并且开机成功;rn 1:关机操作;并且关机成功;rn 3:开/关机操作不成功;rnrn3.释放<em>dll</em>的<em>过程</em>:在主程序的主窗口的关闭事件中<em>调用</em>rnprocedure FreeDll2();stdcall;External'xhms.<em>dll</em>';rn<em>过程</em>名称:FreeDll2,无输入参数,无返回结果;rn那为可以写成<em>vb</em>的。我写的都不能用,请大家帮帮忙。。。。rn
100分!关于vb调用delphi编写的dll的问题,急!!!
各位高手赶快帮帮忙。rn现在有一个<em>delphi</em>写的<em>dll</em>,函数中有PInteger的返回参数,在<em>delphi</em>中可以正常<em>调用</em>,但是我在<em>vb</em>里写的时候就不知道该怎么来<em>调用</em>了。rnrn请看代码rn以下是<em>delphi</em>中的函数定义和<em>调用</em>代码,能正常运行rnrn定义rnfunction CommitCurrentPayCashCardList2(iBillID: Integer; sCashier: PChar; piTransID: PInteger): Integer; stdcall;external 'CRMInterface.<em>dll</em>';rn<em>调用</em>rn iXPH :integer;rn iTransID :integer;rn iXPH := strToint(edXPH.Text );rnrn if CommitCurrentPayCashCardList2(iXPH,PChar(edSKY.Text),@iTransID)=1 thenrn beginrn ShowMessage('消费成功');rn endrnrn下面是我在<em>vb</em>里写的定义和<em>调用</em>,但是一运行程序就崩溃,请大家快给支招吧,谢谢了。急死我了!rn定义rnPublic Declare Function CommitCurrentPayCashCardList2 _rn Lib "CRMInterface.<em>dll</em>" _rn (ByVal iBillID As Integer, _rn ByVal sCashier As String, _rn ByVal iTransID As Long) As Longrn<em>调用</em>rniXPH = 1rnemplID = "1"rnrnIf CommitCurrentPayCashCardList2(iXPH, emplID, VarPtr(iTransID)) = 1 Thenrn MsgBox "success"rnElsern MsgBox "err"rnEnd Ifrnrn
VC++写的DLL找不到入口点???
VC++写了一个DLL,用VB<em>调用</em>,但<em>找不到</em><em>入口</em>点:rnrnVC++ Code:rn-------------rn#ifdef __cplusplusrnextern "C" rn#endifrnrn__declspec(<em>dll</em>export) bool __stdcall SetSecurity(char * QueuePathName,char * UserGroup1,char * UserGroup2);rnrn#ifdef __cplusplusrnrn#endifrnrnBOOL APIENTRY DllMain( HANDLE hModule, rn DWORD ul_reason_for_call, rn LPVOID lpReservedrn )rnrn //此处能进入rn return TRUE;rnrnrn __declspec(<em>dll</em>export) bool __stdcall SetSecurity(char * QueuePathName,char * UserGroup1,char * UserGroup2)rnrn //此处不能进入rn ...rnrnrn*****************************************rnrnVB Code:rn--------rnrnPrivate Declare Function SetSecurity Lib "SetSecu.<em>dll</em>" (ByVal QueuePath$, ByVal AdminGroup$, ByVal UserGroup$) As BooleanrnrnPrivate Sub Command1_Click()rn Dim q As String, u1 As String, u2 As Stringrn q = Trim(txtQueue.Text) rn u1 = Trim(txtUser.Text)rn u2 = Trim(txtUser2.Text)rn rn If SetSecurity(q, u1, u2) Thenrn Beeprn End IfrnEnd Subrnrn**************************rnrn报错信息:rn--------rn运行时错误'453':不能找到<em>入口</em>点SetSecurity在SetSecu.<em>dll</em>rn
100求救,DELPHI调用.NET写的WEBSEVICE问题
<em>delphi</em><em>调用</em>.NET写的WEBSEVICE时,大部分情况不会出错,但有时会出现:xml 文档必须有一个顶层元素,而且这个错误信息用TRY都无法屏蔽,请问怎么处理这种情况,怎么在DELPHI中屏蔽出现的错误信息!
求教:vb6调用bcb6的dll找不到入口
bcb6中编写DLL,smtp.cpp的内容如下:rn#include rn#include rn#include rnrn#pragma hdrstoprn#pragma argsusedrnint WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)rnrn return 1;rnrnextern "C" __declspec(<em>dll</em>export) int sendmail(void);rnint sendmail(void)rnrnrnreturn 1;rnrnrn<em>vb</em>6的<em>调用</em>声明及<em>调用</em>如下:rnPublic Declare Function sendmail Lib "smtp.<em>dll</em>" () As IntegerrnPrivate Sub cmdAbout_Click()rn sendmailrn rnEnd SubrnrnDLL及<em>调用</em>程序在同一个目录。rnrn
高分求救,分不够在+ 如何调用VB写的DLL?
我现在有一个VB写的DLL,我想在C#里<em>调用</em>,然后重写一个Com组件,再在ASP中<em>调用</em>该Com组件,谁有这方面的思路?给点帮助吧
还是 vb 调用 dll 的问题,找不到入口点?
<em>vb</em>中的声明:rnrnPrivate Declare Function Setup_xxxx Lib "xxxx.<em>dll</em>" () As Booleanrnrnvc 中头文件说明:rnrnBOOL Setup_xxxx ();rnrn<em>dll</em> 与程序放在了同一目录下,错误<em>提示</em>是不能找到<em>入口</em>点?请问这是怎么回事呢?谢谢rnrn
100分请教用delphi调用c#写的dll的问题!
如题!rnrn我有个用c#写的<em>dll</em>,如何在<em>delphi</em>中<em>调用</em>呢?rnrn我要想其他语言<em>调用</em>我的<em>dll</em>,我应该怎么做呢??rnrn谢谢了!rn希望给出详细的思路!
在线求救:在ASP中调用VB写的DLL有问题!!!
我用VB写了一个DLL,包括有两个函数,其中一个<em>调用</em>了两个api函数(createfile,writefile),另一个是普通函数。在ASP中可以<em>调用</em>该DLL中的普通函数,而在<em>调用</em>那个包含api的函数时,总会产生运行时错误。如果在VB中测试,不会发生错误。rn比较急,请大家帮忙!
vb调用vc编的dll,说入口找不到
<em>dll</em>中一个函数名为test1,<em>dll</em>也叫test1,<em>vb</em>中可以<em>调用</em>rn但是把vc<em>vb</em>中的函数名全部换成其他比如testt1,就<em>提示</em><em>找不到</em><em>入口</em>点rn这是什么原因啊rnrn还有rn用 extern "c" int _stdcall test1(int k) rnvc会<em>提示</em> error C2537: 'c' : illegal linkage specificationrn改成int _stdcall test1(int k) 就好了rn谁能给我讲讲啊
100分问个问题 - pb写的dlldelphi调用问题。
pb写的<em>dll</em>中有一个函数,在pb中定义为rnrnSendRequestPack(string sendbuf, long sendlen, ref string rec<em>vb</em>uf, ref long recvlen, long waitsecs)rnrn在<em>delphi</em>中该如何定义??rnrn1、rnfSendRequestPack: function (sendbuf:string; sendlen:LongInt; out rec<em>vb</em>uf:string;rn out recvlen:LongInt; waitsecs:LongInt):integer;stdcall;rn2、rnfSendRequestPack: function (sendbuf:string; sendlen:LongInt; var rec<em>vb</em>uf:string;rn var recvlen:LongInt; waitsecs:LongInt):integer;stdcall;rnrn好像都不行。rec<em>vb</em>uf 在使用时需要分配不大于65535的空间。
请教:调用 Dll 说找不到入口点。
声明: rn [DllImport(@"Query.<em>dll</em>", EntryPoint="Query", CharSet = CharSet.Unicode)]rn extern static string QueryData(string data);rn<em>调用</em>代码:rn tryrn rn result = QueryData(data);rn rn catch (Exception ex)rn rn rnrn在WinForm程序中使用是正确的,在Web Service中使用就说<em>找不到</em>Query函数的<em>入口</em>点了。环境是VS 2005 C#。Dll是用VS 2005 的C++做的。
delphi写的DLL,用VB调用正常,delphi调用失败?!
DLL内的函数类似:rnfunction tmp(a:string):integerrn函数内用了tadoquery对数据库操作。把的tadoquery语句去掉就OK!rn<em>为什么</em>??!!rnrn
api调用找不到dll入口点。?
api 函数 SHFileOperation 宣告如下:rnPublic Declare Function SHFileOperation Lib "shell32.<em>dll</em>" Alias " SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Longrnrn可当我在程序里<em>调用</em>运行时,弹出对话框:rn实时错误‘453’:<em>找不到</em><em>dll</em><em>入口</em>点 SHFileOperationA in shell32.<em>dll</em> rn不知道怎么回事?有没人遇到过同样问题?
c#调用vc++写的DLL,找不到入口
C#中:rn[DllImport(@"E:\code\SerailVcDll\Release\SerailVcDll.<em>dll</em>", EntryPoint="test", CharSet=CharSet.Auto, CallingConvention=CallingConvention.StdCall)]rnpublic static extern int test(int a);rnrnvc++中:rnint CSerailVcDllApp::test(int a)rnrn return a;rnrn
在VB.NET中调用DLL找不到入口点?
用VB.NET编写的<em>dll</em>,通过“引用”使用起来一切正常,但是通过Declare声明则执行函数X的时候<em>提示</em>“在a.DLL中没有发现名为X的<em>入口</em>点”,怎么回事啊?在VB.NET中写DLL怎么定义<em>入口</em>点?rn 声明如下:rn Public Declare Function X Lib "a.<em>dll</em>" (ByVal A As Integer, ByVal B As Integer) As Integerrn
找不到dll入口点(在线等)
我自己写了个<em>dll</em>文件,工程是DllNew.<em>vb</em>p,类模块是Main.cls,源文件如下,rnPublic Function InputStr(ByVal iString As String) As Stringrn InputStr = iString & <em>vb</em>CrLf & "It's OK"rnEnd Functionrn编译后生成DllNew.<em>dll</em>文件,放到system32下。rnrn在新程序中声明<em>调用</em>,源程序如下,rnPrivate Declare Function InputStr Lib "DllNew" (ByVal iString As String) As StringrnrnPrivate Sub Command1_Click()rnDim a As Stringrna = "kkk"rna = InputStr(a)rnMsgBox arnEnd Subrnrn运行<em>提示</em>:rnrn实时错误 ’354’rn<em>找不到</em>DLL<em>入口</em>点 InputStr in DllNewrnrn是<em>dll</em>文件有问题,还是<em>调用</em>声明有问题?
为什么API找不到DLL入口
我用VB6 写了 个ACTIVExDLL 就一个函数rnPublic Function ReString(StrIn As String) As StringrnDim strSingle As String * 2rnDim i As LongrnReString = ""rnIf Len(StrIn) Mod 2 = 0 Thenrn For i = 1 To Len(StrIn) Step 2rn strSingle = Mid(StrIn, i, 2)rn ReString = ReString & StrReverse(strSingle)rn Next irnElsern For i = 1 To Len(StrIn) - 1 Step 2rn strSingle = Mid(StrIn, i, 2)rn ReString = ReString & StrReverse(strSingle)rn Next irn ReString = ReString & Right(StrIn, 1)rnEnd IfrnEnd Functionrn然后在一个工程中 用APIrnPublic Declare Function ReString Lib "Restr.<em>dll</em>" (ByVal StrIn As String) As Stringrn在form_load中rnme.print restring("ABCD")rn说我是“<em>找不到</em>DLL<em>入口</em>点”是怎么回事呢rn我是刚刚想学这相关知识,望不吝赐教,多谢
为什么导入dll找不到入口
这是udt.h里的原型rn#define UDT_API __declspec(<em>dll</em>import)rntypedef int UDTSOCKET;rnUDT_API UDTSOCKET socket(int af, int type, int protocol);rnUDT_API int bind(UDTSOCKET u, const struct sockaddr* name, int namelen);rnUDT_API int listen(UDTSOCKET u, int backlog);rnUDT_API UDTSOCKET accept(UDTSOCKET u, struct sockaddr* addr, int* addrlen);rnUDT_API int connect(UDTSOCKET u, const struct sockaddr* name, int namelen);rnUDT_API int close(UDTSOCKET u);rn我在C#中引用rn[DllImport("D:\\UDT.<em>dll</em>", CharSet = CharSet.Auto)]rnpublic static extern int close(int u); //这里用int是对的吧?rn<em>调用</em>的时候说<em>找不到</em><em>入口</em>点?rnrn<em>dll</em>的源代码下载在rnhttp://www.trademis.com/download/udt.rar
VC写的dllvb怎么不能调用呢?100
我用vc写了一个<em>dll</em>,当我用<em>vb</em>去<em>调用</em>时,他没有报错,却自动的结束了这个进程。主要程序如下:rnextern "C" _declspec(<em>dll</em>export) BSTR __stdcall gustring (uchar *src, int srcsize)rnrn unsigned char *p;rn unsigned int uc;rn unsigned char *dest;rn int *destsize=0;rn int zflag;rn p = src;rn p[srcsize]='\0';rn for(zflag=0;zflag= 0x30 && *p = 0x41 && *p = 0x61 && *p = 0x81 && *p < 0xff) rn //汉字处理rn gbk_mbtowc (&uc, p, 2);rn *dest++ = (u_codep)uc;rn (*destsize)++;rn p+=2;rn rn else //特殊字符处理rn fprintf(stderr, "%04x\n", *p);rn p++;rn rn rn return SysAllocString((BSTR)p); rnrnrn当我将return SysAllocString((BSTR)p); 放在dest++;和p++;之后时,是没有错误的,他能正确的输出我想得到的答案,但是当把return SysAllocString((BSTR)p); 放在*dest=*p;后边时,他就悄声无息的结束了整个<em>vb</em>运行程序。rn我都调试了好几天了,还是没有结果,希望大家能帮我。rn这个程序主要是进行中文到unicode的转换,当然如果编译的话,还需要几个头文件,如果哪位有兴趣,可以和我联系,我会提供编译需要的头文件。rnQQ:228039115 E-Mail:raisuny@sina.com
100分问VB调用DLL的参数怎么写的问题。
DLL是用C写的,函数的声明为:rn#define UCHAR unsigned charrn GetNext( UCHAR a[ 10], short FCount, UCHAR b[ 8 ], UCHAR c[ 8 ] );rnrn请问在VB引用时怎么声明,还有<em>调用</em>时怎么<em>调用</em>?rn
VB调用delphi写的DLL为什么调用约定错误?
DLL如下:rnlibrary Project2;rnrnusesrn SysUtils,rn Classes;rnrn$R *.resrnfunction add(a,b:integer):integer;rn beginrn add:=a+b;rn end;rnexportsrn add;rnbeginrnend.rnVB代码如下:rnPrivate Declare Function add Lib "c:\project2.<em>dll</em>" (a As Integer, b As Integer) As IntegerrnPrivate Sub Command1_Click()rnDim a, b As Integerrna = 1rnb = 2rnPrint (add(a, b))rnEnd Subrn
delphi下的DLL为何VB中调用会出错:‘找不到DLL的入口点'
原型:rnfunction GetDatetime: pchar; stdcall;rnrnVB声明:rnPrivate Declare Function GetDatetime Lib "d:\look\patrolnew.<em>dll</em>" Alias "GetDatetime" () As String
100求救。。。。在线。。。。
要求将这些导入到ACCESS的表格中做成数据库的rn有没有哪位高手能够以一段程序代码就实现这个功能啊rn我感激不尽,rn希望各位高手帮忙啊。。。。rnrnrnrnrnrn在实际工作中可能经常碰到需要将一些旧数据输入数据库的情况,特别是这些旧数据已经输入成文本文档或WORD文档,下面就是一个例子。请先建立成绩表(学号,姓名,社建,秘书实务,秘书写作,英语,英语口语,逻辑,电脑,总分,名次),再想个好办法把下列数据输入表中。rnrn┃ │ │社│秘书│秘书│英│英语│逻│电│ │ ┃rn┃ 学号 │ 姓名 │ │ │ │ │ │ │ │总分│名次┃rn┃ │ │建│实务│写作│语│口语│辑│脑│ │ ┃rn┃960301 │王紫琛│94│82 │86 │70│75 │89│74│ 622│ 5 ┃rn┃960302 │陈喜吉│87│80 │67 │68│76 │61│83│ 569│34 ┃rn┃*960303 │郑莉莉│92│79 │76 │72│77 │64│71│ 580│26 ┃rn┃*960304 │曾素红│90│78 │73 │75│82 │87│75│ 608│10 ┃rn┃*960305 │王婷萍│97│68 │80 │68│75 │93│74│ 604│16 ┃rn┃*960306 │郑文芳│92│84 │82 │78│88 │71│81│ 628│ 4 ┃rn┃*960307 │魏旖旎│89│81 │72 │74│81 │66│68│ 579│27 ┃rn┃*960308 │吴 娴│89│74 │70 │75│85 │80│72│ 592│23 ┃rn┃960309 │陈 巍│84│90 │75 │74│84 │52│61│ 570│33 ┃rn┃*960310 │谢 禾│88│79 │60 │70│80 │74│73│ 569│35 ┃rn┃960311 │林新财│95│81 │74 │72│72 │71│76│ 591│24 ┃rn┃*960312 │张蓓蕾│88│91 │86 │80│89 │74│80│ 641│ 2 ┃rn┃960313 │吴清泉│84│85 │90 │70│79 │79│75│ 614│ 8 ┃rn┃960314 │杨银玺│87│82 │83 │65│78 │60│55│ 560│37 ┃rn┃*960315 │吴培华│97│84 │80 │70│69 │83│76│ 611│ 9 ┃rn┃960316 │李志孟│92│81 │73 │78│88 │65│68│ 594│21 ┃rn┃960317 │王国强│94│82 │78 │85│78 │75│78│ 621│ 6 ┃rn┃*960318 │王淑恋│94│84 │81 │62│69 │81│83│ 606│12 ┃rn┃960319 │吕荣图│92│82 │74 │65│87 │76│80│ 606│13 ┃rn┃960320 │黄天良│94│80 │86 │61│76 │78│77│ 604│15 ┃rn┃960321 │吕志锦│87│68 │70 │72│78 │52│68│ 540│40 ┃rn┃960322 │王志阳│95│82 │80 │64│73 │67│61│ 573│31 ┃rn┃960323 │何杰水│93│86 │63 │70│74 │82│80│ 596│20 ┃rn┃*960324 │赵巧云│92│74 │80 │62│73 │81│65│ 576│29 ┃rn┃960325 │蔡艺荣│91│80 │73 │61│77 │61│66│ 558│38 ┃rn┃*960326 │林丽明│90│86 │80 │62│82 │72│79│ 602│18 ┃rn┃*960327 │郑清丽│92│77 │68 │70│76 │72│76│ 578│28 ┃rn┃*960328 │林少艳│96│83 │84 │70│81 │84│86│ 637│ 3 ┃rn┃960329 │尤雄文│92│68 │70 │63│67 │69│71│ 546│39 ┃rn┃*960330 │陈亚丝│89│83 │85 │62│73 │56│72│ 571│32 ┃rn┃960331 │赖礼锦│79│64 │75 │61│64 │67│56│ 510│44 ┃rn┃*960332 │蔡婉浈│88│87 │81 │78│86 │75│71│ 617│ 7 ┃rn┃960333 │龚程鸣│91│78 │70 │65│81 │75│85│ 593│22 ┃rn┃*960334 │王晶晶│90│80 │78 │78│67 │79│84│ 606│11 ┃rn┃*960335 │张敬茹│79│72 │60 │65│85 │70│64│ 537│41 ┃rn┃960336 │吴炳志│92│82 │67 │65│68 │74│78│ 574│30 ┃rn┃*960337 │史小红│97│86 │82 │75│89 │91│83│ 656│ 1 ┃rn┃960338 │王志能│90│85 │80 │72│83 │72│65│ 598│19 ┃rn┃*960339 │王锦玲│93│78 │85 │78│86 │63│70│ 604│17 ┃rn┃960340 │陈英俊│81│72 │84 │61│73 │68│79│ 565│36 ┃rn┃*960342 │张小兵│94│82 │87 │63│61 │83│81│ 604│14 ┃rn┃960343 │吴金灶│78│75 │67 │63│72 │60│66│ 525│43 ┃rn┃*960344 │肖莉芳│92│76 │70 │65│81 │83│66│ 581│25 ┃rn┃950313 │陈金通│89│79 │64 │65│70 │60│60│ 533│42 ┃rn┃950303 │苏省辉│60│70 │70 │61│63 │62│60│ 486│46 ┃rn┃950332 │潘广智│68│73 │68 │61│63 │46│70│ 491│45 ┃rnrn
100在线求救!!
问题见rnhttp://expert.csdn.net/Expert/topic/2543/2543456.xml?temp=.7441828
100求救!!!!!(在线!!!!)
有两个下拉选择框,如何做到当一个下拉选择框变化时,另一个跟着变。rn例如:下拉选择框A有三个值1、2、3,下拉选择框B有三个值a、b、c;rn当下拉选择框A选1时,下拉选择框B对应a;rn当下拉选择框A选2时,下拉选择框B对应b;rn当下拉选择框A选3时,下拉选择框B对应c;rnrn万望求教!!!!!!!!1rnthanks
100在线求救
程序是asp.net1.1的,数据库是sqlserver2000rn,一直运行好好的,但是今天运行插入一条数据时就出现这样的错误rnrn异常详细信息: System.Data.SqlClient.SqlException: 插入错误: 列名或所提供值的数目与表定义不匹配。rnrn检查了存储<em>过程</em>,代码也没有发现什么问题,数据库表的结构也没什么问题。rn真是奇怪,大家知道上面这条异常信息是什么意思吗,是指我的存储<em>过程</em>里面插入的列与表的不同吗,但是我检查是相同的哦。
delphi写的dll为什么c无法调用
写的是wsock32.<em>dll</em>rn我只是记录文本,然后把lisent交给oldwsock32.<em>dll</em>处理rn用了 stdcall可是系统仍然<em>提示</em>出错rn
win2000 下 为什么 调用kernel32.dll时报错:找不到dll入口
Public Declare Function GetTickCount Lib "KERNEL32" Alias "gettickcount" () As Long
用VB写了一个dll,调用这个dll运行后会提示:找不到DLL入口点,SendTo in FV.dll为什么啊??
在程序中用rnPublic Declare Function SendTo Lib "FV.<em>dll</em>" () As Longrn来<em>调用</em><em>dll</em> (<em>dll</em>和程序放在同一目录)rnrn<em>dll</em>中函数rnPublic Function SendTo()rn......rn......rn......rnEnd Functionrn这样应该没错啊,怎么会出错呢,大家说说,帮帮忙啊rnrn急等......
100在线求助ASP调用VB的ActiveX Dll的问题
本人编制了一个ActiveX Dll组件,使用VB本身测试一点问题没有rn但是在asp页面下就出现了问题。rn错误如下:rnMicrosoft VBScript 运行时错误 错误 '800a01ad' rnrnActiveX 部件不能创建对象 rnrn/icapp/<em>vb</em>.asp,行4 rn但是如果设置组建工程的debug属性为wait for component to be createdrn并在VB中运行,然后<em>调用</em>ASP页面则问题一切正常。rn请各位高手给与指教,十分着急rn<em>在线</em>给分rn
delphi为什么提示找不到vnsapi32.dll
在打开<em>delphi</em>的窗体是,<em>提示</em><em>找不到</em>vnsapi32.<em>dll</em>,这是什么原因呢? 这个文件是干什么用的呢?<em>在线</em>等待!rn
入口"。加分了!!">求救!!为什么我在调用.DLL时,系统总提示"无法找到.DLL文件的入口"。加分了!!
标题!!
程序提示总是提示找不到dll入口
程序<em>提示</em>rn总是<em>提示</em><em>找不到</em><em>dll</em><em>入口</em>点(VB) ....rnrn但是在XP 下就正常,怎么办?rnrn声明:rn Option Explicitrn Const HWND_TOPMOST = -1rn Const HWND_NOTOPMOST = -2rn Const SWP_NOSIZE = &H1rn Const SWP_NOMOVE = &H2rn Const SWP_NOACTIVATE = &H10rn Const SWP_SHOWWINDOW = &H40rn Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)rnDim Messwert1 As Single, Messwert2 As Single, i As IntegerrnDim Messwert3 As Single, Messwert4 As SinglernrnrnPrivate Declare Function ReleaseCapture Lib "user32" () As LongrnrnPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongrnrnPrivate Declare Function ShellExecute Lib "shell32.<em>dll</em>" _rn Alias "ShellExecuteA" (ByVal hwnd As Long, _rn ByVal lpOperation As String, ByVal lpFile As String, _rn ByVal lpParameters As String, ByVal lpDirectory As String, _rn ByVal nShowCmd As Long) As LongrnrnPrivate Declare Function RasGetConnectionStatistics Lib _rn "RasApi32.DLL" (ByVal hRasConn As Long, lpStatistics _rn As RASSTATS2000) As LongrnrnPrivate Declare Function RasGetLinkStatistics Lib _rn "RasApi32.DLL" (ByVal hRasConn As Long, ByVal _rn dwSubEntry As Long, lpStatistics As RASSTATS2000) _rn As Longrn rnPrivate Declare Function RasEnumConnections Lib "RasApi32.DLL" _rn Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As _rn Long, lpcConnections As Long) As Longrn rnPrivate Declare Function RasGetConnectStatus Lib "RasApi32.DLL" _rn Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, _rn lpStatus As Any) As LongrnrnPrivate Type RASSTATS2000rn dwSize As Longrn dwBytesXmited As Longrn dwBytesRcved As Longrn dwFramesXmited As Longrn dwFramesRcved As Longrn dwCrcErr As Longrn dwTimeoutErr As Longrn dwAlignmentErr As Longrn dwHardwareOverrunErr As Longrn dwFramingErr As Longrn dwBufferOverrunErr As Longrn dwCompressionRatioIn As Longrn dwCompressionRatioOut As Longrn dwBps As Longrn dwConnectDuration As LongrnEnd TypernrnConst RAS_MaxEntryName = 256rnConst RAS_MaxDeviceType = 16rnConst RAS_MaxDeviceName = 32rnrnPrivate Type RASTypern dwSize As Longrn hRasCon As Longrn szEntryName(RAS_MaxEntryName) As Bytern szDeviceType(RAS_MaxDeviceType) As Bytern szDeviceName(RAS_MaxDeviceName) As ByternEnd TypernrnPrivate Type RASStatusTypern dwSize As Longrn RasConnState As Longrn dwError As Longrn szDeviceType(RAS_MaxDeviceType) As Bytern szDeviceName(RAS_MaxDeviceName) As Bytern szInBytes As Doublern syOutbytes As DoublernEnd Typern程序:rnDim RAS(255) As RASType, RASStatus As RASStatusTypern Dim lg&, lpcon&, Result&rn Dim rtn As Longrn Dim myStats As RASSTATS2000rn Dim Downloaded As Single, Uploaded As Singlern Dim Speed As Single, Stunden As Single, Minuten As Integer, Sekunden As Longrnrn RAS(0).dwSize = 412rn lg = 256 * RAS(0).dwSizern Result = RasEnumConnections(RAS(0), lg, lpcon)rnrn myStats.dwSize = LenB(myStats)rn rtn = RasGetConnectionStatistics(RAS(0).hRasCon, myStats)rn
C#调用Delphi的动态链接库 提示无法加载 DLL“**.dll”(在线等)
如题:rnrn环境rnWindows7 rnVS 2010rnrnrn如下<em>调用</em>方式:rn [DllImport("../Lip/EnDecode.<em>dll</em>", EntryPoint = "Encode", CharSet = CharSet.Ansi, CallingConvention = CallingConvention.StdCall)]rn public static extern string Encode(string str);rnrnrnrnrn两台不同的操作系统在XP是可以<em>调用</em>的,但在wingdows 7下就<em>提示</em>无法加载 DLL“**.<em>dll</em>”: <em>找不到</em>指定的模块。rn 另外Windows 7下 头天<em>调用</em>是正常~~ 第二天后就无法<em>调用</em>了rnrnrn试过把文件复制到C:\WINDOWS\system32下 也没有解决。rnrnrn请高手指教!!!!!rnrnrn
dll调用vbdelphi
<em>vb</em>的写法:rn。。。。。。。rnType MQODrn StrucId As String * 4 ' Structure identifierrn Version As Long ' Structure version numberrn ObjectType As Long ' Object typern ObjectName As String * 48 ' Object namern ObjectQMgrName As String * 48 ' Object queue manager namern DynamicQName As String * 48 ' Dynamic queue namern AlternateUserId As String * 12 ' Alternate user identifierrn RecsPresent As Long ' Number of object records presentrn KnownDestCount As Long ' Number of local queues opened successfullyrn UnknownDestCount As Long ' Number of remote queues opened successfullyrn InvalidDestCount As Long ' Number of queues that failed to openrn ObjectRecOffset As Long ' Offset of first object recoed from start of MQODrn ResponseRecOffset As Long ' Offset of first response record from start of MQODrn ObjectRecPtr As String * 32 ' Address of first object recordrn ResponseRecPtr As String * 32 ' Address of first response recordrn AlternateSecurityId As String * 40 ' Alternate security identifierrn ResolvedQName As String * 48 ' Resolved queue namern ResolvedQMgrName As String * 48 ' Resolved queue manager namernEnd Typern。。。。。。。rn Declare Sub MQOPEN Lib "MQM.DLL" Alias "MQOPENstd@24" (ByVal Hconn As Long, ObjDesc As MQOD, ByVal Options As Long, Hobj As Long, CompCode As Long, Reason As Long)rnrn.......rnrn转成<em>delphi</em>:rn。。。。。。rn MQOD = recordrn StrucId : pchar;rn Version : longint;rn ObjectType : longint;rn ObjectName : pchar;rn ObjectQMgrName : pchar;rn DynamicQName : pchar;rn AlternateUserId : pchar;rn RecsPresent : longint;rn KnownDestCount : longint;rn UnknownDestCount : longint;rn InvalidDestCount : longint;rn ObjectRecOffset : longint;rn ResponseRecOffset : longint;rn ObjectRecPtr : pchar;rn ResponseRecPtr : pchar;rn AlternateSecurityId : pchar;rn ResolvedQName : pchar;rn ResolvedQMgrName : pchar;rn end;rnrn。。。。。。rnrnprocedure MQOPEN( Hconn : longint; var ObjDesc : MQOD; Options : longint; var Hobj : longint; var CompCode : longint; var Reason : longint ); stdcall;rnrn程序可以运行,但是结果不对?那里写错了?(<em>vb</em>正常)
Vb -> Delphi (DLL的调用问题)
Delphi中声明rnfunction exportfile(AHandle: THandle;p_id:pchar;p_dir:pchar;p_user:pchar):pchar;rnVb中声明rnPrivate Declare Function exportfile Lib "wdata" (ByVal AHandle As Long, ByVal p_id As String, ByVal p_dir As String, ByVal p_user As String) As Stringrn<em>调用</em>代码rn If exportfile(SJCL_XZ.hwnd, sFileID, sDZ_Server, sZDRID) = "1" Thenrn End Ifrn执行时错误<em>提示</em>rn实时错误'5'rn无效的<em>过程</em><em>调用</em>或参数
vb调用Delphi的dll问题
delhphi的函数rnfunction gethsno(Ahandle:THandle;amt:double;dcode :Pchar;var postno:longint; var gno:longint;text1,text2:Pchar):longint;stdcall;external 'hs.<em>dll</em>';rnrn我写的<em>vb</em>中的函数rnPublic Declare Function gethsno Lib "hs.<em>dll</em>" (ByVal Ahandle As Long, ByVal amt As Double, ByVal dcode As String, ByRef postno As Long, ByRef gno As Long, ByRef Text1 As String, ByRef Text2 As String) As LongrnrnrnDim strtext1 As StringrnDim strtext2 As StringrnDim strDcode As StringrnDim logNogo As LongrnDim lonNo As LongrnDim Hwand As Longrn strDcode = "000"rn strtext1 = String(<em>100</em>, <em>vb</em>NullChar)rn strtext2 = String(<em>100</em>, <em>vb</em>NullChar)rnrn If gethsno(Hwand, CDbl(txtFkMoney.Text), strDcode, lonNo, logNogo, strtext1, strtext2) = 0 Thenrn Call DisplayMessageBox("查询房台失败!")rn End Ifrn 大家帮看看有什么问题。我运行程序总是出错。
Delphi调用vbdll出错!!!
<em>vb</em><em>调用</em>该<em>dll</em>的演示代码如下:rnPrivate Declare Function Dacsp_init Lib "dacsplib.<em>dll</em>" () As LongrnPrivate Declare Function Dacsp_login Lib "dacsplib.<em>dll</em>" (ByVal Context As Long) As IntegerrnPrivate Declare Function Dacsp_final Lib "dacsplib.<em>dll</em>" (ByVal Context As Long) As IntegerrnrnPrivate Declare Function Dacsp_FileEnc Lib "dacsplib.<em>dll</em>" (ByVal Context As Long, ByVal infil As String, ByVal outfile As String, ByVal pubkey As String) As IntegerrnPrivate Declare Function Dacsp_FileDec Lib "dacsplib.<em>dll</em>" (ByVal Context As Long, ByVal infil As String, ByVal outfile As String, ByVal keyNo As Integer) As IntegerrnrnrnPrivate Declare Function Dacsp_StrEnc Lib "dacsplib.<em>dll</em>" (ByVal Context As Long, ByVal indata As String, ByVal indatalen As Integer, ByVal outdata As String, ByVal pubkey As String) As IntegerrnPrivate Declare Function Dacsp_StrDec Lib "dacsplib.<em>dll</em>" (ByVal Context As Long, ByVal indata As String, ByVal indatalen As Integer, ByVal outdata As String, ByVal keyNo As Integer) As IntegerrnrnDim Context As LongrnDim ret As IntegerrnDim pubkey As ByternrnPrivate Sub Command1_Click()rnDim str As StringrnDim str2 As String * 2048rnDim str3 As String * 2048rnDim pubkey As StringrnrnrnContext = Dacsp_init() rnret = Dacsp_login(Context)rnIf ret < 0 ThenrnMsgBox ("登陆失败!")rnExit SubrnEnd Ifrnrn以上代码能成功运行无错!!rn--------------------------------------------------------------------------------------rn我改写成Delphi版的代码如下:rnInterfacernFunction Dacsp_init():Longint;rnFunction Dacsp_login(Context:Longint):Integer;rnFunction Dacsp_final(Context:Longint):Integer;rnFunction Dacsp_FileEnc(Context:Longint;infil,outfile,pubkey:String):Integer;rnFunction Dacsp_FileDec(Context:Longint;infil,outfile:String;keyno:Integer):Integer;rnFunction Dacsp_StrEnc(Context:Longint;indata:String;indatalen:Integer;outdata,pubkey:String):Integer;rnFunction Dacsp_StrDec(Context:Longint;indata:String;indatalen:Integer;outdata:String;keyno:Integer):Integer;rnrnimplementationrnFunction Dacsp_init:Longint;external 'dacsplib.<em>dll</em>';rnFunction Dacsp_login(Context:Longint):Integer;external 'dacsplib.<em>dll</em>';rnFunction Dacsp_final(Context:Longint):Integer;external 'dacsplib.<em>dll</em>';rnFunction Dacsp_FileEnc(Context:Longint;infil,outfile,pubkey:String):Integer;external 'dacsplib.<em>dll</em>';rnFunction Dacsp_FileDec(Context:Longint;infil,outfile:String;keyno:Integer):Integer;external 'dacsplib.<em>dll</em>';rnFunction Dacsp_StrEnc(Context:Longint;indata:String;indatalen:Integer;outdata,pubkey:String):Integer;external 'dacsplib.<em>dll</em>';rnFunction Dacsp_StrDec(Context:Longint;indata:String;indatalen:Integer;outdata:String;keyno:Integer):Integer;external 'dacsplib.<em>dll</em>';rnrnprocedure TFrm_Main.Button2Click(Sender: TObject);rnvar rn ret:Integer;rn Context:Longint;rn rn Context := Dacsp_init();rn ret := Dacsp_login(Context);rn if ret < 0 Thenrn Messagedlg('操作失败!',mtError,[mbok],0); rnrn程序一执行就报错,翻译后大概内容为:"内存访问错误,在模块dacsplib中"rnrn请问<em>为什么</em>同样一个<em>dll</em>在<em>vb</em>中能被成功<em>调用</em>,而在<em>delphi</em>中却会报错呢?是不是变量类型的问题?rn还是什么传值和传地址之间的转换??rn求高手指点~~~
Delphi调用VB编写的DLL
我现在要做一个Delphi<em>调用</em>VB写的DLL,目前手上有编译好的DLL,但是用不管用静态<em>调用</em>还是动态<em>调用</em>,都不能取得<em>调用</em>的函数,DLL已经架子成功了。下面是VB写的代码。rnPublic Function PrepareTest(ByVal strReserved As String) As Longrn Dim bRet As Booleanrn Dim Buff As String * 70rn Dim lRet As Longrn '用户实现入站检查,通过条码查询是否可以进入测试rn Buff = strReservedrn MsgBox Buffrn rn 'bRet = fnWorkStationCheck("111")rn bRet = GetAteInfoItem("$ATEName$", Buff)rnrn bRet = Falsern bRet = SetEmsLastError(0, "PrepareTest Success")rn PrepareTest = lRetrnEnd Function
vb 调用 delphi dll的问题
各位高手,谁能指点一下小弟如何在<em>vb</em>中<em>调用</em><em>delphi</em> <em>dll</em>,我现在主要是在<em>delphi</em>和<em>vb</em>的字符型变量的传递和返回方面很糊涂.rn Declare Sub transtringtest2 Lib "project1.<em>dll</em>" (ByVal i As Double, j As String)rn procedure transtringtest2(i:real;var j:string);stdcallrn beginrn if i>0 then j:='大庾岭' else j:='不大庾岭';rn end;rn上面的例子可以正常运行,但是我如果想用<em>dll</em>中的函数返回字符串时就会有错,如下rnDeclare Function transtringtest Lib "project1.<em>dll</em>" (ByVal i As Double) As Stringrnfunction transtringtest(i:real):string;stdcallrnbeginrn if i>0 then result:='大于零' else result:='小于或等于零';rnend; rn请各位高手能给我指点一下,谢谢!!!rnrn
API 找不到dll入口
[code=Delphi(Pascal)] 在演示程序中把<em>dll</em>文件声明于implementation中下面rn function Rcard(rdata:pchar;track:integer):integer;stdcall;external'JINCARD7.<em>dll</em>';rn function Wcard(wdata:pchar;track:integer):integer;stdcall;external'JINCARD7.<em>dll</em>';rnrn //主程序 :rnrn if 1 = Init_com('1,9600,n,8,1') then //初始化端口成功rn beginrn if 1 = Rcard(rdata,5) then //<em>调用</em>库中的读函数,读二,三磁道,若成功则rn beginrn i:=pos ('a',rdata);rn strlcopy(str2,rdata,i-1); //拷贝磁道二中的内容于str2中rn strcopy(str3,rdata+i); //拷贝磁道三中的内容于str3中rn ShowMessage('读卡成功!'); //显示读卡成功对话框rn end;rn wdata:= '2222222222a333333333';rn if 1 = Wcard(wdata,5) then //<em>调用</em>库中的写函数进行写二,三磁道,若成功则rn beginrn ShowMessage('写卡成功!'); //显示写卡成功对话框rn end;rn end; [/code]rnrnrnrn现在我要写成<em>vb</em>代码.rnrn模块[code=VB]rnPublic Declare Function Rcard Lib "JINCARD7.DLL" (ByVal radata As String, ByVal track As Integer) As IntegerrnPublic Declare Function Wcard Lib "JINCARD7.DLL" (ByVal radata As String, ByVal track As Integer) As IntegerrnPublic Declare Function Init_com Lib "CARD.DLL" (ByVal sett As String) As Integer[/code]rnrnform1rn[code=VB]rnIf 1 = Init_com("1,9600,n,8,1") ThenrnMsgBox "test"rnEnd Ifrn[/code]
找不到dll入口点 in kernel32
下面的程序是某位大虾编的,运行后,<em>vb</em><em>提示</em>“<em>找不到</em><em>dll</em><em>入口</em>GetlogicaldrivestringsA in kernel32”rn 本人试着在system32下找到kernel32.<em>dll</em>,并使用regsvc32.exe kernel32.<em>dll</em>来注册kernel32.<em>dll</em>,系统<em>提示</em>已经加载kernel32.<em>dll</em>,但并未找到<em>dll</em>registerserver输入点。rn不知道<em>为什么</em>下述程序不能运行?是不是在<em>vb</em>主程序里要设置什么东东?恳请各位大虾赐教,或帮忙再改改,一定给分。rnOption ExplicitrnPrivate Declare Function GetDriveType Lib "kernel32 " Alias "GetDriveTypeA " (ByVal nDrive As String) As LongrnPrivate Declare Function GetLogicalDriveStrings Lib "kernel32 " Alias "GetLogicalDriveStringsA " (ByVal nBufferLength As Long, ByVal lpBuffer As String) As LongrnrnPrivate Const DRIVE_REMOVABLE = 2rnPrivate Const DRIVE_FIXED = 3rnPrivate Const DRIVE_REMOTE = 4rnPrivate Const DRIVE_CDROM = 5rnPrivate Const DRIVE_RAMDISK = 6rnrnrnPrivate Sub Command1_Click()rnDim rtn As Stringrn Dim AllDrives As Stringrn Dim JustOneDrive As Stringrn AllDrives = Space$(64) ''设置缓冲rn rtn = GetLogicalDriveStrings(Len(AllDrives), AllDrives) ''<em>调用</em>函数得到包含所有驱动器的字符串rn AllDrives = Left(AllDrives, rtn)rn Dorn rtn = InStr(AllDrives, Chr(0))rn If rtn Then rn JustOneDrive = Left(AllDrives, rtn)rn AllDrives = Mid(AllDrives, rtn + 1, Len(AllDrives))rn rtn = GetDriveType(JustOneDrive) ' '检查驱动器类型rn Debug.Print rtn, JustOneDrivern End Ifrn Loop Until AllDrives = " "rnEnd Subrn
找不到dll入口点"">调用vc++编制的dll,出现"找不到dll入口点"
我的vc程序是这样的.rnserial.cpp:rn #define CIPHER_API __declspec(<em>dll</em>export) rnrn //声明我的函数rn CIPHER_API int __stdcall DecryptData(char* buf_i , char* buf_o , int len);rn....rnint __stdcall DecryptData(char* buf_i , char* buf_o , int len)rnrn...rnrn我的<em>vb</em>程序声明是这样的:rnPrivate Declare Function DecryptData Lib "xiudou.DLL" (ByRef buf_i As Byte, ByRef buf_o As Byte, len1 As Long) As Longrn<em>调用</em>时:rnPrivate Sub Form_Load()rn Dim buf_i(128) As Bytern Dim buf_o(128) As Bytern rn Dim l As Longrn buf_i(0) = 1rn l = DecryptData(buf_i(0), buf_o(0), 128)rnEnd Subrn可是在最后<em>调用</em>的时候DecryptData, 总报错"<em>找不到</em><em>dll</em><em>入口</em>点",如何解决呢?rn我在网上搜了一下, 有的说要改写.def文件,可我看了,我的vc工程中没有.def文件,到底需不需要呢?
求救!C#引用DLL 提示找不到文件?
C#引用DLL <em>提示</em><em>找不到</em>文件? 文件 就在 bin目录下面 不能够直接引用的DLLrn请教各位高手 !
delphi调用vc写的dll
一个vc写的<em>dll</em> 实现3des功能,调三个函数,头文件如下rnDECL des_3EEEinit(UCHAR *key, int len, DES_KS ks1, DES_KS ks2, DES_KS ks3);rnDECL des_ecb3EEEencode(UCHAR *in64, UCHAR *out64, DES_KS ks1, DES_KS ks2, DES_KS ks3);rnDECL des_ecb3EEEdecode(UCHAR *in64, UCHAR *out64, DES_KS ks1, DES_KS ks2, DES_KS ks3);rn其中rntypedef unsigned long DES_KS[16][2];rnrn在<em>delphi</em>中<em>调用</em>此<em>dll</em>rnrntypern kstype=array[1..16,1..2] of dword; //对应unsigned long DES_KS[16][2];rnFunction des_3EEEinit (key:pchar;len : integer;var ks1,ks2,ks3:kstype) : Longword ; cdecl ; external 'des3.<em>dll</em>' ;rnrnprocedure TForm1.Button1Click(Sender: TObject);rnvar ks1,ks2,ks3:kstype;rn key:pchar;rnbeginrn key:= '123456789012345678901234';rn des_3EEEinit(key,224,ks1,ks2,ks3);rnend;rnrn出内存错误 不知道是因为pchar对应UCHAR *key的问题,还是那个二维数组的问题,请高手指教rn<em>dll</em>,头文件,demo在此下载http://euploading.cn/file/23057/des3-win32-zip.htmlrnrn如能提供<em>delphi</em>版的3des算法,能够解密该<em>dll</em>加密的文件也可
如何调用Delphi写的dll
我用Delphi写了一个<em>dll</em>,想在BCB中<em>调用</em>,可是在<em>调用</em>是根本没有结果,不起作用.rnrnvarrn SaveName: PAnsiChar;rnfunction GetFileName(filename: PAnsiChar): String; stdcall;rnrnfunction GetFileName(filename: PAnsiChar): String; stdcall;rnbeginrn filename := SaveName;rn Result := ExtractFileName(filename);rnend;rnrnprocedure TForm1.Button3Click(Sender: TObject);rnbeginrn if SaveImageEnDialog1.Execute then beginrn SaveName := PAnsiChar(SaveImageEnDialog1.FileName);rn ImageEnIO1.SaveToFile(SaveImageEnDialog1.FileName);rn end;rnend;rnrn//<em>调用</em>程序为rnHINSTANCE Dll = LoadLibrary("Scan.<em>dll</em>");rn String filename;rn if (Dll)rn rn //LoadFunction = (String(__stdcall*)())GetProcAddress(Dll, "GetFileName");rn GetFileName = (String(__stdcall*)(String))GetProcAddress(Dll, "GetFileName");rn if (GetFileName) rn DBEdit3->Text = GetFileName(filename);rn ShowMessage(GetFileName(filename));rn rn elsern ShowMessage(SysErrorMessage(GetLastError()));rn FreeLibrary(Dll);rn rnrn elsern rn ShowMessage(SysErrorMessage(GetLastError()));rn ShowMessage("Unable to load the Dll");rn rnrn我在rnDelphi7入门与精通一书中看到,有的<em>dll</em>只能在<em>delphi</em>中<em>调用</em>,这是什么意思呢?rn请大家帮助看一看,<em>为什么</em><em>调用</em>的时候在Delphi中有结果,而在BCB中<em>调用</em>却没有结果呢?
BCB调用DELPHI 写的DLL的
这是DELPHI <em>dll</em>里面的函数定义rnprocedure DLLFM_HRADMIN_CREATE_EMMAINFORM(ParentApplication: TApplication; ParentForm: TForm;adoconn:TADOConnection;chr_caption:AnsiString); export; stdcall;rn内容是:rnvarrn Form1: TfrmStainfo;rn su: TCHILDFORMINFO;rnbeginrn application:=Parentapplication;rn Form1:=TfrmStainfo.Create(Parentform );rn form1.aqStaDetail.Connection :=adoconn ;rn form1.aqStaInfo.Connection :=adoconn;rn form1.FormStyle:=fsMDIChild;rn form1.fm_pfm :=Parentform ;rn su.str_caption :=form1.Caption;rn su.h_handle :=form1.Handle;rn SendMessage(Parentform.Handle ,WM_MYMESSAGE,HWND_ADDCHILDFORM, longint(@su) );rn Form1.Show ;rn下面是BCB里面函数定义rnvoid (*ProvaChild1)(TApplication *ParentApplication,TForm *ParentForm,TADOConnection *adoconn,AnsiString chr_caption);rn<em>调用</em>代码:rnProvaChild1(Application,this,dm->adoconn1,str_caption);rnrn以上没有错误,但是,换成以下的东西就 不对了rnrnDELPHI <em>dll</em>里面的函数定义rnrnprocedure DLLFM_HRADMIN_CREATE_EMMAINFORM(parentapp:TApplication;parentfm:TForm;adoconn:TADOConnection;caption:AnsiString); export; stdcall;rnvarrn Form1: TfrmStainfo;rn su: TCHILDFORMINFO;rnbeginrn Application:=parentapp ;rn Form1:=TfrmStainfo.Create(parentfm );rn form1.aqStaDetail.Connection :=adoconn ;rn form1.aqStaInfo.Connection :=adoconn ;rn //form1.Caption:=caption ;rn form1.FormStyle:=fsMDIChild;rn form1.fm_pfm :=parentfm ;rn form1.WindowState :=wsMaximized;rn su.str_caption :=form1.Caption;rn su.h_handle :=form1.Handle;rn SendMessage(parentfm.Handle ,WM_MYMESSAGE,HWND_ADDCHILDFORM, longint(@su) );rn SendMessage(Parentform.Handle ,WM_MYMESSAGE,HWND_ADDCHILDFORM, longint(@su) );rn Form1.Show ;rnrn下面是BCB里面函数定义rnvoid (*CrateDllFormHR)(TApplication *parentapp,TForm *parentfm,TADOConnection *adoconn,AnsiString caption);rn<em>调用</em>代码:rnCrateDllFormHR(Application,this,dm->adoconn1,str_caption);rnrnDLL里面有多个导出函数rnrn为了这个弄了很久啊.我就不明白,<em>为什么</em>参数名字换了,就不行了(当然,我BCB里面<em>调用</em>的参数名字也和DELPHI里面一样换了)
winfrom调用delphi写的dll
有<em>delphi</em>写的一个<em>dll</em>,<em>dll</em>中有个com控件。rn问题是我现在引用了在winfrom中报错,错误信息:无法在<em>dll</em>中找到"ConnectReq"<em>入口</em>点rnrn[code=C#] [DllImport("SPCUserInterface.<em>dll</em>", EntryPoint = "ConnectReq", SetLastError = true, CharSet = CharSet.Ansi,rn CallingConvention = CallingConvention.StdCall, ExactSpelling = true)]rn public static extern bool connectReq();rnrnrnrn[/code]rnrn文档中有方法:rnrn方法名: ConnectReqrn参数: 无rn返回值: VARIANT_BOOLrn True:成功rn False:失败
DELPHI调用VC写的DLL
[url=http://www.ggniu.cn/articles/niuniuimageole.html][/url][img=https://img-bbs.csdn.net/upload/201611/04/1478227413_215555.png][/img]rn<em>为什么</em>我用DELPHI<em>调用</em>这个示例无效果呢?rn这个是文档地址:rn[url=http://www.ggniu.cn/download/Description_of_NiuniuImageOle.doc][/url]rnrn这个是DLL地址:rn[url=http://www.ggniu.cn/download/NiuniuImageOle.zip][/url]rnrn难不成DELPHI的RICHEDIT不一样?rn[code=<em>delphi</em>]unit Unit1;rnrninterfacernrnusesrn Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,rn Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;rnrntypern TForm1 = class(TForm)rn RichEdit1: TRichEdit;rn Button1: TButton;rn Button2: TButton;rn Button3: TButton;rn Button4: TButton;rn procedure Button2Click(Sender: TObject);rn procedure Button1Click(Sender: TObject);rn procedure Button3Click(Sender: TObject);rn procedure Button4Click(Sender: TObject);rn privatern Dll: THandle;rn publicrn Public declarations rn end;rnrnrnvarrn Form1: TForm1;rnrnimplementationrnrn$R *.dfmrnrnprocedure TForm1.Button1Click(Sender: TObject);rnvarrnrn Niuniu_GetRichTextContent:function (hs:THandle):AnsiChar;stdcall;rnbeginrn tryrnrn if Dll = 0 thenrn beginrn showmessage('RichEditWrapper.<em>dll</em>未加载!');rn Exit;rn end;rn @Niuniu_GetRichTextContent := GetProcAddress(Dll, 'Niuniu_InitRichEditWnd'); //取得函数的<em>入口</em>地址rn if @Niuniu_GetRichTextContent = nil thenrn beginrn showmessage('获取Dll函数失败!');rn Exit;rn end;rn ShowMessage(Niuniu_GetRichTextContent(Self.RichEdit1.Handle)) ;rn exceptrn on E:Exception dorn beginrn showmessage('获取Dll函数失败!'+E.Message);rn end;rn end;rnend;rnrnprocedure TForm1.Button2Click(Sender: TObject);rnrnvarrnrn Niuniu_InitRichEditWnd:function (hp,hs:THandle):integer;stdcall;rnbeginrn tryrn Dll := LoadLibrary('RichEditWrapper.<em>dll</em>');rn if Dll = 0 thenrn beginrn showmessage('RichEditWrapper.<em>dll</em>未加载!');rn Exit;rn end;rn @Niuniu_InitRichEditWnd := GetProcAddress(Dll, 'Niuniu_InitRichEditWnd'); //取得函数的<em>入口</em>地址rn if @Niuniu_InitRichEditWnd = nil thenrn beginrn showmessage('获取Dll函数失败!');rn Exit;rn end;rn Niuniu_InitRichEditWnd(self.Handle,Self.RichEdit1.Handle) ;rn Niuniu_InitRichEditWnd(self.Handle,Self.RichEdit1.Handle) ;rn exceptrn on E:Exception dorn beginrn showmessage('获取Dll函数失败!'+E.Message);rn end;rn end;rnend;rnrnprocedure TForm1.Button3Click(Sender: TObject);rnvarrnrn Niuniu_InsertImage:function (hs:THandle;fffa:LPCTSTR):AnsiChar;stdcall;rnbeginrn tryrnrn if Dll = 0 thenrn beginrn showmessage('RichEditWrapper.<em>dll</em>未加载!');rn Exit;rn end;rn @Niuniu_InsertImage := GetProcAddress(Dll, 'Niuniu_InitRichEditWnd'); //取得函数的<em>入口</em>地址rn if @Niuniu_InsertImage = nil thenrn beginrn showmessage('获取Dll函数失败!');rn Exit;rn end;rn ShowMessage(Niuniu_InsertImage(Self.RichEdit1.Handle,'D:\161013154141.jpg')) ;rn exceptrn on E:Exception dorn beginrn showmessage('获取Dll函数失败!'+E.Message);rn end;rn end;rnend;rnrnprocedure TForm1.Button4Click(Sender: TObject);rnvarrnrn Niuniu_AppendMsg:procedure (hs:THandle;fffa:LPCTSTR);stdcall;rnbeginrn tryrnrn if Dll = 0 thenrn beginrn showmessage('RichEditWrapper.<em>dll</em>未加载!');rn Exit;rn end;rn @Niuniu_AppendMsg := GetProcAddress(Dll, 'Niuniu_InitRichEditWnd'); //取得函数的<em>入口</em>地址rn if @Niuniu_AppendMsg = nil thenrn beginrn showmessage('获取Dll函数失败!');rn Exit;rn end;rn Niuniu_AppendMsg(Self.RichEdit1.Handle,'D:\161013154141.jpg');rn exceptrn on E:Exception dorn beginrn showmessage('获取Dll函数失败!'+E.Message);rn end;rn end;rnend;rnrnend.[/code]rn[code=<em>delphi</em>]object Form1: TForm1rn Left = 0rn Top = 0rn Caption = 'Form1'rn ClientHeight = 387rn ClientWidth = 671rn Color = clBtnFacern Font.Charset = DEFAULT_CHARSETrn Font.Color = clWindowTextrn Font.Height = -11rn Font.Name = 'Tahoma'rn Font.Style = []rn OldCreateOrder = Falsern PixelsPerInch = 96rn TextHeight = 13rn object RichEdit1: TRichEditrn Left = 96rn Top = 160rn Width = 481rn Height = 113rn Font.Charset = GB2312_CHARSETrn Font.Color = clWindowTextrn Font.Height = -11rn Font.Name = 'Tahoma'rn Font.Style = []rn ParentFont = Falsern TabOrder = 0rn endrn object Button1: TButtonrn Left = 328rn Top = 104rn Width = 75rn Height = 25rn Caption = 'Button1'rn TabOrder = 1rn OnClick = Button1Clickrn endrn object Button2: TButtonrn Left = 64rn Top = 32rn Width = 75rn Height = 25rn Caption = 'Button2'rn TabOrder = 2rn OnClick = Button2Clickrn endrn object Button3: TButtonrn Left = 472rn Top = 96rn Width = 75rn Height = 25rn Caption = 'Button3'rn TabOrder = 3rn OnClick = Button3Clickrn endrn object Button4: TButtonrn Left = 200rn Top = 312rn Width = 75rn Height = 25rn Caption = 'Button4'rn TabOrder = 4rn OnClick = Button4Clickrn endrnend[/code]rn
Delphi 调用C#写的Dll
我用C#写了一个“wudong.<em>dll</em>”文件,里面有一个方法: rn“public void InsertBom(string orderno,string orderitem)” rn方法的目的是从SAP取出一些记录(可能有2000条),然后再插入本地数据库。 rn------------------------ rn请问各位大侠:使用Delphi6怎样<em>调用</em>这个wudong.<em>dll</em>文件的方法?? rn答案详细点,谢谢。。。
C#调用delphi写的DLL
我用C#<em>调用</em><em>delphi</em>写的DLL,但是一个方法不知道怎么定义,求大家帮帮忙。rnrn一. <em>delphi</em>中的函数名称rnfunction GetData( pt: Data): LongInt;//读取数据rnrn<em>delphi</em>数据结构如下:rnData = recordrn id: LongInt; //编码rn Type: LongInt; //类型rn Time: LongInt; //时间rn Value: LongInt; //值rn end;rnrnrn请问大家,在C#总怎么定义,我是这样定义的,但是好像有问题:rn [DllImport("DELPHI.<em>dll</em>")]rn public static extern void GetData(int[] Datas);rn
调用delphi写的dll的问题
我写了DLL,就一个函数,用来向SOCKET发送数据,不知道这样是否可以实现那,无论SOCKET是否链接,测试都报错,是不是socket不能在本程序以外进行<em>调用</em>发送数据的函数,如果我想实现,那应该怎么写。我的DLL代码如下rnlibrary intf;rnrn Important note about DLL memory management: ShareMem must be thern first unit in your library's USES clause AND your project's (selectrn Project-View Source) USES clause if your DLL exports any procedures orrn functions that pass strings as parameters or function results. Thisrn applies to all strings passed to and from your DLL--even those thatrn are nested in records and classes. ShareMem is the interface unit torn the BORLNDMM.DLL shared memory manager, which must be deployed alongrn with your DLL. To avoid using BORLNDMM.DLL, pass string informationrn using PChar or ShortString parameters. rnrnusesrn SysUtils,rn Classes,Client;//我自己的主程序的socket单元rnrnvarrnForm:TForm1;rn$R *.resrnprocedure interSend(nub:String);stdcall;rnbeginrntryrnForm.sendTe(nub); //主程序的方法 用于发送数据rnfinallyrnend;rnend;rnrnexports interSend;rnbeginrnrnend.rnrnrn<em>调用</em>错误信息 Access violation at address 004D1F40 in module intf.<em>dll</em>rnrn
C++写DLL,delphi调用
VS2008中创建DLL工程 文件-&gt;新建-&gt;项目-&gt;visual c++-&gt;win32-&gt;win32控制台应用程序(win32项目也可以) 填写项目名称MyDLL-&gt;确定-&gt;下一步-&gt;DLL(附加选项 对空项目打钩)-&gt;完成。 到这里DLL工程就创建完毕了,下面新建两个文件testDLL.cpp和testDLL.h。 C++ ....
如何调用Delphi写的DLL
1. 参数PChar 在 C#对应的是什么类型?rn2. Delphi函数指针以及函数指针里的 PChar 怎么对应?
delphi 调用c写的dll
请教:我现在要<em>调用</em>c写的<em>dll</em>,我准备建立一个公共单元文件,在该文件中动态<em>调用</em><em>dll</em>中的东西。现在的问题是:我<em>调用</em>的是<em>dll</em>中一个类下面的函数。请问我在公共单元文件下该怎么<em>调用</em>。然后其它窗体的事件可以用这函数
通达OA2009版 - 修正合集下载
通达OA2009版 - 修正合集 通达2009版 - 修正合集 通达2009版 - 修正合集 请指定原OA软件安装路径,覆盖安装。 相关下载链接:[url=//download.csdn.net/download/shilyyn/2072515?utm_source=bbsseo]//download.csdn.net/download/shilyyn/2072515?utm_source=bbsseo[/url]
号称圣经的《Windows 7使用技巧大全》电子书下载- 1/2下载
号称圣经的《Windows 7使用技巧大全》电子书下载 相关下载链接:[url=//download.csdn.net/download/ZXCV444/2747273?utm_source=bbsseo]//download.csdn.net/download/ZXCV444/2747273?utm_source=bbsseo[/url]
magento安装及一些安装过程中的常见问题下载
magento安装及一些安装过程中的常见问题,如何初始化数据,安装汉化包,前台页面链接点击无效等问题。 相关下载链接:[url=//download.csdn.net/download/daxiong983464183/4830521?utm_source=bbsseo]//download.csdn.net/download/daxiong983464183/4830521?utm_source=bbsseo[/url]
相关热词 c# 标准差 计算 c#siki第五季 c#入门推荐书 c# 解码海康数据流 c# xml的遍历循环 c# 取 查看源码没有的 c#解决高并发 委托 c#日期转化为字符串 c# 显示问号 c# 字典对象池
我们是很有底线的