-
请问:PB 怎么声明调用delphi写的dll
请教:PB如何声明调用delphi写的dll最近做医院接口,他们的dll是用delphi写的,如下:b. Init(AIniDir:pChar):integer;参数为pcahr类型,返回值为整型我在pb这样声明:FUNCTIONintegerInit(stringAIniDir)library"hisinterface.dll"调用代码如下:intls_connectstri...
71
热度 -
PB9.0调用DELPHI写的动态库解决方案
PB9.0调用DELPHI写的动态库举个例子,有delphi写的DLL中有个函数是这样声明的:functionsetConnect(constdbName,dbUser,dbPwd:pchar):boolean;stdcall;那我在PB中应该如何声明??color='#FF8000'>------解决方案--------------------functionbooleansetConnect(...
79
热度 -
PB9.0调用DELPHI写的动态库解决方法
PB9.0调用DELPHI写的动态库举个例子,有delphi写的DLL中有个函数是这样声明的:functionsetConnect(constdbName,dbUser,dbPwd:pchar):boolean;stdcall;那我在PB中应该如何声明??color='#e78608'>------解决方案--------------------functionbooleansetConnect(...
128
热度 -
未能找到存储过程,该怎么处理
未能找到存储过程我想在表mom_moallocate中删除行,但执行代码后提示“未能找到存储过程‘SQL’”,请问怎样解决,代码如下:procedureTMainForm.Btn_deleteClick(Sender:TObject);varSQL:string;varcaption,content:string;begincaption:='提示';content:='子件删除成功!';SQL:...
143
热度 -
未能找出存储过程
未能找到存储过程我想在表mom_moallocate中删除行,但执行代码后提示“未能找到存储过程‘SQL’”,请问怎样解决,代码如下:procedureTMainForm.Btn_deleteClick(Sender:TObject);varSQL:string;varcaption,content:string;begincaption:='提示';content:='子件删除成功!';SQL:...
9517
热度 -
以上Delphi代码,使用C#怎样实现
求救以下Delphi代码,使用C#怎样实现。1、functionCheckSum(varCommData:TClientCommPacket):Boolean;varBuf:arrayofByte;i:Integer;Sum:LongWord;beginSetLength(Buf,SizeOf(CommData));CopyMemory(@Buf[0],@CommData,SizeOf(CommD...
6244
热度 -
在没有安装 SQLServer2000的情况上,使用 osql
在没有安装SQLServer2000的情况下,使用osql机器上没有安装SQLServer2000,我写了一个程序,写的代码:sSQL:='osql-U'+sUser+'-P'+sPwd+'-S'+sIP+'-d'+comboBox1.Text+'-iExcelData.sql';winexec(PChar(sSQL),0);我是不是需要把osql.exe这个东西,放到我写的程序.exe的同目录下...
105
热度 -
怎么调用DLL到本地来操作串口
如何调用DLL到本地来操作串口?DLL是硬件接口(在本地可调用),已封装打开串口以及操作硬件的程序,将DLL放在服务器上,现在想从服务器调到客户端来操作硬件,也就是远程可调用打开串口等操作,有什么办法可行?DLL里的串口函数:functionJava_com_gsxunjiansys_CommDLL_BeanDLL_termcommopen(PEnv:PJNIEnv;Obj:JObject;Por...
105
热度 -
有没有用过delphi的解决思路
有没有用过delphi的http://access911.net/csdn/FileDescription.asp?mdb=2011-10-26&id=42&mode=3客户的程序从中提取了两个函数编译成dll提供给vfp使用调用过程中出现错误上面地址为dll下载链接Delphi(Pascal)codefunctionCompressFile(constDestFile,SrcFi...
8690
热度 -
dephi写的dll,pb怎么调用
dephi写的dll,pb如何调用functionGet_packet(CBCbh:string;port,baud:integer;p:pchar):integer;stdcall;external'SRWDll.dll';上面接口p其实是一个输出的内容。。但是p内容有可能很长;在dephi中调用是下面的写法p:=AllocMem(1048576);//分配内存i:=Get_packet('01...
60
热度 -
怎么将简体字保存到繁体数据库而不会出现乱码
如何将简体字保存到繁体数据库而不会出现乱码?如何将简体字保存到繁体数据库而不会出现乱码?Client环境:简体系统,写入简体字Server:SQLServer2000数据库语言,Chinese_Taiwan_Stroke_BIN现在出现的情况就是有些字写入数据库后就变成?了color='#FF8000'>------解决方案-------------------------------------...
7024
热度 -
求一段delphi代码转C#代码,用,可人民币支付,多谢
求一段delphi代码转C#代码,急用,可人民币支付,谢谢急用。联系QQ:8775262,谢谢。需要进行DllImport的地方直接写DLLImport.方法名。如:DLLImport.GlobalAddAtom(……);文件:UShare.pasDelphi(Pascal)codeunitUShare;interfaceusesWindows,Messages;constcMapFileName...
9554
热度 -
PB调用Delphi封装的函数有关问题
PB调用Delphi封装的函数问题这个是Delphi封装的2个函数functionRegServer(SName:pchar;Port:integer):integerfunctionConnect(SName:pchar;Port:integer):integerPB中调用DLLpublicfunctionintRegServer(stringsName,intport)library"Flag...
82
热度 -
写一个程序实现将自己EDIT的值转给另一个程序(有子窗口或者是PANEL)的文本框里,请教怎样实现
写一个程序实现将自己EDIT的值转给另一个程序(有子窗口或者是PANEL)的文本框里,请问怎样实现下面程式(test.exe)是实现点击button,实现将Pedit1的内容输送到另一个程式(receive.exe)的edit组件内CODE如下:Delphi(Pascal)codeprocedureTPartForm.Button1Click(Sender:TObject);varh:HWND;s...
6789
热度 -
mxoutlookbarpro控件如何实现拖拽文件功能?也就是动态创建按钮,哪位高人现身说法一下
mxoutlookbarpro控件怎么实现拖拽文件功能?也就是动态创建按钮,哪位高人现身说法一下?如题:我现在用这个控件时发现它的demo中的拖拽功能,在实现动态创建按钮时,它里面得先有了一个按钮才能创建,否则创建不了;代码如下:procedureTFrm_Main.mxOutlookBarProDragDrop(Sender:TmxOutlookBarPro;Source:TObject;Dat...
9180
热度 -
调用弹出页面时,却把当前所看的页面替换了.该怎么解决
调用弹出页面时,却把当前所看的页面替换了.....通过DELPHI写的程序,调用ShellExecute(handle,nil,pchar('下面页面的网址'),nil,nil,sw_shownormal);<%@pagecontentType="text/html;charset=gb2312"%><html><head>&...
447
热度 -
引用DELPHI的dll时出现的异常.SOS
引用DELPHI的dll时出现的错误.SOS!delphi的dll接口文档是这么写的:functionYK_SendMessage(constUserId,Password,Msg,Destnumbers:PChar):integer;stdcall;external'YK_SmsService.dll';我的代码是这么写的:[DllImport("YK_SmsServi...
3887
热度 -
DeviceIoControl 设备参数异常的有关问题
DeviceIoControl设备参数错误的问题本人不懂驱动核心编程网上下了一个sys文件还有源代码用的是DeviceIoControl来和应用层通信但是DeviceIoControl每次都说参数不正确代码如下OpenDevice(g_szDriverName,&hDevice);这个函数显示成功的,hDevice也有值success=DeviceIoControl(hDevice, ...
180
热度 -
delphi 里面如何检测com口是不是存在
delphi里面怎么检测com口是不是存在如题,最好有代码,是通过判断键值\Device\Serial0就可以吗?准确吗?只要判断这个键值就可以区分有没有com口吗还是有其他的方案,请高手指点下。color='#FF8000'>------解决方案--------------------------------------------------------procedureEnumComPort...
8301
热度 -
文本文件透明加密的有关问题
文本文件透明加密的问题1.不能捕获irp是因为explore将文件读入缓冲区,那么发起读操作的进程是notepad吗?得到当前进程C/C++codeULONGcfCurProcName(PUNICODE_STRINGname){PEPROCESScurproc;ULONGi,need_len;ANSI_STRINGansi_name;if(s_cf_proc_name_offset==0)retu...
115
热度