Recent update: 2008-6-5
"%D6%D0%CE%C4" 应该是 "中文"的GB2312 编码,但是我获取的是"%D6%D0%CE%C4" ,怎么把他转成"中文"两个字呢? 分数不多,多谢帮忙!
我发送的是一个多行两列的数据形式,是从数据库中取的,请问我怎么把这样大的数据发送到客户端? 请指教!
如题
在sql里的表里得到如下数据 字段 消费金额 余额 20 100 30 20 10 10 8 2 由于第二行数据出现错误,余额20本应该为80 应为只消费了20,少了50元 现在就要把20改为70,由于这个改变了,所以余下的数据都要改,下面的余额就要是60和52 如果后面还有数据错了 也要接着改 求代码
delphi我很弱,希望高手耐心指点,谢谢各位先! 函数原型: //__int16 __stdcall Z8_GetTime(HANDLE icdev,unsigned char addr,unsigned char *time); 功能:返回time,格式为16进制 如06-9-6 20:23:12:0x06 0x09 0x06 0x20 0x23 0x12 DLEPHI 定义: Function Z8_GetTime(icdev:integer;addr:integer;time:pchar):integer; stdcall; far;external 'Z8rf3...
这是为啥
VB 是 On error resume next DELPHI是哪一句? VB 是 On error Goto AA DELPHI是哪一句?
源代码及测试数据下载路径: 相关控件: http://my.icax.cn/batch.download.php?aid=4273 测试文件: http://my.icax.cn/batch.download.php?aid=4274 http://my.icax.cn/batch.download.php?aid=4275 http://my.icax.cn/batch.download.php?aid=4276 http://my.icax.cn/batch.download.php?aid=4277 http://my.icax.cn/batch.download.php...
目前在学习一个源代码,不过就是在DELPHI找不到ServerSock控件,请问是在哪找到这个控件的,或者怎么安装这个控件,头都痛了 ///////////////////////////// 新建一个工程,放上四个Label,五个Edit,一个ServerSock控件,一个按钮和一个Memo控件.在uses里添加Winsock.窗口初始化的时候初始化各个控件. procedure TForm1.FormCreate(Sender: TObject); var TempWSAData:TWSAData; begin Label1.Caption:='Socks5代理服务...
我想用类似 images的控件,里面画一张图,然后用timer 定时控制 往右移动,到800的时候,再往左移动...现在是往左移动不了. 有谁写个DEMO,给个好算法.... 先谢谢了,再线等之,OK了给分...
用QREPORT的QRBAND A4纸横着打印,我想报表从左半页开始打,左半页满了后,再到右半页打印,不知怎么搞了,请那位大哥发个例子给小弟吧,不胜感激,谢谢了.
uVirtKey Long,欲转换的虚拟键 uScanCode Long,键的扫描码。如键处于抬起状态,会设置高位(设为1);如按下,则清除高位(设为0) lpbKeyState Byte,描述了键盘状态的一个256字符数组的第一个条目。参考GetKeyboardState函数,了解关于这个数组更多的情况 lpwTransKey Integer,用于装载转换过后的字符的一个整数变量。可用 chr()函数将这个值转换成一个字串 fuState Long,如一个菜单处于活动状态,则设为1 dwhkl Long,欲用于转换的一个键盘布局的句柄 uScanCode 这个参数不懂,抬起,按下...
各位大虾: 请帮我把下面的c程序转换成相应的delphi,我实在是不会啊,谢谢! /*DMX SERIES Sample C program*/ #include<stdio.h> main() { char *pcs="590"; char *desc="10K OHM 1/4 watt"; fputs("DMX Printer Test Program\n",stdout); fputs("x02L\n",stdaux); /*STXL-Enter Label Fromatting*/ fputs("H07\n",stdaux); /*Enter Heat...
Error reading WSCustomReport.Frame.Color:Property Frame does not exist.Ignore the error and continue? Note:ignoring the error may cause components to be deleted or property values to be lost.
在网上,偶然间看到了关于管道的问题,有谁能给个关于管道编程的例子,我仅仅见过一个管道函数CreatePipe,请大虾们多多发表自己的意见,探讨一下
我用Indy控件做了个客户/服务器程序,为什么客户端在本机连接服务器没有问题,在其他机器上就不行了呢? 客户端放在局域网的其他机器上就是连接不上服务器,这是为什么呢? 请指教!
如何将一个图片缓慢地从一点移动到另一点? 怎么实现?谢谢
后台SQL Server 中存储的Image字段,在跑报表生成的DB文件可以生成对应的二进制字段,但把该字段拖到水晶报表上就不能显示或者只显示一半另一半为黑色。不过,如果图片很小的话可以正常显示,不知道各位高手有什么好的解决方法?麻烦顶一下,先3Q .....(数据库连接是BDE)
如何提取光标位置的英语单词,不用API HOOK ,我在这里先谢了。
使用WinXP或2003的朋友请做一下简单的测试: 打开XP主题,启动Turbo Delphi,新建一Delphi for Win32工程,在Form1上分别放置TComboBox、TLabel、TPanel、TXPManifest控件各一个,然后加入下列代码: procedure TForm1.FormCreate(Sender: TObject); begin Panel1.Color := clRed; Label1.Color := clBlue; ComboBox1.Text := '中华人民共和国'; end; 编译、运行,你会发现Panel1和...
111 byte By
swww-风 at 2008-5-20
老提示这个错误 [Fatal Error] File not found: 'PrnDbgEh.pas' 但就是找不到这个"'PrnDbgEh.pas'"文件
功能:在‘电脑A'中运行某程序,在'电脑B'中弹出程序(比如资源管理器)! 条件:在局域网中 假设在自已的电脑执行下面的代码,结果是资源管理器在'电脑B‘中打开, 当然是资源管理器的当前路径是要我想要的路径! ShellExecute(Handle, 'explore', PChar(Edit2.Text), nil, nil, SW_SHOW);
我用delphi的TServerSocket的sendbuf向手持机发送数据,要求以以下格式组织: A5C3 LEN SEQ RAW DATA A599 Flag(2byte) Length(3 byte) Sequence(12byte) Data Flag(2byte) 举例: 给模块输入:A5 C3 00 00 00 00 41 42 43 44 A5 99 则接受端收到:ABCD 注释:0123456789ABCDEF对应的16进制30 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 假如我发送ABCD到手持机,则需要将A5 C3...
如题,如何让form还原
434 byte By
twx118 at 2008-5-2
我就一个SQL查询 Query1.close; Query1.SQL.Clear; Query1.SQL.Add('select * from bill.db where 1=1'); Query1.SQL.Add('and date='+''''+ edit1.Text +''''); Query1.Active :=True; Query1.open; 可运行后就报这个错!! Invalid use of keyword Token: date=...
废话不多说 ,问题如下(拜谢!): DLL函数原型 __int16 __stdcall Z8_ReadDevInteractRecordValue_Hex(HANDLE icdev,unsigned char addr,int * snlen,unsigned char * snrdata);//成功返回0错误返回-1 说明:调用此函数后返回snrdata的数据的数组空间每条数据长11字节,每次最多读6条 DELPHI代码 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Gra...
delphi 中 返回 是Result :='1'; 吗? 返回后是不是不在继续执行 后面代码了 比如:这样是不是 如果发现按键0按下 就返回0 下面代码就不在执行了? function GetKeyA:string; var vKey:integer; begin if GetAsyncKeyState(96)<>0 then begin Result :='0'; end; if GetAsyncKeyState(97)<>0 then begin Result :='1'; end;...
917 byte By
kciv-浩 at 2008-5-2
with AdoQuery1 do begin SQL.Clear; SQL.Add('insert into wxd_tab(dh,p,khdz,fwxs,khdh) values(:dh,:p,:khdz,:fwxs,:khdh)'); //,:djy dh:=DanHao(); parameters.ParamByName('dh').Value:=dh; parameters.ParamByName('p').value:=false; parameters.ParamByName('khDz'...
有这么一个系统,在设计时,每个表为一个类,系统有100多个表,就是100多个类,每个类为一个单元,每个字段就是类的属性,所有的SQL都写在类中,再把返回值给Form中的控件中。(涉及复杂的SQL,就麻烦大啦),一个城市的小表,我就写了两天,要是用dbgrid+adoquery,一个小时就搞定,请问大家伙,这样设计系统是不是画蛇添足????
用客户端用idtcpclient,服务端用idtcpserver+idthreadpool. 先用天网防火墙查看端口使用,流量情况: 当客户端想服务端发送一张300054字节的图片的时候,客户端的端口流量大约为图片大小,为300063字节,但是服务端才是接收到6177字节. 但是接收到的文件却是正确的,这个是怎么回事呢
要把一个JPG图象分割成几个部分放到不同的TImage上显示,应该怎么做??
如题.
发送一个按键到另一个程序使用以下两种方式 Sendmessage(handle,WM_KeyDown,VK_F1,0) (部分进程屏蔽了该消息) keybd_event(VK_F1,MapVirtualKey(VK_F1,0),0,0) keybd_event 需要窗口获得焦点后才可以,sendmessage 直接通过句柄发送 问题一:以上两种按键方式在应用程序接受时用代码如何区别() 问题二:象键盘hook,发送到别的窗口的按键能拦截,但是不能修改发送给该窗口的按键码, 请问,如果想实现修改该按键码应该怎么做?希望有经验的朋友给个思路!...
1
用ADOQuery1连接的数据库data,然后把数据库中的数据用TChart图形显示出来,因为数据库里的数据会经常改变,可是发现TChart里的图形不会跟着立即改变,只有把程序停止了再运行时图形才会改变,请问各位高手:怎样才能让TChart里的图形也跟着数据库里数据的改变而改变呢?谢谢!!
本人用delphi 6写了一个子form,form中有这样一句“DateToStr(RzDTP_end_date.Date)”,显示的是“2006-09-05”当天的日期。但是,本人想要的是年月,即“2006-09”。请教各位如何载取这个字符串的长度以达到这个效果。
汉字参数,到了serivice那边都是??? 如何解决,高手指教阿
新手问题,请多关照。直接在窗体中创建的IMAGE可以在EVENT里面选择ONMOUSEMOVE事件来编写,这种在程序运行中创建的对象如何写它的MOUSEMOVE内容呢?
由于实际情况的限制,我必须用ADOQUERY从DBF数据表中将数据读取出来,处理后再导出到一个新的DBF表中。 表记录有47万行,我读取只用了2分钟,可是当循环使用insert命令将处理结果一行一行插入到新的DBF表中时,时间非常的慢(大概要一个小时才能全部完成)。 请问各位高手,能不能将adoquery中的内容一次性快速导入到DBF文件中?
任务管理器里面的进程隐藏了,但是里面应用程序一栏还是能够看到的。。。。。。。。 怎么办?
ftp://ftpd.borland.com/download/bds/bds_2006_trial/english/arch/disk2/prereqs.zip ftp://ftpd.borland.com/download/turbo/English/Delphi_Explorer/TurboDelphi.exe 第一个是预安装的东西,.net框架之类的,不一定需要。
例如 :procedure TForm.edit1 如何取得TForm.edit1这个字符串
是这样的,我之前运行兔子魔法清理垃圾的程序,然后重新启动,就运行以前的一个Project发现不正常,后来查证是发掘是“TXMLDocument”这个控件出了问题。然后我新建一个Application,然后在空的Form上添加一个TXMLDocument控件,然后在Form的OnCreate上写了句“XMLDocument1.LoadFromFile('a.xml');”,虽然a.xml是不存在,但是运行时会提示“Project project1.exe raised exception class EOleSysError with essage '找不到指定的模...
请问各位大侠,用UDP做即时通讯软件,两局域网怎么才能通过广域网进行通讯啊?因为一个局域网内的所有计算机都是一个外网IP,所以无法接收从另一个局域网发送过来的消息,请各位大侠提示!助解决者有高分为谢!
各位大人,小弟最近使用DSPack中的SampleGrabber.GetBitmap获取AVI图像的时候,遇到一个奇怪的问题,就是在有的机器上,抓出来的bitmap是对的,但是有的机器上抓出来的bitmap是白色的,什么都没有...而在所有的机器上avi都是能在VideoWindow播放出来的,所以应该不是解码器的问题啊... 不知道各位大人是否遇到过这样的情况,请指教,谢谢啦.
因公司物料规格长短不一,在设计领料单时,如果把单身每栏设的太小,规格多的打印不完,设成太大浪费纸线, 有没有办公让其自动栏高啊! 用qreport 或者fastreport都可以!
各位高手: 在Delphi中如何實現屏幕取詞? 本人近來編寫一個海關品名程序(單機Access版),即像金山詞霸那樣當在Edit中輸入Access檔裡相應的英文時,可在旁邊Meom看見相應的翻譯;現在想實現當鼠標移動運英文單詞上時像金山詞霸那樣能有相應的翻譯!不知道如何實現,網上找到,不知道如何下手?承蒙高手賜教???
我24啦 大专文化 从事机械维修行业 由于喜欢电脑 我一个同学的朋友一开始也什么不会,现在听说用DELPHI写软件,说实话是套用控件再改下皮肤然后专门卖给美国人 我现在想学习编程 靠下班时间来赚点零花钱 如果收益可观 我可能改行到这个行业,现在语言众多,请有切身经历的朋友根据我的情况给推荐个编程语言,大学里的数据结构还有C语言甚至VB我都没有学过,稍微懂点HTML代码。我要的是亲身经历,不要从网上搜索的 谢谢了~~
1145 byte By
sdzbbz at 2008-4-12
在form1.edit1.text中输入手机号13****,点击form1.button1,这时就会把13****的数据调出来并且用form1.ADOQuery1连接的数据库把数据显示出来,我想让它显示完数据以后接着把这些数据用TChart画成图形,于是我用的ADOQuery1AfterPost事件来显示图形,代码如下: procedure TForm1.ADOQuery1AfterPost(DataSet: TDataSet); begin form2.show; end; procedure TForm2.FormCreate(Sender: TObject); begin...
我想记录一些东西,但是数据每次得到的个数不固定,所以用动态数组也不太合适,所以想用类似vector的数据结构来实现,请问有现成的东西可以用吗?没有的话,哪位高手能给段代码呢参考一下呢?