- 博客(77)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 Ftp中文目录乱码
IdFTP.IOHandler.DefStringEncoding:=TIdTextEncoding.Default; idFTP1.IOHandler.DefStringEncoding :=IndyTextEncoding_OSDefault;
2024-04-26 09:01:16
140
原创 delphi 调用DLL，并用函数返回pchar类型
/ 分配足够大小的内存空间。// 将输入字符串复制到结果中。// 如果发生错误则设置为nil。
2024-01-26 11:50:50
424
原创 在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
310
原创 frxJSON用法
"Addr":"送货地址:上海人民广场路37弄21号","FMaterialCode":"款号A","FColorName":"红","Client":"客户:上海李明","Storge":"仓库:档口仓库","FColorName":"黄","Title":"主表",
2023-09-14 14:43:39
183
原创 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
102
原创 在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
631
原创 手动添加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
208
原创 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
808
原创 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
1003
原创 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
1091
原创 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
1147
原创 把文件流转为字串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
131
原创 从HTTP服务器下载照片
从HTTP服务器下载照片,如果文件中有汉字的，要先转码 ，再下载，一般要转为UTF-8.CPFileName:=StringReplace(CPFileName,'/','__',[rfReplaceAll]); CPFileName:=StringReplace(HTTPEncode(UTF8ENcode(CPFileName)),'__','/',[rfReplaceAll]); cp...
2021-07-08 11:39:23
259
原创 流信息转图片显示
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
110
原创 压缩MSSQL日志文件
dump transaction data0505 with no_loggodbcc shrinkdatabase(data0505)
2021-06-08 09:21:43
148
原创 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
400
原创 在WIN10启动项中加入软件自启动方法
注册表，加入如下建值：hkey_local_machine\software\wow6432node\microsoft\windows\currentversion\run"
2020-05-21 08:35:13
281
原创 字符空间申请
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
254
原创 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
640
原创 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
260
原创 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
301
原创 图片按比例放大与缩小
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
678
原创 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
537
原创 在回调函数中调用消息并传递参数
在回调中调用消息函数传递结构体变量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
1481
原创 delphi调用C++封装动态库
delphi调用C++动态库，当C++中有枚举类型时，在delphi定义枚举类型时，要在定义单元上面加上unit LocateWaitfrm;interfaceuses{$Z4};否则会出现结构体中大小不一致现象。...
2019-12-30 15:04:53
609
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
222
原创 base64编码问题
当用EncodeStream(Stream,sm1);//将内存流编码为base64字符流，转为base64编码后，会每76行后加一个回车换行字符，使用中应该去掉： streamstr:=stringreplace(sm1.DataString,#13#10,'',[rfReplaceAll, rfIgnoreCase]);...
2019-04-04 15:51:57
471
原创 获取网络文件及目录
var NetSource : TNetResource; dwResult:DWORD;begin g_bFlag:=True; with NetSource do begin dwType := RESOURCETYPE_ANY; lpLocalName :=''; lpRemoteName:=...
2018-06-22 14:24:27
756
原创 在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
1461
原创 在cxgrid中根据第一列的ID值，对第二列进行下拉过滤
procedure TForm1.cxGrid1TableView1Column3GetPropertiesForEdit( Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; var AProperties: TcxCustomEditProperties);begin (**)// arecord
2017-02-17 08:37:10
1397
delphi 网络文件传输 IdTCPServer
2011-01-28
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人