自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

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

原创 delphi 调用DLL,并用函数返回pchar类型

/ 分配足够大小的内存空间。// 将输入字符串复制到结果中。// 如果发生错误则设置为nil。

2024-01-26 11:50:50 52

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

原创 NetHTTPClient访问https网站出错。

/);在ValidateServerCertificate事件里加这句:beginend;

2023-11-09 12:58:29 149

原创 d7调用D10的DLL注意

D7在调用D10封装的DLL时应注意传递参数类型:

2023-10-27 09:36:19 54

原创 fastreport自动合并内容相同单元格

Duplicates=dmMerge

2023-10-10 09:28:41 462

原创 frxJSON用法

"Addr":"送货地址:上海人民广场路37弄21号","FMaterialCode":"款号A","FColorName":"红","Client":"客户:上海李明","Storge":"仓库:档口仓库","FColorName":"黄","Title":"主表",

2023-09-14 14:43:39 140

原创 ffmpeg 命令

// MyCmd:='ffmpeg -f image2 -i '+path1+'%02d.jpg -vf "scale='+x+':'+y+',tile='+a+'x'+b+'" '+path2+' -y'; MyCmd:='ffmpeg -f image2 -i '+path1+'%02d.jpg -vf "scale='+x+':'+y+',tile='+a+'x'+b+' " -q 9 '+path2+' -y';//对合成图片进行压缩 -q 9 MyCmd:='cmd.exe /c '+

2023-06-01 09:06:30 62

原创 delphi在两个窗口间用消息通讯

str2:='我来了中玉人';str1:='我来了中玉人';

2023-04-21 10:58:29 602 1

原创 delphi 设置Excel单元格格式两种方式

1.

2023-04-10 14:05:01 615

原创 cxgrid操作

CXGRID

2023-02-22 10:34:26 163

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

UTF-8

2022-06-23 16:50:46 374

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

原创 手动添加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 171

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

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

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

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

原创 把文件流转为字串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 97

原创 从HTTP服务器下载照片

从HTTP服务器下载照片,如果文件中有汉字的,要先转码 ,再下载,一般要转为UTF-8.CPFileName:=StringReplace(CPFileName,'/','__',[rfReplaceAll]); CPFileName:=StringReplace(HTTPEncode(UTF8ENcode(CPFileName)),'__','/',[rfReplaceAll]); cp...

2021-07-08 11:39:23 228

原创 流信息转图片显示

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 80

原创 压缩MSSQL日志文件

dump transaction data0505 with no_loggodbcc shrinkdatabase(data0505)

2021-06-08 09:21:43 114

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

原创 在WIN10启动项中加入软件自启动方法

注册表,加入如下建值:hkey_local_machine\software\wow6432node\microsoft\windows\currentversion\run"

2020-05-21 08:35:13 220

原创 字符空间申请

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 214

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

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

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

原创 图片按比例放大与缩小

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 587

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

原创 在回调函数中调用消息并传递参数

在回调中调用消息函数传递结构体变量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 1440

原创 delphi调用C++封装动态库

delphi调用C++动态库,当C++中有枚举类型时,在delphi定义枚举类型时,要在定义单元上面加上unit LocateWaitfrm;interfaceuses{$Z4};否则会出现结构体中大小不一致现象。...

2019-12-30 15:04:53 546 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 192

原创 base64编码问题

当用EncodeStream(Stream,sm1);//将内存流编码为base64字符流,转为base64编码后,会每76行后加一个回车换行字符,使用中应该去掉: streamstr:=stringreplace(sm1.DataString,#13#10,'',[rfReplaceAll, rfIgnoreCase]);...

2019-04-04 15:51:57 361

原创 获取网络文件及目录

var    NetSource   :   TNetResource;    dwResult:DWORD;begin    g_bFlag:=True;    with   NetSource   do    begin        dwType   :=   RESOURCETYPE_ANY;        lpLocalName   :='';        lpRemoteName:=...

2018-06-22 14:24:27 716

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

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

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

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

原创 在cxgrid中根据第一列的ID值,对第二列进行下拉过滤

procedure TForm1.cxGrid1TableView1Column3GetPropertiesForEdit(  Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;  var AProperties: TcxCustomEditProperties);begin    (**)// arecord

2017-02-17 08:37:10 1353

原创 下载指定网络验证码图片,并保存

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 438

原创 递归查询网页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 393

原创 delphi获取电脑内存使用情况

var  status : TMemoryStatus;  rate   : single;begin GlobalMemoryStatus(status); // showmessage(floattostr(status.dwMemoryLoad));// showmessage(floattostr((status.dwAvailPageFile)/1

2015-10-08 15:34:56 1927

delphi 网络文件传输 IdTCPServer

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

2011-01-28

delphi 三层erp 制衣厂管理系统

delphi 三层erp 制衣厂管理系统

2010-05-14

空空如也

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

TA关注的人

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