小祝的专栏

firedac Sql语句中出现“&”符号，丢失问题解决设置ResourceOptions.MacroCreate 和 MacroExpand 为False

delphi 编译警告解决1、[dcc32 Warning] U_Audio.pas(256): W1000 Symbol 'StrPCopy' is deprecated: 'Moved to the AnsiStrings unit'解决方法：添加System.AnsiStrings引用，在使用处改为System.AnsiStrings.strpcopy...

TIdHTTP按JSON格式发送HttpClient.Request.ContentType := 'application/json'; //设置内容类型为json

function TROMiddleWare.IsPortUsed(aPort: Integer): Boolean;var _vSock: TSocket; _vWSAData: TWSAData; _vAddrIn: TSockAddrIn;begin Result := False; try if WSAStartup(MAKEWORD(2, 2), _vW...

delphi各个版本编译开关值{$IFDEF VER80} - Delphi 1{$IFDEF VER90} - Delphi 2{$IFDEF VER100} - Delphi 3{$IFDEF VER120} - Delphi 4{$IFDEF VER130} - Delphi 5{$IFDEF VER140} - Delphi 6{$IFDEF VER150} -

Sleep会引起程序停滞，使程序看起来像死机下面的延迟方法不会卡主线程procedure Delay(msecs: DWORD);var iStart, iStop: DWORD;begin iStart := GetTickCount; repeat iStop := GetTickCount; Application.ProcessMessages;

procedure CheckResult(b: Boolean);begin if not b then raise Exception.Create(SysErrorMessage(GetLastError));end;function RunDOS(const CommandLine: string): string;var HRead, HWrite: THand

添加{$WARNINGS OFF}

转自//从文件加载PNGprocedure YXForm_FromFile(AForm : TForm; AFileName : String);//从资源加载PNGprocedure YXForm_FromResource(AForm : TForm; ResName : String; ResType : PWideChar; Instance : HINST = 0);//从图像对象

uses  IdHTTP; var  HttpClient: TIdHttp;  ParamList: TStringList;  SS: TStringStream;begin  SS := TStringStream.Create('', TEncoding.UTF8);  HttpClient := TIdHttp.Create();  ParamList :

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin if (ssleft in Shift) then begin releasecapture; perform(wm_syscommand, $F012, 0); end;end;

procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;procedure WMSysCommand(var Msg: TWMSysCommand);begin if Msg.CmdType <> SC_CLOSE then inheritedend;

CxGrid鼠标移到更改颜色设置表单中TcxGrid1DBTableView的Styles属性，设置Selectionprocedure TForm1.cxGrid1DBTableView1MouseMove(Sender: TObject;  Shift: TShiftState; X, Y: Integer);var  HitTest:TcxCustomGridHitTes

窗口的formShow事件中，增加以下代码： Application.NormalizeTopMosts; // 如果不加入这一句，非主窗口仍然不能置顶 SetWindowPos(Self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);取消置顶SetWindowPos(Self.Handle, HWND_NOTOPMO...

HttpClient.HandleRedirects := True;HttpClient.Request.CustomHeaders.Values['Cookie'] := 'jeessionOAWeb=865F7BBA5098E;'; 

1、获取memo对象 Memo:=TfrxmemoView(MasterData1.FindObject('Memo3')); Memo.Text := 'Hello FastReport!';2、获取数据集并循环数据集内容 data:= Report.getDataset('数据集1'); data.first; while not data.eof do be...

直接上代码procedure TForm2.TestClick(Sender: TObject);var m_OLE: Variant; Js: string; JsReturn:string;begin m_OLE := CreateOleObject('ScriptControl'); m_OLE.Language := 'JavaScript'; Js :=...

使用IdHttp组件下载文件，出现 Http/1.0 302 found 错误添加 IdHTTP.HandleRedirects := True; 解决

Params := TStringList.Create;try Params.Clear; Params.Add('Server=' + Server); Params.Add('Port=' + Port); Params.Add('Database=' + Database); Params.Add('CharacterSet=utf8'); Params.Add('User...

delphi clientdataset 写入值时乱码问题今天出现生僻字写入clientdataset 出现？情况，记录下解决方法将字段类型改为ftwidestring 就可以了

原文地址：RAD Studio 10 自带Demo代码汇总说明   作者：JasonZhuBJ大家好，好多朋友来信咨询Delphi和C++Builder的移动开发、DataSnap架构等问题，希望能有Demo代码学习。其实Delphi和C++Builder本身自带有很多示例代码，已经覆盖了大部分Delphi和C++Builder开发工具的特性和技术。对于开发各种特定的应用，还是需要去在

THTTPRIO增加代理设置代码如下RIO.HTTPWebNode.Proxy:='192.168.1.1:808';RIO.HTTPWebNode.UserName:='admin';RIO.HTTPWebNode.Password:='123';

HttpClient.ProxyParams.BasicAuthentication := True;HttpClient.ProxyParams.ProxyServer := '192.168.1.1';HttpClient.ProxyParams.ProxyPort := 808;HttpClient.ProxyParams.ProxyUsername

Uses IdHashMessageDigest;var   AMD5:TIdHashMessageDigest5;begin try   AMD5:=TIdHashMessageDigest5.Create;   edt1.Text:=AMD5.HashStringAsHex('123456'); finally    AMD5.Free;  end;

调用webService报Server was unable to process request. ---> Object reference not set to an instance of an object.解决 需要在生成的接口单元的initialization部分加上一句：InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSo

字节数组转文件procedure ByteArrayToFile(const ByteArray: TByteDynArray; const FileName: string);var Count: integer; F: file of Byte; pTemp: Pointer;begin AssignFile(F, FileName); Rewrite(F);...

由于要实现关闭窗口最小化到系统托盘，在FormCloseQuery中加入CanClose = false，导致无法正常关机procedure EndMsg(var nMsg: TWMQueryEndSession); Message WM_QUERYENDSESSION;procedure TF_Main.EndMsg(var nMsg: TWMQueryEndSession);

1、设置label的align为alClient；2、设置label的alignment为taCenter3、设置label的layout为tlCenter

将clientdataset的LogChanges属性设置为false,当LogChange是false时clientdataset不记录修改日志，这样可以提升处理数据速度、减少内存消耗。注意：本方法不适用于ClientDataSet要进行保存操作

部署到手机后出现No Selected DOM Vender错误解决 解决方法：uses Xml.omnixmldom

StyledSettings 中 FontColor  属性设置false

读取var XMLDocument: TXMLDocument; i: Integer; node: IXMLNode; id, name: string;begin XMLDocument := TXMLDocument.Create(nil); try XMLDocument1.DOMVendor := GetDOMVendor('Omni XML');

编码：HTTPEncode(UTF8Encode('url编码'))解码：HTTPDecode(UTF8Decode('url%E7%BC%96%E7%A0%81'));

窗体DoubleBuffered设为True

ADOQUERY.Post报无法为更新定位行 一些值可能已在最后一次读取后已更改解决方案：将CursorLocation 的属性设置为clUseServer

在网络繁忙或者网络异常的情况下，TIdHTTP.post(URL)没有任何信息反馈，一直阻塞，导致整个线程停止设置ReadTimeout  ConnectTimeout 后问题解决

SS := TStringStream.Create('', TEncoding.UTF8); HttpClient := TIdHttp.Create(); MutPartForm := TIdMultiPartFormDataStream.Create; try MutPartForm.AddFormField('unitCode', UnitCode);

下面是delphi调用极光推送服务端HTTP API实例 HttpClient.HandleRedirects := True;  HttpClient.Request.ContentType := 'application/json';  HttpClient.Request.BasicAuthentication := True;  HttpClient.Request

procedure TFm_Main.onCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);begin AResponseInfo.ContentType := 'text/html'; AResponseInfo.CharSet :

cxDateEdit下拉时，里面有两个按钮，一个是" today" ,一个"clear" , 如何将它们改为中文打开\Program Files\Developer Express Inc\ExpressEditors Library 4\Sources\找到cxEditConsts.pas文件，修改相关常量即可，最后重新编译安装