<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>S3软件 - DELPHI</title>
    <link>https://blog.s3.sh.cn/forum-9-1.html</link>
    <description>Latest 20 threads of DELPHI</description>
    <copyright>Copyright(C) S3软件</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Fri, 05 Jun 2026 23:52:15 +0000</lastBuildDate>
    <ttl>60</ttl>
    <image>
      <url>https://blog.s3.sh.cn/static/image/common/logo_88_31.gif</url>
      <title>S3软件</title>
      <link>https://blog.s3.sh.cn/</link>
    </image>
    <item>
      <title>DELPHI 开发的 WEBSERVICE API 改用HTTPS协议 浏览器报  此网站无法提供安全的连接,使用了不受支持的协议</title>
      <link>https://blog.s3.sh.cn/thread-126-1-1.html</link>
      <description><![CDATA[DELPHI 开发的 WEBSERVICE API 改用HTTPS协议 浏览器报  此网站无法提供安全的连接,使用了不受支持的协议


**** 本内容被作者隐藏 ****]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Tue, 10 Dec 2024 01:36:41 +0000</pubDate>
    </item>
    <item>
      <title>DELPHI 简单的直连数据库 显示到DBGrid 上控件属性修改点</title>
      <link>https://blog.s3.sh.cn/thread-122-1-1.html</link>
      <description><![CDATA[TADODataSet   TDataSource   TDBGrid  使用者3个控件不需要特殊修改]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Tue, 26 Nov 2024 06:21:23 +0000</pubDate>
    </item>
    <item>
      <title>FMX 12.25   TFDDataSet   单机使用方法</title>
      <link>https://blog.s3.sh.cn/thread-119-1-1.html</link>
      <description><![CDATA[]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Fri, 08 Nov 2024 04:41:37 +0000</pubDate>
    </item>
    <item>
      <title>FMX  12.25  LISTVIEW 使用</title>
      <link>https://blog.s3.sh.cn/thread-118-1-1.html</link>
      <description><![CDATA[]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Thu, 07 Nov 2024 01:13:37 +0000</pubDate>
    </item>
    <item>
      <title>DELPHI 12.2 FMX Image 图片圆角</title>
      <link>https://blog.s3.sh.cn/thread-117-1-1.html</link>
      <description><![CDATA[]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Wed, 30 Oct 2024 04:01:20 +0000</pubDate>
    </item>
    <item>
      <title>SQLSERVER调用WebAPI和WebService</title>
      <link>https://blog.s3.sh.cn/thread-116-1-1.html</link>
      <description><![CDATA[https://www.cnblogs.com/wangdongying/p/16903215.html]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Tue, 29 Oct 2024 05:40:27 +0000</pubDate>
    </item>
    <item>
      <title>DELPHI  App  Edit Button Rectangle   背景透明 弧度设置</title>
      <link>https://blog.s3.sh.cn/thread-114-1-1.html</link>
      <description><![CDATA[Rectangle  弧度  最后两个参数
Rectangle  透明  Fill  color
Rectangle  边框渐变  Stroke  Kind  Gradient
Rectangle  背景渐变  Fill  Kind  Gradient

Rectangle  边框颜色  Stroke  Bitmap color

Edit 透明   StyleLookup   transparentedit


 ...]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Thu, 26 Sep 2024 01:53:45 +0000</pubDate>
    </item>
    <item>
      <title>DELPHI 支持中文加解密 Memo数据处理</title>
      <link>https://blog.s3.sh.cn/thread-111-1-1.html</link>
      <description><![CDATA[]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Wed, 04 Sep 2024 09:09:05 +0000</pubDate>
    </item>
    <item>
      <title>DATASET 和 JSON 互转</title>
      <link>https://blog.s3.sh.cn/thread-93-1-1.html</link>
      <description><![CDATA[function DataSetToJson(ADataset: TDataSet): string;
// [{\&quot;CityId\&quot;:\&quot;18\&quot;,\&quot;CityName\&quot;:\&quot;西安\&quot;},{\&quot;CityId\&quot;:\&quot;53\&quot;,\&quot;CityName\&quot;:\&quot;广州\&quot;}]
var
  LRecord: string;
  LField: TField;
  i: integer;
begin
  Result := \'\';
  if (not ADataset.Active) or (]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Sat, 15 Jun 2024 09:29:46 +0000</pubDate>
    </item>
    <item>
      <title>Delphi 10.3 读取JSON数据</title>
      <link>https://blog.s3.sh.cn/thread-92-1-1.html</link>
      <description><![CDATA[uses
  System.Types,
  System.JSON,
  System.JSON.Types,
  System.JSON.Writers,
  System.JSON.Builders;

procedure TForm1.Button4Click(Sender: TObject);
var
  I: Integer;
  m_JsonStr: string;
  m_SubArray: TJSONArray;
  m_JsonObject: TJSONObje]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Sat, 15 Jun 2024 09:29:17 +0000</pubDate>
    </item>
    <item>
      <title>DELPHI XE 10.3 调用API SSL 处理 HTTP Basic的验证 传输内容汉字乱码 处理办法</title>
      <link>https://blog.s3.sh.cn/thread-91-1-1.html</link>
      <description><![CDATA[SSL 处理  需要程序文件中放libeay32.dll、ssleay32.dll 文件


unit Main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils,
  System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,



  StdCtrls,IdHTTP, ...]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Sat, 15 Jun 2024 09:28:52 +0000</pubDate>
    </item>
    <item>
      <title>提示窗使用</title>
      <link>https://blog.s3.sh.cn/thread-90-1-1.html</link>
      <description><![CDATA[Forms,Winapi.Windows,





//红叉
Application.MessageBox(\'错误信息！\', \'提示\', MB_ICONERROR);
//感叹号
系统默认图标，可在消息框上显示
X错误 MB_ICONHAND, MB_ICONSTOP, and MB_ICONERROR
?询问 MB_ICONQUESTION
!警告 MB_ICONEXCLAMATION and MB_ICONWARNING
 ...]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Sat, 15 Jun 2024 09:28:28 +0000</pubDate>
    </item>
    <item>
      <title>DELPHI EDIT控件 限制成只能输入数字</title>
      <link>https://blog.s3.sh.cn/thread-89-1-1.html</link>
      <description><![CDATA[Edit中只能输入数字且只能输入一个小数点
procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
edt: TEdit;
str, strL, strR: string;
p: integer;
begin
   // 获取当前文本内容, 注意要去掉选中部分(因为会被改写).
edt := TEdit(Sender);
str := e ...]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Sat, 15 Jun 2024 09:28:09 +0000</pubDate>
    </item>
    <item>
      <title>DELPHI 将字符串中某个字符串替换成其他字符串</title>
      <link>https://blog.s3.sh.cn/thread-88-1-1.html</link>
      <description><![CDATA[function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

rfReplaceAll：全部替换
rfIgnoreCase：忽略大小写
For Example：

var
aStr: String;
begin
aStr := \'This is a book, not a pen!\';
ShowMessage(StringReplace (a ...]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Sat, 15 Jun 2024 09:27:49 +0000</pubDate>
    </item>
    <item>
      <title>DELPHI 使程序只能运行一次</title>
      <link>https://blog.s3.sh.cn/thread-87-1-1.html</link>
      <description><![CDATA[procedure TForm1.FormCreate(Sender: TObject);
var
  errno:integer;
  hmutex:hwnd;
begin
  hmutex:=createmutex(nil,false,pchar(application.Title));
  errno:=getlasterror;
  if errno=error_already_exists then
  begin
    ShowMessage(\'程序已经在运行了\' ..]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Sat, 15 Jun 2024 09:27:21 +0000</pubDate>
    </item>
    <item>
      <title>DELPHI 使窗体顶置</title>
      <link>https://blog.s3.sh.cn/thread-86-1-1.html</link>
      <description><![CDATA[create 中添加
  Application.NormalizeTopMosts;
  SetWindowPos(self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or  SWP_NOSIZE);]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Sat, 15 Jun 2024 09:27:00 +0000</pubDate>
    </item>
    <item>
      <title>DELPHI 取 - 之前及之后 字串</title>
      <link>https://blog.s3.sh.cn/thread-85-1-1.html</link>
      <description><![CDATA[copy(string,1,pos(\'-\',string)-1)
copy(string,pos(\'-\',string)+1,length(string)-pos(\'-\',string))]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Sat, 15 Jun 2024 09:26:43 +0000</pubDate>
    </item>
    <item>
      <title>DELPHI Combobox控件赋值及取数</title>
      <link>https://blog.s3.sh.cn/thread-84-1-1.html</link>
      <description><![CDATA[For I:=0 to N do
Begin
  cbb1.Items.Add(INIW.ReadString(\'IP_\'+IntToStr(I),\'IP\',\'\'));
End;

cbb1.ItemIndex:=1   指定显示第几项

cbb1.Items[cbb1.ItemIndex]  //取所选择的内容





将查询返回值 写入Combobox

ComboBox.Items.BeginUpdate;    
try      Combo ...]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Sat, 15 Jun 2024 09:26:18 +0000</pubDate>
    </item>
    <item>
      <title>DELPHI 指定窗体初始化位置</title>
      <link>https://blog.s3.sh.cn/thread-83-1-1.html</link>
      <description><![CDATA[1.
Form1.top:=(screen.height-form1.height) div 5;
Form1.left:=(screen.width-form1.width) div 1;
2.
Form属性 Position 可以指定窗体默认居中]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Sat, 15 Jun 2024 09:25:54 +0000</pubDate>
    </item>
    <item>
      <title>DELPHI 应用程序图标托盘至右下角</title>
      <link>https://blog.s3.sh.cn/thread-82-1-1.html</link>
      <description><![CDATA[]]></description>
      <category>DELPHI</category>
      <author>S3_Leo</author>
      <pubDate>Sat, 15 Jun 2024 09:25:00 +0000</pubDate>
    </item>
  </channel>
</rss>