9807146wang的博客_CSDN博客-Delphi ,Delphi,网络领域博主

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 三层erp 制衣厂管理系统

空空如也