delphi 类库| 耗时:0.24秒|92320条结果

Delphi7.0的

请问Delphi7.0的 是怎么回事?如果要下载Delphi7.0的要到哪里下载。 只要给出有用的答案马上给分。 回复讨论(解决方案) Delphi盒子 怎么让delphi用其他,MFC什么的? 楼主还没睡醒哈 不用下载,VCLDELPHI里本来
http://www.itnose.net/detail/803784.html 2014-02-21 15:18   [VCL组件开发]

Delphi如何像C#那样创建一个并引用?

 在C#中创建一个项目,然后再其他项目里面引用一下就可以使用库里面的delphi有没有类似的方式? 我的意思就是在同一个projectgroup下的引用并使用 回复讨论(解决方案) 可以啊 1.file-->new-->unit; 新建一个unit
http://www.itnose.net/detail/6379158.html 2015-09-28 15:35   [语言基础]

Delphi中如何使用C#开发的

Delphi 7 可以吗?还是一定要使用Delphi.Net 回复讨论(解决方案) 装了DELPHI.NET就可以了,支持.NET的开发工具都可以互相使用
http://www.itnose.net/detail/871919.html 2014-02-22 17:41   [SDK/API]

delphi数据朋友

POS行业,工作地点深圳,需要2年以上delphi+sql2000经验。待遇3.5-5.5K细则请联系Q:26566744 或发邮件到QQ邮箱。 回复讨论(解决方案) 还在招人啊。 待遇3.5-5.5K 湛江游戏开发公司招聘Delphi和c++程序员 一、游戏客户端开发
http://www.itnose.net/detail/751732.html 2014-02-20 15:55   [程序员]

谁说delphi没有IOCPdelphi新的IOCP,开源中

; UniDac相关工具   真正的演示 -----------------------------------------------------   ADOPool  Ado连接池 ADOQuery Ado MDB数据查询
http://www.itnose.net/detail/6001574.html 2014-02-26 00:32   [语言基础]

Delphi XE MySQL数据操作 MySQLHelper

