Delphi
9807146wang
这个作者很懒,什么都没留下…
展开
-
在ComboBox1中塞入key和value,并取值。
ComboBox1.Items.AddObject('aaaa',tobject(newstr('111'))); Memo1.Lines.Add(pstring(ComboBox1.Items.Objects[ComboBox1.Items.IndexOf('aaaa')])^)原创 2023-11-17 13:56:30 · 249 阅读 · 0 评论 -
cxgrid操作
CXGRID原创 2023-02-22 10:34:26 · 181 阅读 · 0 评论 -
将文字转为UTF-8编码(即HTML可识别的)
UTF-8原创 2022-06-23 16:50:46 · 403 阅读 · 0 评论 -
在cxgrid的列中读取下拉列选择行的值
cxGrid1DBTableView1Column3的SYNCMODE=True;procedure TForm1.cxGrid1DBTableView1Column3PropertiesCloseUp( Sender: TObject);begin self.Memo1.Lines.Add((cxGrid1DBTableView1Column3.Properties as TcxLookupComboBoxProperties).ListColumns.Grid.DataControlle...原创 2022-05-06 16:58:21 · 605 阅读 · 0 评论 -
手动添加JOSN串
var jo,jo1,jEntity,jSubEntity: ISuperObject; jaOrder,jaEntity,jaSubEntity: ISuperObject; i,j,entityCount,subEntityCount: Integer;begin(* {"state":2000,"message":null,"data":{"infos":16,"updateTime":"2022-02-23 13:21:35"}} jo := SO(); jaEntity...原创 2022-04-29 16:13:44 · 186 阅读 · 0 评论 -
delphi调用ORACLE存储过程.
uniconnection1.server:=IniFile.ReadString('Project','ServerIP','127.0.0.1'); uniconnection1.username:=IniFile.ReadString('Project','UserName','127.0.0.1'); uniconnection1.password:=IniFile.ReadString('Project','Password','127.0.0.1'); uniconne...原创 2022-02-18 14:07:56 · 765 阅读 · 0 评论 -
delphi 调用DLL库,返回字符类型方法
1:返回值用String类型的,必须 在DLL里引用ShareMem,调用DLL的工程文件也得引用ShareMem。2:返回值用pchar类型的,必须 在DLL里引用ShareMem,调用DLL的工程文件不用加。3.直接用参数返回的,需申请pchar内存空间,然后释放。var mystring: PChar;// GetMem(mystring, 10000000); mystring:=StrAlloc(100000000); 调用传参.......... str...原创 2022-02-18 10:46:55 · 925 阅读 · 0 评论 -
Delphi---C++里按位运算
wRecognizedLane识别的车道号,按位表示,bit0表示车道1是否识别,0-不识别,1-识别struLaneRect车道识别区域dwRecogMode识别的类型,bit0-背向识别:0-正向车牌识别,1-背向识别(尾牌识别) ;bit1-大车牌识别或小车牌识别:0-小车牌识别,1-大车牌识别 ;bit2-车身颜色识别:0-不采用车身颜色识别,在背向识别或小车牌识别时禁止启用,1-车身颜色识别;bit3-农用车识别:0-不采用农用车识别,1-农用车识别;bit...原创 2021-12-20 16:21:17 · 1045 阅读 · 0 评论 -
delphi对应C里面连接类型代码
struct{union{NET_VCA_RECT struRect;NET_ITC_POLYGON struPolygon;}uRegion;}NET_ITC_PLATE_RECOG_REGION_PARAM,*LPNET_ITC_PLATE_RECOG_REGION_PARAM;type TuRegion = record case integer of 0: (struRect: NET_VCA_RECT); //矩形区域 1: ...原创 2021-12-16 10:33:26 · 1131 阅读 · 0 评论 -
把文件流转为字串Demo
var MyStr:string ; MyAnsiStr:AnsiString ; MyOut:TMemoryStream ; i:Integer;beginMyOut := TMemoryStream.Create ; try if MyOut.Size <= 0 then begin Exit; end; SetLength(MyAnsiStr,MyOut.Size); MyOut....原创 2021-08-03 10:57:53 · 116 阅读 · 0 评论 -
从HTTP服务器下载照片
从HTTP服务器下载照片,如果文件中有汉字的,要先转码 ,再下载,一般要转为UTF-8.CPFileName:=StringReplace(CPFileName,'/','__',[rfReplaceAll]); CPFileName:=StringReplace(HTTPEncode(UTF8ENcode(CPFileName)),'__','/',[rfReplaceAll]); cp...原创 2021-07-08 11:39:23 · 246 阅读 · 0 评论 -
流信息转图片显示
TByteDynArrayfunction TFileSoap.getPic(out size:integer): TByteDynArray;varbuf:TMemoryStream;begintry if not FileExists('c:\1.bmp') then raise Exception.Create('file not found.'); buf:=TMemoryStream.create; buf.LoadFromFile('c:\1....原创 2021-07-06 09:58:42 · 89 阅读 · 0 评论 -
C++转delphi代码
memset(&m_struResult, 0, sizeof(m_struResult)); m_struResult.pBuffer1 = new BYTE[2 * 1024 * 1024]; memset(m_struResult.pBuffer1, 0, 2 * 1024 * 1024); if (!NET_DVR_ManualSnap(m_lServerID, &m_struManualSnap, &m_struResult)))...原创 2020-11-26 15:15:31 · 365 阅读 · 0 评论 -
字符空间申请
var aa:array[0..9] of AnsiChar; bb:PAnsiChar; bb2:AnsiString; dd:AnsiString;begin aa[0]:='a'; aa[1]:='B'; aa[2]:=#0; aa[3]:=#188; aa[4]:='A'; aa[5]:='a'; aa[6]:='b'; ...原创 2020-04-22 14:49:07 · 231 阅读 · 0 评论 -
xe下的16进制字符串转换成字符串
function HexStrToStr(const S:AnsiString):AnsiString;vart:Integer;ts:AnsiString;M,Code:Integer;begint:=1;Result:='';while t<=Length(S) dobeginwhile (t<=Length(S)) and (not (S[t] in ['0'...原创 2020-04-16 15:34:54 · 599 阅读 · 0 评论 -
xe下BASE64中文
unit Soap.EncdDecd;var basestr:ansiString; a: String;begin a:=self.Edit1.Text;basestr:=UTF8Encode(a);self.Memo1.Lines.Add(EncodeBase64(@basestr[1],length(basestr)));原创 2020-04-15 10:52:22 · 233 阅读 · 0 评论 -
delphi XE string内存结构
procedure TForm1.Button1Click(Sender: TObject);var stm: TMEMORYStream; buff: array of AnsiChar; p: PansiChar; s: AnsiString; I: INTEGER;begin stm := TMEMORYStream.Create(); stm.LoadF...原创 2020-04-13 14:00:47 · 267 阅读 · 0 评论 -
图片按比例放大与缩小
with TJPEGImage(Image1.Picture.Graphic) do Scale:=TJPEGScale(trackbar1.Position-1); ///0,1,2,3 4个比例缩放 Image1.Top := 0; Image1.Left := 0;原创 2020-04-03 14:36:01 · 640 阅读 · 0 评论 -
delphi7代码 转XE代码需注意:
delphi7 charxe AnsiChardelphi7 strcopy(@jpginfo.szCarNumber,pAnsiChar(@tempstr[1]));xe CopyMemory(@jpginfo.szCarNumber[0],PAnsiChar(AnsiString(tempstr)),Length(AnsiString(tempstr))...原创 2020-04-02 09:43:30 · 491 阅读 · 0 评论 -
在回调函数中调用消息并传递参数
在回调中调用消息函数传递结构体变量procedure MessageCallback(lCommand: Longint; pAlarmer: LPNET_DVR_ALARMER; pAlarmInfo: PChar; dwBufLen: Dword; pUser: Pointer); stdcallbegin if (lCommand = COMM_UPLOAD_PLATE_RESUL...原创 2020-03-27 11:13:59 · 1461 阅读 · 0 评论 -
参数为指针参数如何传递。。
typeTMyArr=array[0..3]ofTPoint;PMyArr=^TMyArr;TForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject);privateprocedureShowArr(P:Pointer...原创 2019-08-08 16:24:24 · 206 阅读 · 0 评论 -
可能你不知道的TClientDataset功能=====网上收集
keyLife富翁笔记 作者: shiningplus标题: delphi Midas SQLServer的自增字段的处理 关键字: delphi Midas 自增字段 分类: 个人专区 密级: 公开 (评分: , 回复: 0, 阅读: 1830) ?? delphi Midas SQLServer的自增字段的处理1.新增时,表中有自增字段,但是不希望用Refresh,直接ApplyUp原创 2010-05-22 14:34:00 · 778 阅读 · 0 评论 -
delphi三层架构
三层架构指的是界面,业务逻辑和数据存储分离,不是指物理上是否分离。这样做的好处是层次分明,维护好做,系统资源也好分布式处理。数据库层哪就不说了,用MSSQL、Orcale随你了,就是数据服务层业务逻辑的话要分析清楚,就是中间层界面,也叫客户端。这里就是得到数据和显示数据的部分了,不做其它处理。但是数据有效性分析最好放在界面层,以充分利用客户端的性能。不然的话业务逻辑层的负担太大也会原创 2010-05-22 14:27:00 · 865 阅读 · 0 评论 -
FastReport如何打印表格式的空行?
实现效果概述:当打印一些数据时,我们希望每页都打印20行,当不够时,打印出空白表格!这是怎么实现的呢?下面我说一下实现原理,报表通过FastReport实现第一步:报表中需要用到的组建PAGEHEADER,MasterData,Child(通过右键点击MasterData>Add child band),Footer在Child中用MEMO画空白表格,显示的样式和MaterData中的原创 2010-04-26 14:23:00 · 2162 阅读 · 0 评论 -
ClientDataSet的用法(转)
TClientDataSet控件继承自TDataSet,其数据存储文件格式扩展名为 .cds,是基于文件型数据存储和操作的控件。该控件封装了对数据进行操作处理的接口和功能,而本身并不依赖上述几种数据库驱动程序,基本上能满足单机"瘦"数据库应用程序的需要。 1.TClientDataSet的基本属性和方法介绍 1).FieldDefs: 字段定义列表属性 开发者可通过单击原创 2009-09-11 13:49:00 · 1277 阅读 · 0 评论 -
ADO 中处理多个返回结果集
在使用 SQL 语句时,常常会有多个结果集被返回的情况,比如 EXEC sp_helpconstraint [TableName] 就返回了两个结果集。如果我们需要处理多个结果集时。可用ADO的 NextRecordSet 方法。用法如下:var R: integerbegin with ADOQuery do begin Close; SQL.Text := EXEC原创 2009-09-11 13:48:00 · 1656 阅读 · 0 评论 -
取得cxDBLookupComboBox里选取内容其行的其他列值。。
选择_收货单位1.Properties.ListColumns.Grid.DataController.GetDisplayText(选择_收货单位1.Properties.ListColumns.Grid.FocusedRowIndex,2)原创 2009-04-29 16:49:00 · 1479 阅读 · 0 评论 -
封装资源文件
1.编写 RC 脚本文本用记事本或其它文本编辑器编写一个扩展名为“.rc”的文件。在Delphi项目中,通常有一个与项目名称主文件名相同的.RES文件,该文件用于保存应用程序图标等资源,对应于此文件,在项目文件中一定含有编译指示“{$R *.res}”,告诉编译器编译时需要包含与项目主文件名相同的.RES文件。同样,如果需要在应用程序中以资源形式包含任何文件类型,也可以利用.RES文原创 2009-04-15 20:41:00 · 991 阅读 · 0 评论 -
在DLL中动态创建控件应注意的。。
在DLL中动态创建控件时,要引用ActiveX单元 CoInitialize(nil); ......创建 CoUninitialize;//释放原创 2009-02-24 09:50:00 · 1064 阅读 · 1 评论 -
Delphi主从表例子
在sql server 的northwide 中建立主表create table sell_h( sell_id char(10),cust_name char(10) Primary key(sell_id) )gocreate table sell_h( sell_id char(10),inv char(10) ,amt float,qty float Primary key(sell_id原创 2010-05-22 14:16:00 · 1552 阅读 · 0 评论 -
Cxgrid用法
<br />CxGrid 自定义代码过虑条件幽灵湖 2009-06-10 14:59 <br />TableView.DataController.Filter.Root.AddItem(<br /> TableView.DataController.GetItem(cxcol_table.Index),<br /> foLike,<br /> 'LNK_%',<br /> 'LNK_%',<br /> );<br />TableView原创 2010-10-22 16:52:00 · 1343 阅读 · 0 评论 -
base64编码问题
当用EncodeStream(Stream,sm1);//将内存流编码为base64字符流,转为base64编码后,会每76行后加一个回车换行字符,使用中应该去掉: streamstr:=stringreplace(sm1.DataString,#13#10,'',[rfReplaceAll, rfIgnoreCase]);...原创 2019-04-04 15:51:57 · 391 阅读 · 0 评论 -
获取网络文件及目录
var NetSource : TNetResource; dwResult:DWORD;begin g_bFlag:=True; with NetSource do begin dwType := RESOURCETYPE_ANY; lpLocalName :=''; lpRemoteName:=...原创 2018-06-22 14:24:27 · 738 阅读 · 0 评论 -
在dll里实现定时器功能
一,首先引入“mmsystem”单元。二,启动定时器: var MMTimerID: Integer; // 定时器ID MMTimerID := timeSetEvent(1000, 0, @TimerProc, 0, TIME_PERIODIC);三,定时器过程代码: procedure TimerProc(uTimerID, uMessage: UINT;...原创 2018-04-04 15:26:39 · 1414 阅读 · 0 评论 -
devexpress问题网
http://www.devexpress.com/Support/Center/原创 2011-06-05 12:39:00 · 638 阅读 · 0 评论 -
怎么能让CXGRID,中某列内嵌的控件自动下拉
<br />type<br /> TcxImageAccess = class(TcxImage);<br />procedure <Form>.<SpeedButton>OnClick(Sender: TObject);<br />var<br /> AHandled: Boolean;<br /> AImage: TcxImage;<br /> Aview: TcxGridDBTableView;<br />begin<br /> Aview := cxGridDBTableView1;<br原创 2011-04-11 14:13:00 · 1332 阅读 · 0 评论 -
关于cxgrid使用的方法收藏
<br />cxGrid控件功能很强大,有许多方法及属性,其中有一个属性gridmode<br /><br />当你设置gridmode=true时,会提高查询速度,为false时则反之,为什么如此,在网上有相关的贴子<br /><br />当设置gridmode=true时,则在cxGrid上设置的filtering,sorting,footer中的合计信息均无效(几天前做一个模块时发现的)。<br /><br />我要实现的功能如下:<br /><br />1.在cxgrid上显示一些信息(连接数据集很原创 2011-05-25 08:42:00 · 4908 阅读 · 0 评论 -
2010-关于cxgrid使用的方法收藏
<br /> cxGrid控件功能很强大,有许多方法及属性,其中有一个属性gridmode。 当你设置gridmode=true时,会提高查询速度,为false时则反之,为什么如此,在网上有相关的贴子。 当设置gridmode=true时,则在cxGrid上设置的filtering,sorting,footer中的合计信息均无效(几天前做一个模块时发现的)。 我要实现的功能如下:。 2010-关于cxgrid使用的方法收藏。 1.在cxgrid上显示一些信息(连接数据集很容易实现)。 2.每列原创 2010-11-05 14:26:00 · 1679 阅读 · 0 评论 -
查詢access數據庫
在查詢到access數據庫日期型時,用between and時前後要加# #原创 2008-04-23 11:17:00 · 586 阅读 · 0 评论