关于delphi6和delphi7相关的问题 [问题点数:40分,结帖人lj10193019]

Bbs1
本版专家分:0
结帖率 100%
Bbs4
本版专家分:1384
Bbs1
本版专家分:0
Delphi 6 rtl3
Delphi 6 RTL Update Pack 3 运行时更新包 给有需要的人
亲密接触ASP.Net(8)
delphi6补丁
<em>delphi6</em>补丁(D6_upd1_ent)
关于delphi6delphi7的BDE问题
有个程序是用<em>delphi6</em>开发的用的是borland的EDB技术连接数据库,现在我们把程序用<em>delphi7</em>编译了,但是用<em>delphi6</em>的bde连不上了,在不删除正式环境的<em>delphi6</em>的bde情况下怎么才能正常运行。数据库是SQL Server2000。如果要下载高版本bde有没有免费的网址?
DELPHI6 OR DELPHI7?
现在用DELPHI7好吗?
delphi6升级到delphi7之后的问题
我原来用的是<em>delphi6</em>,最近换成了<em>delphi7</em>,原来的三方控件在网上下了重新安装。其中有一个是DevExpress组件,原来安装的是“DevExpress.ExpressQuantumGrid.Pro.3.2.1.with.source.for.Delphi“ for D6的版本。现在改成了“DevExQuantumGrid v3.22 Pro for D7_must”rn,现在出现一个<em>问题</em>不知道怎么解决,请大家帮助看一下。编译时提示如下:rn[Error] dxUtils.pas(433): Undeclare identifier:'TDrawingStyle'rn[Error] dxUtils.pas(433): Data type too large:exceeds 2GBrn[Error] dxUtils.pas(433): Number of elements differs from declareationrn[Error] dxUtils.pas(435): Undeclare identifier:'TImageType'rn[Error] dxUtils.pas(435): Data type too large:exceeds 2GBrn[Error] dxUtils.pas(435): Number of elements differs from declareation
基于delphi6 or delphi7 的数据库开发问题
Acess的数据库,<em>delphi6</em>开发的程序访问数据库,用query控件,在开发的机子上访问数据库没有<em>问题</em>,但是把程序拷到别的机子上就会报错误:找不到动态库qtintf.dll 而且该动态库并不是我写的。在开发的机子上找得到这个动态库,但是在别的机子上就找不到。开始是以为环境没有配好,所以用install shield 制作安装文件,可是还是报错!希望哪位大侠帮忙解决。急!……
delphi6delphi7差别的问题
本人现学<em>delphi7</em>.别人给我一个程序,是<em>delphi6</em>做的,在<em>delphi7</em>打开工程时提示错误:以下控件没有找到:ttoolbarbutton97,tbsskinlable,tbsskinradiogroup,tbitcheckbox,txp_button,tedit97,tcommportdriver,tnmudp。rnrn请问:rn 1,以上控件都是些什么控件哦?怎么添加?rn 2,<em>delphi7</em>不能对<em>delphi6</em>下做的代码兼容么?rnrn
《Delphi6组件大全》
《Delphi6组件大全》,欢迎下载,1111111111111111111
Delphi6 彻底研究
Delphi6 彻底研究 Delphi6 彻底研究
delphi6控件大全
<em>delphi6</em>集成组件全面介绍,组件的属性方法事件说明详尽
Delphi6中类的使用
delphi中对类的简易Demo,类的定义、类的创建,类的特性测试,类的对象接口的定义使用;
Delphi6控件内容完整截屏
由于用户那套旧系统需要截取Form中控件的内容,但经常因内容超长而截屏不完整(又被踢下坑了)。 经搜索,网上有不少<em>关于</em>这方面的资料(感谢他们的分享),再自己琢磨了一下,得到了以下代码。 值得注意的是,以下代码在Win8下可正常截图,但在Win7下超出屏幕部分的截取就会黑屏。由于程序只是简单的调用了user32.dll的方法,所以<em>问题</em>还是出在user32.dll(真心没闹懂微软想干嘛) 后来针
Delphi6 VS. Delphi7
一直在用.net ,觉得要做一些小程序运行速度太慢了,想学一下使用Delphi ,这样做一些W32下的小软件会比较方便 ,不知用哪个版本比较好?Delphi6?Delphi7?Delphi8?好像Delphi8也是.net模式了,我想在6和7中选一个,主要是有人建议用6,说7的Bug太多了,但我觉得升级版总是会有些更方便,请大家给个建议
delphi6delphi7 的安装?
我用的是win2000操作系统,可不可以同时安装<em>delphi6</em>与<em>delphi7</em>,如果可以的话,怎么安装呀?
delphi6delphi7兼容问题!
为什么我在<em>delphi7</em>中编的程序用<em>delphi6</em>运行的时候会出现*_TLB文件呢?还运行不了.
谁知道delphi6delphi7的区别
小弟正在学6,却又看到了7出来了,我想7肯定比6先进,所以想知道它先进在那里,比6有那些新的功能、优点。
能否Delphi6使用Delphi6的编译器,Delphi7使用Delphi7的编译器
rn我同时安装了Delphi6 ,Delphi7 ,但好像只能用一个编译器.rn我需要编译旧程序时使用Delphi6 (Delphi6的编译器)rn编译新版程序时使用Delphi7 (Delphi7的编译器)rnrn我安装了Delphi7后,使用Delphi6时调用的编译器变成了(Delphi7的编译器),rnrn其实我需要 Delphi6 + Delphi6的编译器rn Delphi7 + Delphi7的编译器rn rn不需要 Delphi6 + Delphi7的编译器rnrnhow to ???rn rn
关于delphi6delphi7的区别。大家指点一下。
请问<em>delphi6</em>当中的TquickRep这个控件rn在<em>delphi7</em>当中怎么没有了。还是换成其他的了rn如果是那位大虾熟悉的告诉我一下可以嘛?rn谢谢了
Delphi7 在 Delphi6 的基础上增加了什么?
听高手说Delphi7很好用,大家觉得有没有必要将自己电脑里的Delphi6升级到Delphi7呢?
delphi6的NMHTTP或delphi7的IDHTTP保存网页的问题
我想用<em>delphi6</em>的NMHTTP或<em>delphi7</em>的IDHTTP自动保存网页的内容,但是像URL如:http://www.xxx.com/aa.htm的可以。但是像:http://www.xxx.com/getvalue.asp?id=xxx的就不行了。应该怎么设置?还有访问的网站是要用户名和密码的,应该怎么设置?一经验证马上给分!
Delphi6转Delphi7的FastReport控件问题
最近需要把一套用Delphi6书写的程序转换成Delphi7版本的,但是这个程序有用到FastReport控件,然后我还没用过FastReport控件,直接编译的话报错找不到控件TfrReport,于是我下载并安装了FastReport的4版本,发现没有TfrReport控件,找到一个TFrxReport控件,于是我测试,但是好像好些属性都不支持,例如原来的.Title和.FindObject('').Memo都没有了。我想知道如果想要升级这个项目的话,如何替换原有的FastReport控件到Delphi7可用的版本?取消肯定不现实,用到的地方有很多。
求助:delphi6 and delphi7 控件安装??
我把<em>delphi6</em>和<em>delphi7</em>同时装上了,现在安装控件了,但是系统总是默认<em>delphi7</em> 打开安装。rn怎么控制???rn 急救?/
解决Win7下Delphi6,Delphi7帮助文档无法显示问题
解决Delphi在Win7下无法显示帮助的<em>问题</em>,压缩包里包含32位和64位更新文件,直接下载解压安装补丁就可以了,非常不错的,值得收藏。
delphi7 下运行delphi6 程序所遇到的问题
rn买了一本书《深入浅出<em>delphi6</em>》,带有配套光盘。但是,手头的机器只装<em>delphi7</em>。rn在打开工程文件时,一切正常;但是,当运行<em>delphi6</em>的程序时,在编译检查栏出现“[Fatal Error] Could not create output file 'E:\lxq\深入浅出 DELPHI\Sample\CH04\04-1\Polymorphism.exe' ”的错误提示,rn请教各位,为什么会出现这种错误?应该如何配置,才能避免以上错误的发生?
求Delphi6和Delphi7的甘特图控件
求Delphi6和Delphi7的甘特图控件一个,可以用作生产排程,类似于MS Project功能,支持鼠标拖拉,鼠标指定前置任务(箭头),rn试用版的也可以,等我测试后符合要求的可以详谈购买<em>问题</em>。
delphi7delphi6 差别很大吗?
我想把我的delphi5升级,不知到6 和 7 哪个好
Delphi7和Delphi6能通用吗?
比如6里编的程序能不能到7里编译执行?rn或者反过来?
Delphi7 的查询语句相关问题,求解!!!
给位高手,帮忙看看如下<em>问题</em>。就是Delphi 的一个条件查询,运行时总提示“A”列名无效,怎么个情况???rnrnWith ADOQuery1 dorn beginrn Close;rn SQL.Clear;rn SQL.Add(' Select * From 客房信息表');rn [b]SQL.Add(' Where 配置 = A');[/b][color=#FF0000][/color] Open;rn end;rnrn若写成:SQL.Add(' Where 配置:= A'); 则提示“配置:”附近语法错误rnrn求高手们帮看看,感谢~~~~~~~~rnrnrn另外,请教一下,add()里面时常遇到引号的<em>问题</em>,能否告知这个引号怎么用呢rne.g:SQL.Add(' Where 配置= '''+edit1.text+''''); 这引号有什么意义?
FastReport4.3 for delphi7中的相关问题
1.pageheader部门显示不全,预览时是正常的rn2.能显示所有记录,但一页只能显示1条
关于Delphi6数据库的问题
各位前辈:rn 我在Delphi6.0里编一个查询程序:用FindKey函数到一个数据表里查找值,但不知为什么编译时总是出现出错,出错信息为:“Key violation”,这个<em>问题</em>是我用Paradox的db数据表出现的<em>问题</em>,但我改用ADO去连接Access数据库的表却不会出现这种情况。唉,救救我啦,万分感激,谢谢!rnrn 学子:jackyrong
关于Delphi6的补丁问题、?
大家帮我看看是什么<em>问题</em>:rn1:Delphi启动,关闭时总是很慢,统计了一下,差不多得15秒;我真是忍受不了了;rnrn 问问大家是不是有补丁可打、在哪下载?rn2:系统是98的,sqlserver 2000装不了,delpyi6装了后,找不到adoquery的接口rnrn是不是IE没有升级的原因?在哪下载IE的高版本。rnrn苦脑。。。。。。。。。。rn救我。。。。。。。。。rn
关于delphi6运行时的问题
我每次在启动<em>delphi6</em>的时候,总是出错说dbx.dbi不能发现或识别,并且报告说有扩展名是bpl的文件没有载入,忽略该<em>问题</em>后<em>delphi6</em>能启动,但有些控件没有了,请问是什么原因?
关于delphi6问题
我在borland的英文网站上的确看到了<em>delphi6</em>的详细介绍,网上预定,还有包装图。rn<em>delphi6</em>正式版发布了吗?如果发布了有谁见到D版了。
关于Delphi6的问题
Delphi5中关键字NULL在程序中表示空字符串,在Delphi6中使用NULL关键字为何它提示我出错?
关于Delphi6的问题
Delphi6.0上增加了dbExpress元件,可是我没法使用,提示什么.DLL加载错误,而且根本机子上根本没有这些动态连接库,好像是要安装些什么才能使用,请教各位:要安装些什么?哪儿有下载的,谢谢!
关于INDY for Delphi6的问题
那位兄弟能告诉我 INDY for Delphi6 的下载网址或通过QQ传给我这个控件小弟将不胜感激,现在正等着急用~~~~~~~~~~~~~~~~~~~~~~~!
关于delphi7 下拉列表框的问题
界面有几个<em>相关</em>的下拉列表框,怎么实现当1个列表框的内容发生改变后,其他的下拉列表框的内容也能发生改变?rn就当是自动选择。rnrn谢谢~~
关于delphi7问题
请问,为什么编译的时候,。出现如下错误rn[Fatal Error] Required package 'nmfast' not found
关于Delphi7和IntraWeb的问题
我用了一个WebApplication with DataModule,在DataModule里放了一个DataBase和一个Query,指向的是本地SQL Server 2000,DataBase连接成功rnrn当我用Query查询表时,没有<em>问题</em>rnrn但是,我用Query插入表记录,却没有成功,界面返回结果是成功了,但表中没有相应数据,表有一个自增量字段,我用SQL Analyzer自己手工插入记录,发现自增量已经增加了,但是相应的数据却不在表里 有谁知道是怎么回事?rnrn在WebApplication里写表应该怎样写?rnrn后来继续试验中,发现查询没<em>问题</em>,但是update,delete,insert都没有反应,谁知道?
关于Delphi7的问题
在Delphi 7中有一个RaveProject控件,定义好格式后保存时,我指定任何路径,系统都提示路径无效,哪位高手知道是什么原因吗?请赐教!
关于DELPHI7发送邮件的问题
**********rn引用部分:rnusesrn Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,rn Dialogs, StdCtrls, ExtCtrls, IdAntiFreezeBase, IdAntiFreeze, IdMessage,rn IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdBaseComponent,rn IdComponent, IdUDPBase, IdUDPClient, IdDNSResolver, ComCtrls;rn**********rn其它省略rn************rnrnrnfunction TForm1.GetMxList(AMxList: TStringList; AQName: string):integer;rn varrn i: Integer;rnbeginrnrn with IdDNSResolver dorn beginrn Host := '218.85.157.99';rn ReceiveTimeout := 1000;rn ClearVars;rn with DNSHeader dorn beginrn Qr := False;rn Opcode := 0;rn RD := True;rn QDCount := 1;rn end;rn DNSQDList.Clear;rn with DNSQDList.Add dorn beginrn QName := AQName;rn QType := cMX;rn QClass := cIN;rn end;rn getmxlist:=0;rn tryrn ResolveDNS;rn exceptrn getmxlist:=1;rn end;rn for i := 0 to DNSAnList.Count-1 dorn AMxList.Add(DNSAnList[i].RData.MX.Exchange + '=' + IntToStr(DNSAnList[i].RData.MX.Preference));rn end;rnrnend;rnrnrn出现错误如下:rn[Error] Unit1.pas(112): Undeclared identifier: 'ClearVars'rn[Error] Unit1.pas(113): Undeclared identifier: 'DNSHeader'rn[Error] Unit1.pas(115): Undeclared identifier: 'Qr'rn[Error] Unit1.pas(116): Undeclared identifier: 'Opcode'rn[Error] Unit1.pas(117): Undeclared identifier: 'RD'rn[Error] Unit1.pas(118): Undeclared identifier: 'QDCount'rn[Error] Unit1.pas(120): Undeclared identifier: 'DNSQDList'rn[Error] Unit1.pas(121): 'DO' expected but identifier 'Add' foundrn[Error] Unit1.pas(123): Undeclared identifier: 'QName'rn[Error] Unit1.pas(124): Undeclared identifier: 'QType'rn[Error] Unit1.pas(125): Undeclared identifier: 'QClass'rn[Error] Unit1.pas(129): Undeclared identifier: 'ResolveDNS'rn[Error] Unit1.pas(133): Undeclared identifier: 'DNSAnList'rnrn为什么啊????是版本<em>问题</em>么????应该如何解决。。。rnrn
关于DELPHI7的问题
刚学,遇到很多<em>问题</em>,请高手指教!!rn1.遇到报错:edatabaseerror with message'a component pk_货品资料 already exists'什么意思?rn2.如果想把数据库(SQL SERVER2000)记录中的主属性值一个一个按顺序地变成combobox组件中的item值,作为下拉选项,该怎么弄?rn3.如果想在DELPHI的表格(如dbgrid)中修改数据并能同时修改与之相连的数据库表格信息(类似在视图表格中修改,原表格也修改),怎么弄?
关于delphi7死机问题
我编了一个循环发送和接收判断的程序,用于串口通信,rn并设置了一个定时20秒的程序,如果20s内不满足条件1 则自动退出这个循环。rnrn开定时器;rnrepeatrn //这个地方为什么一定要加上showmessage('');rn 发送程序rn sleep(500);rn 接收程序;rn 判断程序;//判断内符合收敛则置条件1标志rnrnuntil 条件1;rnrn<em>问题</em>出在一定要在repeat后面加一个showmessage,否则程序必然死机。请问这是什么原因啊?
关于installshield for Delphi7的问题???
使用installshield for Delphi7能为驱动程序打包吗????????rn用它制作安装程序时,怎样去除欢迎界面和完成界面?????????? rn
关于delphi7的报表问题???
Delphi7怎么没有报表呀!!!rn还是在哪个文件下我没安装呢 !!
关于DELPHI7的问题!
有哪位大虾现在正在用<em>delphi7</em>阿!rn我想问一下在<em>delphi6</em>中,控件fastnet中的NMUDP怎么在rn7中不见了那,我在help中也找了,也没有啊?rn 还有我在XP上装DELPHI6怎么不能用阿!rn有小虾解释说:DELPHI6时XP还没有出世,故不能兼容,rn 而本人看见好多<em>delphi6</em>在XP中跑的很欢,rn 顾不敢苟同,望大虾指点!!!
delphi6做的程序在DELPHI7打开会不会出问题,delphi7做的程序在DELPHI6打开会不会出问题
<em>delphi6</em>做的程序在DELPHI7打开会不会出<em>问题</em>rn<em>delphi7</em>做的程序在DELPHI6打开会不会出<em>问题</em>rnrn
Delphi6 SP2 和Delphi7的资源文件汉化(包含源码)
这次合并上传,方便大家下载使用! 把delphi的类似Const的源文件汉化,是你的程序不在蹦出英文的错误信息!
Delphi6,Delphi7编译同一个程序的差别
我编写的程序因为用了数组和指针,在Delphi7下编译后放到没有安装Delphi7环境的机器上运行会出现 "Variant or Safe array is locked",而在有装Delphi7环境的机器上运行不会出现这个错误提示。而且,我将这个程序用Delphi6编译后放到那台未有Delphi环境的机器上运行就没有<em>问题</em>!这是什么原因,是否需要什么动态库,但我用ExeScope查看导入的动态库函数,用Delphi6与Delphi7编译的两个程序没有什么差别.实际上仅是两个文件大小不同了。请教这个<em>问题</em>的解??rn
Delphi7比较Delphi6和Delphi5有哪些改进?
听说最稳定,使用最多的版本还是Delphi5。是这样吗?
??Delphi6中的NMPOP3在Delphi7中是哪个??
??Delphi6中的NMPOP3在Delphi7中是哪个??
delphi6delphi7下无法调用activeX 控件的解决方法
<em>delphi6</em>、<em>delphi7</em>下无法调用activeX 控件的解决方法
Delphi7 跟Delphi6 有什么重大区别?
Delphi7 跟Delphi6 有什么重大区别?
delphi6delphi7的BUG大家都发现了哪些?
大家来谈谈DELPHI6的BUG吧。DELPHI没用过,大家感觉与6哪个好呢。大家介绍一下
请问可同时安装delphi7delphi6吗?
请问在一台电脑的同一操作系统下,可同时安装<em>delphi7</em>和<em>delphi6</em>吗?rn我的电脑本来装有<em>delphi7</em>,现在又想装<em>delphi6</em>,但装好不能打开?rnrnrn
Delphi7中能不能使用Delphi6的TClientSocket控件?
Delphi7中的TClientSocket控件没有了,能不能把D6中的移过来?怎么移?详细说一下,需要哪些文件?还有TServeSocket控件.rn发到我的邮箱asbeforelong@163.comrn给出详细方法,并且成功以后100分全给!
delphi7中如何加入delphi6的ClientSocket控件
<em>delphi7</em>中如何加入<em>delphi6</em>的ClientSocket控件
请问大家,Delphi7 和 Delphi6 有什么区别?
请问大家,Delphi7 和 Delphi6 有什么区别?
delphi6开发的程序在delphi7中无法运行???
<em>delphi6</em>开发的程序在<em>delphi7</em>中无法运行,提示出错,请教高手如何处理。
请问在DELPHI7中怎样用DELPHI6的控件?
能用吗?在安装时提示没有RTL60.BPL这个文件
寻找第三方控件 delphi6 delphi7 tcxpagecontrol txpmenu
有哪位大虾知道的 给我一份 感激 谢谢啦 等待哦!!!rnrn<em>delphi6</em> 和 <em>delphi7</em> 都要 用 tcxpagecontrol txpmenu
rxlib(支持delphi6 delphi7 delphi2005 delphi2006 delphi2007)
rxlib控件 支持<em>delphi6</em> <em>delphi7</em> delphi2005 delphi2006 delphi2007
怎么在delphi7中用delphi6的QReport组件??
怎么在<em>delphi7</em>中用<em>delphi6</em>的QReport组件??,rn怎么安装,帮我想想办法,谢谢各位了!!分不够在加!!讲详细就行!!rn我直接安装6中.dpk文件也报错!!!
delphi6delphi7在界面上有区别吗?
我机子上装的是<em>delphi7</em>的,但是现在<em>delphi7</em>的书很少,用<em>delphi6</em>的书可不可以,他们之间的界面上有区别吗?能不能用<em>delphi6</em>的书啊?
有没有人同时装过delphi6和DELPHI7???
我有开发指南的D6的部分源码,可是在D7下运行不起来,它们可以同时装吗???
在delphi7和delphi6下如何打包发布 MDIAPP 数据库程序
在delphi7和<em>delphi6</em>下如何打包发布 MDIAPP 数据库程序rn用delphi7自带的打包程序或别的支持BDE的也可以!
哪里有delphi6相关书籍?
本人想学习delphi,请各位大虾介绍有关delphi书籍的网址。谢谢
关于Delphi6和5的简单问题
Delphi6好像不认识数据库中的NULL关键字啊,应该怎么改才能使原来用5开发的程序通过编译?
求助!关于Delphi6的打包问题
安装Delphi6后,运行打包程序,出现“Installshield for Windows Installer is unable to start.Enture that the Windows Installer engine has been installed properly."使程序不能进行。我想用安装盘重装,可提示出现错误,无法安装!请问,有没有单独的打包安装程序?从哪里下载?多谢!!!
关于delphi6中TDBMemo的问题
数据库使用mysql。rn通过ADO进行连接,安装了mysql-ODBC驱动。rn现在有这样的<em>问题</em>出现了。rnTDBMemo读入数据以后,通过导航条移动,那么TDBMemo能够输入的数据的最大长度rn是第一条记录的长度。就是说,我转移到其他记录以后,在修改TDBMemo的数据,rn超过长度的部分,被自动的清除了,这个时候换用TDBEdit代替TDBMemo竟然不能修改数据。rn数据类型是VARCHAR的。我刚刚用delphi不久,不知道这个<em>问题</em>怎么解决。rn
关于delphi6与sql server2000的问题
我用<em>delphi6</em>和sql server2000开发项目,为什么一涉及到全局变量的<em>问题</em>就出错?
关于Delphi6中打印问题.
我用Delphi6编了一套小人事管理系统.用Delphi6自带的quickrep进行打印,安装HP DeskJet 930C打印机时,打印一切正常.但是安装hp laserjet 1000打印机时,打印的结果只是最后一页.如果设置打印页数为1至2页,结果只能打印出第2页.难道和打印机设置有关吗?在别的电脑上也是如此.换成别的软件打印结果也是如此.rn请各位大侠多多指教.
关于DELPHI6中的一个问题
DELPHI6中的三大snap技术是什么去了?rn只知道websnap,datasnap.还有一样不记得了叫什么?
关于DELPHI6的TCPServer和TCPClient的问题
客户端向服务端发送字符串,字符串是拼接成的SQL语句,服务器接到字符串后解析,并进行数据库操作。rnrn现在是一条一条的发,发几次,服务器接能收到几次,但如果客户端用循环1000次的发,服务端,接收到的是个随机数,也就是到不了1000条,或多,或少,这是为什么呢?代码如下:rnrn客户端:rn1、发送方法rnfunction TFmain.doPass(msg:WideString;tsfIP:String):boolean;rnbeginrn riZhi:='';rn tcpClient.Host:=tsfIP;rn tcpClient.Port:=7203;rn tryrn beginrn riZhi:=riZhi+'%%尝试连接服务器!##';rn tcpClient.Connect;rn riZhi:=riZhi+'@@连接服务器成功!##';rn end except beginrn riZhi:=riZhi+'&&连接服务器失败!##';rn exit;rn end end;rn tryrn beginrn riZhi:=riZhi+'%%准备写入数据!##';rn tcpClient.WriteLn(msg);rn riZhi:=riZhi+'@@写入数据完成!##';rn end except beginrn riZhi:=riZhi+'&&写入数据失败!##';rn exit;rn end end;rn tryrn beginrn riZhi:=riZhi+'%%尝试关闭连接!##';rn tcpClient.Disconnect;rn riZhi:=riZhi+'@@成功关闭连接!##';rn end except beginrn riZhi:=riZhi+'&&关闭连接失败!##';rn exit;rn end end;rn Result:=true;rnend;rnrn2、从这里循环rnprocedure TFmain.Button1Click(Sender: TObject);rnvarrn sql:String;rn i:Integer;rn id:String;rnbeginrn for i:=0 to 100 dorn beginrn id:=FormatDateTime('yyyymmddhhmmsszzz',Now)+'#'+IntToStr(i);rn Memo1.Lines.Add('***********'+IntToStr(i)+'**************');rn sql:='ttbcompoli~0~新乐大队~tsfid^'+id+'~tsfcall^0311-88285676~tsfcomtime^2010-12-23 12:12:12';rn sql:=sql+'~tsftyp^咨询~tsfafdpcs^新乐大队~tsfjjy^xinledadui';rn doPass(sql,'192.168.0.139');rn Memo1.Lines.Add(sql);rn end;rnrnend;rnrnrnrn服务端rnrnprocedure TFmain.tcpServerExecute(AThread: TIdPeerThread);rnvarrn msg,msgTemp,msgTwo:WideString;rn f:TextFile;rn tsftime,fname,dwName:String;rn ADO1,ADO2:TADOQuery;rn ConnServer:Tadoconnection;rn sql,table,typeSign,priSql,tsfDrive,moon,tsfName,tsfValue:String;rn priStrList:TStrings;rn inx:Integer;rn del,ins:WideString;rnrn inxx,len:Integer;rnrn go:Integer;rnbeginrn go:=0;rnrn if AThread.Terminated or (not AThread.Connection.Connected) then exit;rn tryrn beginrn //尝试接收数据rn //msg:=AThread.Connection.ReadLn('',100); //5等待时间rn msg:=AThread.Connection.ReadLn('',10); //5等待时间rn end except beginrn //接收失败rn exit;rn end end;rn if Trim(msg)='' then exit;rn 接收到新的sql语句rn msgTemp:=msg;rnrn msgTwo:=msg;rnrnrn CoInitialize(nil);rn rn tryrn beginrn ConnServer:=Tadoconnection.Create(nil);rn ConnServer.LoginPrompt:=false;rn ConnServer.KeepConnection:=true;rn tsfDrive:='Provider=OraOLEDB.Oracle.1;Password=pzdxt;Persist Security Info=True;User ID=uzdsys;Data Source=tsgsjjzd';rn ConnServer.ConnectionString:=tsfDrive;rn ADO1:=TADOQuery.Create(nil);rn ADO1.Connection:=ConnServer;rnrn ADO2:=TADOQuery.Create(nil);rn ADO2.Connection:=ConnServer;rn end except beginrn exit;rn end end;rnrn rnrn //得到表名rn inxx:=pos('~',msgTemp);rn table:=copy(msgTemp,1,inxx-1);rn delete(msgTemp,1,inxx);rnrnrn //得到标志,是修改还是插入rn inxx:=pos('~',msgTemp);rn typeSign:=copy(msgTemp,1,inxx-1);rn delete(msgTemp,1,inxx);rnrn //得到被操作的单位rn inxx:=pos('~',msgTemp);rn dwName:=copy(msgTemp,1,inxx-1);rn delete(msgTemp,1,inxx);rnrnrn //得到主键及值rn inxx:=pos('~',msgTemp);rn msg:=copy(msgTemp,1,inxx-1);rn delete(msgTemp,1,inxx);rn inxx:=pos('^',msg);rn moon:=copy(msg,1,inxx-1);rn delete(msg,1,inxx);rn tsfName:=moon;rn tsfValue:=msg;rnrnrn sql:='select * from '+table+' where '+tsfName+'='''+tsfValue+'''';rn if typeSign='2' thenrn beginrn sql:='delete from '+table+' where '+tsfName+'='''+tsfValue+'''';rn tryrn beginrn ADO1.Close;rn ADO1.SQL.Clear;rn ADO1.SQL.Text:=sql;rn ADO1.Edit;rn ADO1.Post;rn end except beginrnrn end end;rn end else beginrn tryrn beginrn ADO1.Close;rn ADO1.SQL.Clear;rn ADO1.SQL.Text:=sql;rn ADO1.Open;rnrn if ADO1.RecordCount<>0 thenrn beginrn ADO1.Edit;rn end else beginrn ADO1.Append;rn ADO1.FieldByName(tsfName).AsString:=tsfValue;rn end;rnrn inxx:=pos('~',msgTemp);rn while inxx>0 dorn beginrn inxx:=pos('~',msgTemp);rn msg:=copy(msgTemp,1,inxx-1);rn delete(msgTemp,1,inxx);rnrnrn inxx:=pos('^',msg);rn moon:=copy(msg,1,inxx-1);rn delete(msg,1,inxx);rn ADO1.FieldByName(moon).AsString:=msg;rn inxx:=pos('~',msgTemp);rn end;rn ADO1.Post;rn end except beginrn end end;rn end;rn tryrn beginrn sql:='select * from z_rizhi where tsfid=''loveMoon''';rn ADO1.Close;rn ADO1.SQL.Clear;rn ADO1.SQL.Text:=sql;rn ADO1.Open;rn ADO1.Append;rn tsftime:=FormatDateTime('yyyymmddhhmmsszzz',Now);rn ADO1.FieldByName('TSFID').AsString:=tsftime;rn ADO1.FieldByName('TSFDW').AsString:=dwName;rn tsftime:=FormatDateTime('yyyy-mm-dd hh:mm:ss',Now);rn ADO1.FieldByName('TSFTIME').AsString:=tsftime;rn if typeSign='0' thenrn beginrn dwName:='添加';rn end else if typeSign='1' thenrn beginrn dwName:='修改';rn end else if typeSign='2' thenrn beginrn dwName:='删除';rn end;rn ADO1.FieldByName('TSFSIGN').AsString:=dwName;rn ADO1.FieldByName('TSFRIZHI').AsString:=msgTwo;rn ADO1.Post;rn end except beginrn end end;rn Memo1.Lines.Add(IntToStr(Memo1.Lines.Count)+'%%%%%'+tsfValue);rn freeAndNil(ADO1);rn freeAndNil(ADO2);rn freeAndNil(ConnServer);rn CoUnInitialize;rnend;
------关于DELPHI6中TADOCOMMAND的问题!!--------
我在DELPHI6中想使用TADOCOMMAND来执行存储过程,代码如下rnrn command :=ImpDataAdapter.GetCommander;//这里我已经取得了我的COMMAND对象哈rn command.CommandText :='qqSetSchoolName';rn command.CommandType :=cmdStoredProc ;《----这里他就给我报错了,难道DELPHI6不能使用TADOCOMMAND来执行存储过程吗?rn para:=TParameter.Create(command.Parameters);rn para.Direction:=pdInput;rn para.Value:=schoolName;rnrn command.Execute;rnrn<em>问题</em>:是否在DELPHI6中只能使用TSTORPROCE来执行存储过程?
delphi6关于数字显示问题
我用<em>delphi6</em>编写报表时,金额只能显示8位,请各位大侠照顾弟兄一把
关于delphi6设计的界面问题
不知大伙在使用<em>delphi6</em>的时候,有没有遇到这种情况:rn设计界面上的字体大小等属性,比如label控件,长度会自动变短,造成部分caption显示不出,还有在一台机器上设计好的界面,等到在别的机器上运行时,出现界面上字体变化,布局异常等奇怪的东西,这些在delphi5的时候是没有的。rn大伙有没有解决方法?
关于Delphi5和Delphi6共存的问题
rn原先在机器上有Delphi5,现在我想在机器上再装Delphi6,可是安装完毕运行Delphi6的时候,系统提示——rnrn 无法定位程序输入点 @Sysutils@CheckWin32Version$qqrii 于动态链接库rtl60.bpl上rnrn 我查了一下,这个rtl60.bpl在C:\windows|system32下面存在啊,而且,金山毒霸6的目录C:\KAV6下面也有。rnrn 请问这是怎么回事呢?rn
菜鸟问题:Delphi6和Delphi7哪个开放起来好一点?
一开始学Delphi的时候用的是7版本,并且开发了一个小的库存系统.发现D7在加载控件方面存在一些<em>问题</em>,有些控件很难加载或者加上去难以使用.小弟想请教各位前辈:D6和D7在开放小型信息系统方面哪个更容易使用和稳定的?现在正在要不要改用D6的矛盾中.谢谢各位前辈!
关于Delphi7的。。。
偶初用<em>delphi7</em>,却发现在7里面的控件板上没有Qreport组件,请问7里面做报表用什么?Qreport在哪里能找到?
奇怪问题delphi6delphi7 不能和睦想处!!!
小第最近同时安装了D6 和 D7 ,但是后来却无法卸载任何一个,每次win2000server的“任务管理器”总是没有响应,而且在打开“控制面板”的“添加删除程序”时出现“没有注册类别 res://appwiz.cpl/listbox.htc line:225”错误,并且在“目前安装的程序”列表框显示“本机上没有安装程序”,中间空了一截,所有的安装程序全部显示在下面而且“更改”“删除”按钮全变灰,无法从这里删除程序。rnrnrn请高手帮忙看看!!!
DELPHI7怎么比DELPHI6还差?引入WEBSERVICE的问题
同样一个WEBSERVICE,DELPHI7导入的接口函数为rnprocedure GetMyFuncList(const strOutput: WideString; out GetFuncListResult: Integer; out strOutput: WideString); stdcall;rnrnDELPHI6导入的函数为rnprocedure GetMyFuncList(var strOutput: WideString; out GetFuncListResult: Integer); stdcall;rnrnrnDELPHI7的函数体中产生了一个OUT和一个CONST的同名参数,因此不能通过编译。本以为通过调节WSDL IMPORTER WIZARD的参数可以改变,但就是不行,请高手请教.rnrn相应的WEBSERVICE片断为:rn- rn- rn- rn rn rn rn rn- rn- rn- rn rn rn rn rn
求救:delphi6的应用程序移植到delphi7出现的一个问题
我安装好了所有与此应用程序<em>相关</em>的组件之后,再在<em>delphi7</em>下进行编译我的应用程序,出现了如下的错误:rnrn[Fatal Error] Garims.dpr(74): Unit ExtActns was compiled with a different version of Consts.SUrlMonDllMissingrnrn哪位高手帮我解决一下这个<em>问题</em>,感谢了~~rn
关于Delphi7
各位老大,我在Delphi7里找不到QReport的组件,该怎么做呢?
delphi7控件相关文档说明
针对delphi 7.0<em>相关</em>的控件,内容涵盖了OoMisc cxcontrol等控件,控件的安装都是一键化操作。 并且涵盖了一个说明文档说明apro控件如何添加到path
delphi7 处理xml的相关案例
<em>delphi7</em> 处理xml的<em>相关</em>案例
Delphi7应用程序上下文相关帮助
在Delphi中实现上下文关联的chm帮助,可以通过调用Windows系统目录System32下的HHCTRL.OCX控件中的HtmlHelpA函数实现。本文以一个包含两个窗体的小例子,说明了在Delphi7中实现上下文关联CHM帮助的方法。 首先,将所有窗体的KeyPreview属性设为True,响应窗体的键盘事件;然后,编写F1按键的响应代码,调用chm帮助文件中的页面。这样,在不同位置(不同对话框或者不同控件)按F1键,程序将弹出与其HelpContext<em>相关</em>的帮助页面。
关于delphi7中组件的问题
打开PAS文件的时候有如下提示,我是菜鸟不知道是不是组件的<em>问题</em>,请各位高手帮忙一下rnError Reading FormrnClass TRzPageControl not found.
关于delphi7 的sql语句 问题
DELPHI 7rnrnQuery.SQL.ADD(' SELECT A,B,CASE WHEN A=B THEN A ELSE B END AS O ') ;rnrn执行这样类型的语句 总是提示 Invalid use of keyword. token: when rnrn在网上搜一些资料 说 when 为关键字不允许使用 rn需要在SQL语句中进行判断 取值 如何实现啊
关于delphi7 调用webservice的问题
真是奇怪,每天都是头一次调用远程的webservice 报错:无法解析服务器的名称或地址rn但是,第二次调用却没有<em>问题</em>,不知道是否服务器配置有什么<em>问题</em>?rn服务器操作系统为win2003。
关于Delphi7的FastReport控件的问题
安装了FastReport4之后,在窗体上添加一个报表设计的控件,frxprt(TfrxReport),双击该控件可进入设计状态,现在什么没有添加,是一张空白的报表,在“文件\打印机设置”的时候出现“List index out of bound(-1)”的提示。此时弹出来的页面设置也不能进行设置,在报表的Code和Page标签切换的时候也会出现这样的提示,路径已经在library那里添加上,百思不得其解,望高人指点!
关于delphi7自带的installshield的问题
我刚才用<em>delphi7</em>自带的installshield作安装程序,才发现不能设置安装程序运行中或者安装完后启动其他程序。比如我想让安装程序安装过程中或者安装完毕后启动另外一个安装程序,不知道在哪里可以设置,请指教。rn请不要告诉我自己些程序实现,如果无法实现,我自然知道些程序实现,呵呵!
关于Delphi7内嵌TChromium的问题
1.有一个主窗口,模式为fsMDIForm。放了TChromium以及一个TidHTTPServer。rn2.TChromium打开的页面上有一个按钮,点击按钮时会发起http请求,请求目标为主窗口里的TidHTTPServer。rn3.当主窗口的TidHTTPServer接收到请求后,创建MDI子窗口rnfrm := TForm4.Create(self);rnfrm.Show;rn但是当在走frm := TForm4.Create(self);这一步时程序就死掉了,请问各位前辈,这是什么情况呢?
关于delphi7数据库写入的问题
<em>关于</em><em>delphi7</em>数据库写写进数据库的时候 因为第一列是序号,这个序号想根据现在数据库中总行数 再进行写入rnrn比如数据库现在有 10行,导入的数据有10行,在导入的时候 显示的是11-20行 应该如何修改下边代码?rnrn[code=delphi]rnprocedure TForm1.Button2Click(Sender: TObject);rnvar listA,listB:TStringList;rn i,o,x:Integer;rnbeginrnrnDBMemo2.Clear;rn listA:=TStringList.Create;rn listB:=TStringList.Create;rn listA.LoadFromFile('d:\desktop\333.txt');rn for i:=0 to listA .Count-1 dorn beginrn listB.Clear;rn listB.Delimiter:=';';rn listB.DelimitedText:=listA.Strings[i];rn DataSource1.DataSet.Append;rn for o:=0 to listB.Count -1 dorn x:=Table1.RecordCount;rn if o<>0 thenrn beginrn DataSource1.DataSet.Fields[o].AsString:=listB.Strings[o];rn DataSource1.DataSet.Post;rn endrn elsern beginrn DataSource1.DataSet.Fields[o].AsString:=IntToStr(x+1);rn DataSource1.DataSet.Post;rn end;rn end;rnrn listA .Free;rn listB .Free;rnend;rnrnrnrn[/code]rn
单片机控制GSM模块实现短信收发的软件设计下载
单片机控制GSM模块实现短信收发的软件设计 相关下载链接:[url=//download.csdn.net/download/dongxinyu1260/2889385?utm_source=bbsseo]//download.csdn.net/download/dongxinyu1260/2889385?utm_source=bbsseo[/url]
java 课程设计 java制作计算器下载
用java编计算器,在Applet上实现,并且继承了监听者 相关下载链接:[url=//download.csdn.net/download/mollyjie/2966809?utm_source=bbsseo]//download.csdn.net/download/mollyjie/2966809?utm_source=bbsseo[/url]
c++ 编写的计算器程序下载
用c++编写的计算器程序,可以实现简单的加减乘除及乘方运算。 相关下载链接:[url=//download.csdn.net/download/liu1006162134/3907566?utm_source=bbsseo]//download.csdn.net/download/liu1006162134/3907566?utm_source=bbsseo[/url]
我们是很有底线的