注: 无需odbc配置 1 {* 2 * MySQL Helper v1.0 3 * 2015.6.19 4 * 说明: 5 * 这是一个操作MySQL的,该类必须和libmysql.dll,dbxmys.dll两个文件一起使用. 6 * 安装: 7 * 将dll拷贝到C:\Windows\System32下和项目目录下,发行的时候放到exe目录下即可. 8 * 使用: 9 * //使用insert,update,delete语句时请使用:TMySQLHelper.ExecSQL();返回受影响行数Integer; 10 * //使用select语句时请使用TMySQLHelper.Query();返回数据集TSQLQuery; 11 * 测试: 12 * WIN7 SP1 X86 , MySQL 5.6.17 , Delphi XE 测试通过. 13 * ========================================== 14 * var 15 * MySQLHelper : TMySQLHelper; 16 * begin 17 * MySQLHelper := TMySQLHelper.Create; 18 * MySQLHelper.User_name := 'root'; 19 * MySQLHelper.Password := 'root'; 20 * MySQLHelper.Database := 'Test'; 21 * ShowMessage('影响行数:'+IntToStr(MySQLHelper.ExecSQL('INSERT INTO test(name)values(''FangJun'')'))); 22 * MySQLHelper.Free; 23 * end; 24 * ========================================== 25 * var 26 * MySQLHelper : TMySQLHelper; 27 * SQLQuery : TSQLQuery; 28 * begin 29 * MySQLHelper := TMySQLHelper.Create; 30 * MySQLHelper.User_name := 'root'; 31 * MySQLHelper.Password := 'root'; 32 * MySQLHelper.Database := 'Test'; 33 * SQLQuery := TSQLQuery.Create(nil); 34 * SQLQuery := MySQLHelper.Query('select * from test'); 35 * while not SQLQuery.Eof do 36 * begin 37 * ShowMessage('姓名:'+VarToStr(SQLQuery.FieldValues['name']); 38 * SQLQuery.Next; 39 * end; 40 * MySQLHelper.MySQLClose; 41 * MySQLHelper.Free; 42 * end; 43 * ========================================== 44 } 45 unit MySQLHelper; 46 47 interface 48 49 uses 50 SysUtils,StdCtrls,Classes,Variants,DB,SqlExpr,DBXMySQL; 51 52 type 53 TMySQLHelper = class(TObject) 54 private 55 _PORT : Integer; 56 _HOST : string; 57 _DATABASE : string; 58 _USER_NAME : string; 59 _PASSWORD : string; 60 _SERVERCHARSET : string; 61 _SQLQuery : TSQLQuery; 62 _SQLConnection : TSQLConnection; 63 64 procedure Set_PORT(const Value: Integer); 65 procedure Set_HOST(const Value: string); 66 procedure Set_DATABASE (const Value: string); 67 procedure Set_USER_NAME(const Value: string); 68 procedure Set_PASSWORD (const Value: string); 69 procedure Set_SERVERCHARSET(const Value: string); 70 function MySQLConnection:TSQLConnection; 71 72 public 73 constructor Create; overload; 74 property Post:Integer write Set_PORT; 75 property Host:string write Set_HOST; 76 property Database:string write Set_DATABASE; 77 property User_name:string write Set_USER_NAME; 78 property Password:string write Set_PASSWORD; 79 property ServerCharSet:string write Set_SERVERCHARSET; 80 81 function ExecSQL(const SQL:string):Integer; 82 function Query(const SQL:string):TSQLQuery; 83 procedure MySQLClose; 84 end; 85 86 implementation 87 88 //初始化 89 constructor TMySQLHelper.Create; 90 begin 91 _HOST := '127.0.0.1'; 92 _PORT := 3306; 93 _SERVERCHARSET := 'utf8'; 94 end; 95 96 //执行 SQL 语句 INSERT , UPDATE , DELETE 返回影响行数 97 function TMySQLHelper.ExecSQL(const SQL:string):Integer; 98 begin 99 if not Assigned(_SQLQuery) then 100 _SQLQuery := TSQLQuery.Create(nil); 101 with _SQLQuery do 102 begin 103 Close; 104 SQL.Clear; 105 SQLConnection := MySQLConnection; 106 end; 107 try 108 _SQLQuery.SQL.Add(SQL); 109 result := _SQLQuery.ExecSQL; 110 except on E: Exception do 111 raise Exception.Create('SQL语句执行失败 :'+E.Message); 112 end; 113 MySQLClose; 114 end; 115 116 //执行 SQL 语句 Select 返回 数据集 117 function TMySQLHelper.Query(const SQL:string):TSQLQuery; 118 begin 119 if not Assigned(_SQLQuery) then 120 _SQLQuery := TSQLQuery.Create(nil); 121 with _SQLQuery do 122 begin 123 Close; 124 SQL.Clear; 125 SQLConnection := MySQLConnection; 126 end; 127 try 128 _SQLQuery.SQL.Add(SQL); 129 _SQLQuery.Open; 130 _SQLQuery.Active := true; 131 result := _SQLQuery; 132 except on E: Exception do 133 raise Exception.Create('SQL语句查询失败 :'+E.Message); 134 end; 135 end; 136 137 //关闭连接 138 procedure TMySQLHelper.MySQLClose; 139 begin 140 _SQLQuery.Close; 141 _SQLConnection.Close; 142 end; 143 144 //连接MySQL 返回 TSQLConnection 145 function TMySQLHelper.MySQLConnection:TSQLConnection; 146 begin 147 if not Assigned(_SQLConnection) then 148 _SQLConnection := TSQLConnection.Create(nil); 149 with _SQLConnection do 150 begin 151 Close; 152 GetDriverFunc := 'getSQLDriverMYSQL'; 153 LibraryName := 'dbxmys.dll'; 154 VendorLib := 'LIBMYSQL.dll'; 155 DriverName:= 'MySQL'; 156 Params.Values['drivername']:= 'MySQL'; 157 Params.Values['port'] := IntToStr(_PORT); 158 Params.Values['hostname'] := _HOST; 159 Params.Values['database'] := _DATABASE; 160 Params.Values['user_name'] := _USER_NAME; 161 Params.Values['password'] := _PASSWORD; 162 Params.Values['ServerCharSet'] := _SERVERCHARSET; 163 end; 164 try 165 _SQLConnection.Open; 166 _SQLConnection.Connected := true; 167 result := _SQLConnection; 168 except on E: Exception do 169 raise Exception.Create('数据连接错误:'+E.Message); 170 end; 171 end; 172 173 174 procedure TMySQLHelper.Set_PORT(const Value: Integer); 175 begin 176 if Value<>0 then 177 _PORT := Value 178 end; 179 180 procedure TMySQLHelper.Set_HOST (const Value: string); 181 begin 182 if Value<>'' then 183 _HOST := Value 184 end; 185 186 procedure TMySQLHelper.Set_DATABASE (const Value: string); 187 begin 188 _DATABASE := Value 189 end; 190 191 procedure TMySQLHelper.Set_USER_NAME (const Value: string); 192 begin 193 _USER_NAME := Value; 194 end; 195 196 procedure TMySQLHelper.Set_PASSWORD (const Value: string); 197 begin 198 _PASSWORD := Value; 199 end; 200 201 procedure TMySQLHelper.Set_SERVERCHARSET (const Value: string); 202 begin 203 if Value<>'' then 204 _SERVERCHARSET := Value 205 end; 206 207 end.  下载地址 MySQLHelper
http://www.itnose.net/detail/6300237.html 2015-06-19 11:27   [语言基础]

请问delphi能否载入有含有mfc的dll?

如果可以的话,请问是用什么方法,谢谢 回复讨论(解决方案) 用纯抽象,或者接口. 在VC里面,DLL分普通DLL,与MFC扩展DLL,我个人理解为扩展DLL可以理解为 BPL。 我估计,只要MFC DLL的依赖性没问题,按普通方式,应该是可以载入的
http://www.itnose.net/detail/6065950.html 2014-07-06 19:34   [语言基础]

delphi怎用调用vc动态连接中的函数?

delphi中调用vc编的dll 比如vc中给的接口定义为 void x(int d);               
http://www.itnose.net/detail/968694.html 2014-03-02 19:43   [程序员]

请教Delphi如何引用动态中输出的

如果动态中输出的不是函数而是几个的话,在Delphi中要如何引用这些?(动态不是Delphi写的) 回复讨论(解决方案) 你可以采用虚虚方法实现.然后用一个工厂函数导出. 我知道了 delphi中也可以直接应用,真晕啊
http://www.itnose.net/detail/944924.html 2014-03-01 23:36   [语言基础]

求救:有没有谁有DELPHI 7.X下用的关于图象处理的

http://www.itnose.net/detail/776129.html 2014-02-20 21:57   [多媒体]

Delphi动态链接中定义的问题.

    用Delphi写一个动态链接,在DLL中有一个自定义,其中还有一个函数用到了这个。当调用动态链接的这个函数时,提示未定义这个的类型。我就是想问,在外部调用DLL的时候,怎么使用 DLL 定义的? 回复讨论(解决方案
http://www.itnose.net/detail/748476.html 2014-02-20 15:22   [语言基础]

delphi 支持多类型数据操作

问题主要突出在不同数据的部分函数不一样 如 Accsee中是iif,而SQLServer中就是 case when then else end了 如何在同一源码中实现多种数据操作共用 回复讨论(解决方案) 自己做个基,然后
http://www.itnose.net/detail/703599.html 2014-02-19 19:31   [数据库]

【Allwinner ClassA20分析】 1.ARM上的Delphi

      提起上位机上的Delphi,在以前可能熟悉的人很多,虽然前几年随着Borland公司的倒闭,使用Delphi的人越来越少,但是这并不能掩盖她先进的VCL框架、全能选手的光芒。在Windows平台上,无论从Win95,还是到Win8.1,编译过一次的exe文件可以在无需安装任何运行时的情况下直接运行,曾经也是病毒编写优先考虑的语言;而在各种管理系统的开发中,Delphi也是开发效率运、行效率极其优秀的语言。只是由于Borland公司过度捆绑Windows的策略,使其应用于其他平台的机会大大减少。她的姐妹,在x86的Linux上的Kilix也是昙花一现没有流行起来,在ARM上就更不用说了。 近期,被易博龙收购了的Delphi,在新的公司的带领下开始绝地反击,推出的Delphi XE系列不仅可以开发Windows 32位、64位的原生程序,同时也可以在不更改代码的情况下直接编译为Android和iOS的程序,大大扩展了应用场合。而且继续保持了快速开发、控件丰富等优点。试想一下可视开发,直接在窗体中拖过来几个按钮输入框什么的,就能在你的设备上运行起来,这样的开发简直是种享受。          说了这么多,该轮到主角现身了。不过别着急,这次的主角不是Delphi,而是非常类似于Delphi的但无任何血缘关系的兄弟:free pascal。都是基于pascal语言,但是这个兄弟更加神通广大,无论是x86的Windows、Linux、Android、MacOS等,还是ARM的WinCE、Linux、Android、iOS之类的,亦或是MIPS架构的操作系统,都可以成为他活跃的平台。和Delphi的相似度达到98%以上,并且秉承Delphi的优点,号称可以“一次编写,到处编译”。编写好的程序,采用自身不同的编译器,可以直接编译为对应系统的程序,极大地减少了系统间移植的工作量。          free pascal正如其名,他是免费的,无论是学习还是开发产品都在许可之内。free pascal是一种语言,他有自己的IDE环境:Lazarus。经过了很长一段时间的发展,修正了许许多多的bug之后,现在的版本是1.2x,比较稳定了,可以正式使用了。他的长相和Delphi 5很像,不管是新手还是老手都可以很快的使用起来。等不及了,还是快快请Lazarus展示一下吧。          忍不住还是要罗嗦几句,此次所提到的开发环境、编译环境、运行环境,都是在香蕉派上的ARM Lubuntu进行的,而环境的搭建没有任何高难度操作,没有花哨的技巧,一切只为了简单实用、快速开发。对于其他Linux的发行版亦是如此,其他的ARM设备同样操作。在香蕉派上编译出的可执行文件,可以直接拷贝到其他ARM板上运行(牵扯到的底层驱动除外),不需要携带一大堆的so或其他文件。          言归正传,开始安装Lazarus。只需要4条命令: 1.sudo apt-get update 2.sudo apt-get upgrade 3.sudo apt-get install fpc 4.sudo apt-get install lazarus     其实只要最后一条命令也是可以的,在安装lazarus时,fpc编译器在某些Linux版本中可以自动安装。不过为了保险起见,还是单独安装一下比较好。并且为了保证安装的是最新版本,最前面的两条命令也是执行一下为好。          安装过程就不再赘述了,没有需要手动更改的东西。程序比较大,大概2、300M的样子,网速和SD卡的速度很大程度上影响安装速度,但是我已很满足,至少比QT之类的要快速和容易很多。安装好后,在开始菜单中的编程子菜单中可以找到它,Lazarus,运行吧。          运行后,是这个样子地:       都是英文的,不怕,常用的操作没有几个。不过Lazarus还是很贴心地提供了中文语言,这个语言插件是由中国爱好者开发的,再次感谢他。中文语言可以在菜单“Tools”->“Options”->“Desktop”->“Language”中选择。        保存设置后,需要关闭Lazarus,再次运行后就变成中文了。       Lazarus运行后,默认创建一个带有窗体的工程,根据图中的编号,各个部分的功能简单介绍如下: 1.可视化的编辑窗体:这个窗体就是编译程序显示的窗体,所见即所得; 2.运行、断点调试部分:可直接运行当前的程序,并可以单步执行每一条语句。执行到断点时,将鼠标放在某一变量上会显示当前的运行值; 3.组件工具栏部分:选择需要的组件,可以放置在编辑窗体上合适的位置,双击后可以直接跳转到对应的代码行,自行添加功能代码; 4.对象观察器:显示编辑窗体上已放置的所有组件,由于覆盖而造成不能用鼠标点击的组件可以在这里选择; 5.属性和事件编辑部分:选择某个组件后,可以在这里设置一些属性值,改变其功能或样式,也可为其添加事件等(窗体也是组件); 6.代码编辑器:这个不用多说了,写代码的地方。用鼠标点击行号前的空白可以设置断点,再次点击取消断点; 7.消息窗体:编译时的一些信息在这里显示,包括警告、错误等;          大体功能介绍完毕,还是来看一下运行之后是什么样子的吧。如果直接点击运行调试部分的绿色三角运行起来,那实在是太没意思了,还是来点实用的功能吧:点击关闭按钮,弹出对话框,让用户选择是否退出程序。          首先,在组件工具栏中选择"Button",并放置在窗体中;在属性中找到"Caption",并更改值为"Quit"回车,这个是在按钮上显示的文字;        然后,双击窗体中的这个"Button",自动跳转到代码编辑器中的"Button_Click"事件代码中,在其中编写代码 Close;  不区分大小写;          最后,选择窗体,再在事件属性和事件编辑部分选择事件标签,找到"OnCloseQuery",双击跳转到代码后,编写代码 CanClose:= Application.MessageBox('Are you sure?', 'Title', MB_OKCANCEL) = IDOK; 别忘了在代码编辑器最上边的代码uses后面加入一个常量定义的单元LCLType;如果不加这个单元,就要把MB_OKCANCEL和IDOK都改为1,否则会在编译时提示找不到定义。       开始运行,点击绿色的三角,第一次运行时间有些长,尤其是带有窗体的程序。从第二次之后就快很多了。运行之后,点击Quit按钮,弹出对话框 选择“OK”,退出程序;选择“Cancel”,返回到窗体。          运行原理:当点击"Quit"按钮时执行关闭代码,正常情况下应该直接关闭窗体退出程序。但是由于添加了"OnCloseQuery"事件,也就是在关闭窗体前触发的事件,并在其中添加了对话框来让用户选择是否退出,根据用户选择的结果来判断下一步需要执行的动作。如果用户取消了操作,则不再执行关闭窗体的动作了。          现在你已经编写了一个可以在Windows95~8.1、Linux、MacOS、WinCE、ARM Linux、Android上运行的程序代码,只要到相应的平台下编译就OK了。至此对Lazarus有了感性的认识,操作起来是否比较方便?如果有兴趣,请看下一节,讲述pascal代码单元的结构及常用调试方法。     如果想下载ClassA20的封装文件,请访问:https://github.com/tjCFeng/ClassA20。
http://www.itnose.net/detail/6150374.html 2014-11-12 21:59   [语言基础]

100分求delphi7访问oracle数据的基础代码

如题: 求一个在delphi7环境下访问oracle数据的基础代码,包括连接数据,执行sql语句,执行存储过程,执行事务,带参数的和不带参数的,并可以将数据连接字符串写在外部文件中,便于修改。 email:zzyzgy@tom.dom 感谢 回复讨论(解决方案) http
http://www.itnose.net/detail/881940.html 2014-03-01 03:53   [数据库]

  1  2  3  4  5 下一页>