2022-11-12 79 0

首先，上传文件的网页代码： <form action="../testWebBroker.exe/upload" method="post" enctype="multipart/form-data"> <input type="file" id="MyUpload" name="MyUpload"> <inp

2022-11-12 215 0

Delphi Byte数组根据UTF8 转换为stringstring编码为 utf-8 byte数组 buf := BytesOf(UTF8Encode(msg)); byte数组转换为 string TEncoding.UTF8.GetString(byts);

2022-11-12 97 0

SysUtils单元下的TSearchRec是一个记录类型，主要通过FindFirst, FindNext, and FindClose使用。接上一篇举例说明TSearchRec常用成员//sysGetFileList(List,'c:\','*.doc,*.exe'); List通过查找添加多文件 //sysGetFileList(List,'c:\','*.doc'); List通过查找添加单文件 procedure sysG

2022-11-12 60 0

使用该函数需要先Use Excel2010//DataSet导出Excel2010格式<br>//FileName=待导出的Excel的文件名，不带路径以及后缀；TitleLine1=导出后Excel第一表头，TitleLine2=Excel第二表头；CellsNames=Excel表格中Field的Title名称；<br>//IsOpen=是否马上打开procedure sysDSetToXlsx(DSet: TADODataSet;FileName,TitleLine1,Ti

2022-11-12 139 0

【跟随万一老师的足迹】查找目录下文件，在万一老师的基础上升级下，支持多文件查找 - 文件操作(一) //sysGetFileList(List,'c:\','*.doc,*.exe'); List通过查找添加多文件//sysGetFileList(List,'c:\','*.doc'); List通过查找添加单文件procedure sysGetFileList(List: TStrings; SourFile,FileName: s

2022-11-12 95 0

unit Unit2;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, SynEdit, SynMemo, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls;type TForm2 = class(TForm) O

2022-11-12 60 0

delphi services允许跨域访问unit WebModuleUnit1;procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);begin Response.SetCustomHeader('Access-Control-Allow-Origin', 

2022-11-12 38 0

procedure TfrmMain.btnTestClick(Sender: TObject);var strTest,s:string; i: Integer;begin strTest := 'abcd1234'; s := ''; for i := Low(strTest) to High(strTest) do s := s+ '- ' + strTest[i]; ShowMessage(s);end;