自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(65)
  • 资源 (2)
  • 收藏
  • 关注

原创 cxgrid操作

CXGRID

2023-02-22 10:34:26 10

原创 将文字转为UTF-8编码(即HTML可识别的)

UTF-8

2022-06-23 16:50:46 214

原创 在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

原创 让fastreport报表中每页序号从1开始。

[iif( mod 12 >0, mod 12,12)]

2017-05-04 16:03:23 2627 2

原创 在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

DELPHI写的,用最新的IdTCPServer组件,用于网络上的文件传输,也可以用于互联网上的文件传输。。分为客户端和服务端两个程序,服务端只需指定端口,指定被COPY的目录,客户端指定服务端IP地址,和端口号,COPY的目标目录即可。。。

2011-01-28

delphi 三层erp 制衣厂管理系统

delphi 三层erp 制衣厂管理系统

2010-05-14

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除