- 博客(65)
- 资源 (2)
- 收藏
- 关注
原创 在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
388
原创 手动添加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
124
原创 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
522
原创 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
517
原创 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
893
原创 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
820
原创 把文件流转为字串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
59
原创 从HTTP服务器下载照片
从HTTP服务器下载照片,如果文件中有汉字的,要先转码 ,再下载,一般要转为UTF-8.CPFileName:=StringReplace(CPFileName,'/','__',[rfReplaceAll]); CPFileName:=StringReplace(HTTPEncode(UTF8ENcode(CPFileName)),'__','/',[rfReplaceAll]); cp...
2021-07-08 11:39:23
167
原创 流信息转图片显示
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
29
原创 压缩MSSQL日志文件
dump transaction data0505 with no_loggodbcc shrinkdatabase(data0505)
2021-06-08 09:21:43
66
原创 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
201
原创 在WIN10启动项中加入软件自启动方法
注册表,加入如下建值:hkey_local_machine\software\wow6432node\microsoft\windows\currentversion\run"
2020-05-21 08:35:13
153
原创 字符空间申请
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
162
原创 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
486
原创 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
143
原创 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
167
原创 图片按比例放大与缩小
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
489
原创 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
320
原创 在回调函数中调用消息并传递参数
在回调中调用消息函数传递结构体变量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
1322
原创 delphi调用C++封装动态库
delphi调用C++动态库,当C++中有枚举类型时,在delphi定义枚举类型时,要在定义单元上面加上unit LocateWaitfrm;interfaceuses{$Z4};否则会出现结构体中大小不一致现象。...
2019-12-30 15:04:53
395
1
原创 参数为指针参数如何传递。。
typeTMyArr=array[0..3]ofTPoint;PMyArr=^TMyArr;TForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject);privateprocedureShowArr(P:Pointer...
2019-08-08 16:24:24
165
原创 base64编码问题
当用EncodeStream(Stream,sm1);//将内存流编码为base64字符流,转为base64编码后,会每76行后加一个回车换行字符,使用中应该去掉: streamstr:=stringreplace(sm1.DataString,#13#10,'',[rfReplaceAll, rfIgnoreCase]);...
2019-04-04 15:51:57
324
原创 获取网络文件及目录
var NetSource : TNetResource; dwResult:DWORD;begin g_bFlag:=True; with NetSource do begin dwType := RESOURCETYPE_ANY; lpLocalName :=''; lpRemoteName:=...
2018-06-22 14:24:27
683
原创 在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
1212
原创 在cxgrid中根据第一列的ID值,对第二列进行下拉过滤
procedure TForm1.cxGrid1TableView1Column3GetPropertiesForEdit( Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; var AProperties: TcxCustomEditProperties);begin (**)// arecord
2017-02-17 08:37:10
1277
原创 下载指定网络验证码图片,并保存
varstream:TMemoryStream;beginIdHTTP1.Get('http://www.jljj.cn/');Stream := TMemoryStream.Create ;idhttp1.Get('http://www.jljj.cn/thirdparty/cx/val.jsp?change=yes&random=',Stream);stream.Sav
2016-07-13 17:26:00
389
原创 递归查询网页Frame
function GetFrame(ADoc:IHTMLDocument2 ; FrameNo:Integer):IWebbrowser2;var OleContainer:IOleContainer; enum:IEnumUnknown; unk:IUnknown; Fetched:PLongint;begin Result:=nil; try
2016-04-19 09:50:57
357
原创 delphi获取电脑内存使用情况
var status : TMemoryStatus; rate : single;begin GlobalMemoryStatus(status); // showmessage(floattostr(status.dwMemoryLoad));// showmessage(floattostr((status.dwAvailPageFile)/1
2015-10-08 15:34:56
1734
原创 CXGrid用法1
CXGRID用法 (取行、列值;定位选中某行等等) Delphi Cxgrid获取选中行列,排序规则,当前正在编辑的单元格内的值 cxGrid1DBTableView1.Controller.FocusedRowIndex当前行号 cxGrid1DBTableView1.Controller.FocusedRow 当前行 cxGrid1DBTableView1.Contr
2015-08-12 15:58:55
852
原创 查看端口是否被占用
查看该端口情况如下: netstat -aon|findstr "5037" TCP 127.0.0.1:5037 0.0.0.0:0 LISTENING 6540发现6540占用了 5037端口,继续查看6540的task,发现是wandoujia .如下所示 tasklist|fin
2015-04-14 16:39:44
399
原创 在delphi中制作二维码
var abar: TQRCode; aCode: string;begin if acode = '' then acode := 'www.163.com'; acode := acode; ppIgm.Picture.Bitmap := nil; abar := TQRCode.Create(nil); abar.Eclevel :=
2015-03-05 14:56:40
2276
1
原创 在JPG图片上直接写字,不用转成BMP
jpg := tjpegimage.create;jpg.loadfromfile('D:\Photo\2014-12-26\20141223150119855驶近_60_90_无车牌.jpg');//image4.Picture.Assign(jpg);image4.canvas.draw(0,0,jpg);image4.Canvas.Brush.Color:= clBlack;
2015-01-29 11:15:47
1483
原创 在fastreport中打印空白表格及小写金额转大写金额
var PageLine: integer; //在現在頁列印到第幾行 PageMaxRow: integer=15; //設定每頁列數 C_ToTal, C_JINE : STring; ToTal_Debit, Page_JinE, Total_Credit : Extended; //Debit-借方 ,credit-贷方
2014-10-17 13:58:02
2718
原创 在combox中加入多列。。
type pFields=^TFields;//定义一个记录集 TFields=Record ID,CName,EName:String; end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);va
2014-06-06 11:16:47
2053
原创 常用函数
格式化整型字串0000形式:format('%.5d',[134]); 取char数组到string类型变量;struPlateResult.byAbsTime:array[0..20] of char;VarCarDateTime:string;strcopy(@VarCarDateTime,@struPlateResult.byAbsTime);
2012-05-29 16:25:03
320
原创 cxgrid直接载入图片
procedure TForm1.FormCreate(Sender: TObject);var tmpMemStream: TMemoryStream; tmpPic: TPicture; tmpSize: LongInt; tmpStr,AFileName: String;aa: TStringStream; AValue: AnsiString; APic
2012-02-07 09:28:03
2755
1
原创 使cxgrid中某列下拉列表自动下拉
Grid_infoDBTableView1.DataController.FocusedRowIndex:= self.Grid_infoDBTableView1.DataController.RowCount; Grid_infoDBTableView1.Controller.FocusedColumnIndex :=4; Grid_info.SetFocus; Grid_in
2012-02-01 16:28:02
1894
delphi 网络文件传输 IdTCPServer
2011-01-28
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人