<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>VerySource - Delphi</title>
    <link>https://domain.verysource.com/forum-42-1.html</link>
    <description>Latest 20 threads of Delphi</description>
    <copyright>Copyright(C) VerySource</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Sun, 19 Apr 2026 18:21:55 +0000</lastBuildDate>
    <ttl>60</ttl>
    <image>
      <url>https://domain.verysource.com/static/image/common/logo_88_31.gif</url>
      <title>VerySource</title>
      <link>https://domain.verysource.com/</link>
    </image>
    <item>
      <title>使用皮肤控件直接打不开.exe文件</title>
      <link>https://domain.verysource.com/thread-3936-1-1.html</link>
      <description><![CDATA[使用了VclSkin控件以后，有的电脑就打不开生成的.exe文件，是少什么东西吗？]]></description>
      <category>Delphi</category>
      <author>xiangnengkj</author>
      <pubDate>Mon, 22 May 2023 01:59:03 +0000</pubDate>
    </item>
    <item>
      <title>DelphiXE微信支付&amp;支付宝支付源代码</title>
      <link>https://domain.verysource.com/thread-3901-1-1.html</link>
      <description><![CDATA[DelphiXE微信支付&amp;支付宝支付源代码下载https://www.htsoft.com.cn/download/DelphiXEWeiXin_ZhiFuBao_ZhiFu.rar]]></description>
      <category>Delphi</category>
      <author>chenlongsoft</author>
      <pubDate>Thu, 18 Aug 2022 04:16:22 +0000</pubDate>
    </item>
    <item>
      <title>Delphi7微信支付&amp;支付宝支付源代码</title>
      <link>https://domain.verysource.com/thread-3900-1-1.html</link>
      <description><![CDATA[Delphi7微信支付&amp;支付宝支付源代码下载
http://www.htsoft.com.cn/download/Delphi7WeiXin_ZhiFuBao_ZhiFu.rar]]></description>
      <category>Delphi</category>
      <author>chenlongsoft</author>
      <pubDate>Thu, 18 Aug 2022 04:15:47 +0000</pubDate>
    </item>
    <item>
      <title>Delphi7阿里云发送短信 源代码</title>
      <link>https://domain.verysource.com/thread-3899-1-1.html</link>
      <description><![CDATA[下载 http://www.htsoft.com.cn/download/Delphi7_AlliSms_Demo.rar]]></description>
      <category>Delphi</category>
      <author>chenlongsoft</author>
      <pubDate>Thu, 18 Aug 2022 04:13:50 +0000</pubDate>
    </item>
    <item>
      <title>I need ABC6 or ABC7 to Delphi 7</title>
      <link>https://domain.verysource.com/thread-3886-1-1.html</link>
      <description><![CDATA[I need ABC6 or ABC7 to Delphi 7]]></description>
      <category>Delphi</category>
      <author>JonsonA</author>
      <pubDate>Wed, 08 Jun 2022 14:39:36 +0000</pubDate>
    </item>
    <item>
      <title>Is there any one hasing Sub7 source codes?</title>
      <link>https://domain.verysource.com/thread-3867-1-1.html</link>
      <description><![CDATA[Thanks a lot. Just for learning.]]></description>
      <category>Delphi</category>
      <author>david2022</author>
      <pubDate>Sat, 02 Apr 2022 09:22:16 +0000</pubDate>
    </item>
    <item>
      <title>Convert HTML to Text</title>
      <link>https://domain.verysource.com/thread-3863-1-1.html</link>
      <description><![CDATA[uses ...,mshtml, ActiveX, ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
IDoc: IHTMLDocument2;
sHTMLFile: String;
v: Variant;
begin
sHTMLFile := idHTTP1.Get(\'www.mysite.com\');
Idoc:=CreateComObject(Class_HTMLDOcument) as IHTMLDocume]]></description>
      <category>Delphi</category>
      <author>bwj20220310</author>
      <pubDate>Thu, 10 Mar 2022 01:42:25 +0000</pubDate>
    </item>
    <item>
      <title>谁有分MP3分割的Delphi源码</title>
      <link>https://domain.verysource.com/thread-3816-1-1.html</link>
      <description><![CDATA[谁有分MP3分割的Delphi源码，有的话留个联系方式]]></description>
      <category>Delphi</category>
      <author>x3285388</author>
      <pubDate>Mon, 08 Nov 2021 08:37:12 +0000</pubDate>
    </item>
    <item>
      <title>屏幕取词 dlephi10.3 可用 （3）</title>
      <link>https://domain.verysource.com/thread-3806-1-1.html</link>
      <description><![CDATA[function NewTextOutW(theDC: HDC; nXStart, nYStart: integer; str: pWidechar; count: integer): bool; stdcall;
type
   TTextOutW=function (theDC: HDC; nXStart, nYStart: integer; str: pWidechar; count: integer): bool; stdcall;
var
    dwBytes: DWORD;
]]></description>
      <category>Delphi</category>
      <author>cjajax</author>
      <pubDate>Sun, 24 Oct 2021 12:05:14 +0000</pubDate>
    </item>
    <item>
      <title>屏幕取词 dlephi10.3 可用 （2）</title>
      <link>https://domain.verysource.com/thread-3805-1-1.html</link>
      <description><![CDATA[unit UnitHookDll;

interface

uses Windows, SysUtils, Classes, math, messages, vcl.dialogs, UnitNt2000Hook,
    UnitHookType;

const
    COLOR1=255;
    COLOR2=0;
    COLOR3=255;
    Trap=true; //True陷阱式，False表示改引入表式

   procedure StartHo ...]]></description>
      <category>Delphi</category>
      <author>cjajax</author>
      <pubDate>Sun, 24 Oct 2021 12:04:09 +0000</pubDate>
    </item>
    <item>
      <title>屏幕取词 dlephi10.3 可用</title>
      <link>https://domain.verysource.com/thread-3804-1-1.html</link>
      <description><![CDATA[unit UnitMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,StdCtrls, Vcl.ExtCtrls
  ,unitHookType;

type
   TForm1 = class(TForm)
]]></description>
      <category>Delphi</category>
      <author>cjajax</author>
      <pubDate>Sun, 24 Oct 2021 12:00:22 +0000</pubDate>
    </item>
    <item>
      <title>HI</title>
      <link>https://domain.verysource.com/thread-3695-1-1.html</link>
      <description><![CDATA[I need indy 10 for delphi 7]]></description>
      <category>Delphi</category>
      <author>halim</author>
      <pubDate>Fri, 16 Apr 2021 08:39:58 +0000</pubDate>
    </item>
    <item>
      <title>看这么贴子，怎么没有看到一个编写股票软件</title>
      <link>https://domain.verysource.com/thread-3675-1-1.html</link>
      <description><![CDATA[查了很贴子、没有 一个关于股票软件编写贴子，基本上全部是图书管理、学生管理系统、超市之类编写贴。]]></description>
      <category>Delphi</category>
      <author>gmwyj</author>
      <pubDate>Mon, 29 Mar 2021 08:48:14 +0000</pubDate>
    </item>
    <item>
      <title>为什么会提示端口已打开的错误</title>
      <link>https://domain.verysource.com/thread-3656-1-1.html</link>
      <description><![CDATA[procedure TForm1.FormActivate(Sender: TObject);
begin

     MSComm1.CommPort:=1;
     MSComm1.Settings:=\'9600,n,8,1\';
     MSComm1.InBufferSize:=32;
     MSComm1.OutBufferSize:=2;
     MSComm1.InputMode:=comInputModeBinary;//设置接收数据模式为二进制 ...]]></description>
      <category>Delphi</category>
      <author>hanweiaaa</author>
      <pubDate>Mon, 15 Mar 2021 04:00:02 +0000</pubDate>
    </item>
    <item>
      <title>如何将一个整型数强制转让成浮点数？</title>
      <link>https://domain.verysource.com/thread-3620-1-1.html</link>
      <description><![CDATA[如题，多谢。]]></description>
      <category>Delphi</category>
      <author>carrocil</author>
      <pubDate>Fri, 05 Mar 2021 03:00:01 +0000</pubDate>
    </item>
    <item>
      <title>如何实现treeview中数据的快速查询</title>
      <link>https://domain.verysource.com/thread-3539-1-1.html</link>
      <description><![CDATA[我最近在解决一个问题，哪就是如何实现如下的情况：
A
 A1
  A11
 A2
  A21
  A22
 A3
B
 B1
  B11
   B111
.......
Z
里面有7层的关系，我想请问一下，如何快速实现查询？]]></description>
      <category>Delphi</category>
      <author>shy616007</author>
      <pubDate>Wed, 16 Dec 2020 09:00:01 +0000</pubDate>
    </item>
    <item>
      <title>为什么我在查询时，总显示Table is busy!!</title>
      <link>https://domain.verysource.com/thread-3532-1-1.html</link>
      <description><![CDATA[begin
        //mob.mob_index.Table1.Close;
        //mob.mob_index.Table2.Close;
        //mob.mob_index.Table3.Close;

        Table4.CancelRange;
        Table4.close;
        Table4.Exclusive:=true;
        Table4.AddIndex(\'newindex\',\'date\]]></description>
      <category>Delphi</category>
      <author>guyuqiqi</author>
      <pubDate>Wed, 16 Dec 2020 05:30:01 +0000</pubDate>
    </item>
    <item>
      <title>Delphi中Delete的一个初级问题!</title>
      <link>https://domain.verysource.com/thread-3529-1-1.html</link>
      <description><![CDATA[刚刚开始学DELPHI,很多问题不懂,也百试不得其解.问一下大哥大姐们?呵.....

我在Delphi中拖拽了几个控件.然后,在一个BUTTON的单击事件中写了下面的东西:
　　begin
        Label1.Caption:=Concat(Edit1.text,Edit2.text);
        Label2.Caption:=Delete(Label1.Capt ...]]></description>
      <category>Delphi</category>
      <author>baishui4</author>
      <pubDate>Wed, 16 Dec 2020 04:00:02 +0000</pubDate>
    </item>
    <item>
      <title>请教半透明的MainMenu及PopupMenu</title>
      <link>https://domain.verysource.com/thread-3524-1-1.html</link>
      <description><![CDATA[如题，怎么使MainMenu及PopupMenu半透明呀？]]></description>
      <category>Delphi</category>
      <author>philixwang</author>
      <pubDate>Wed, 16 Dec 2020 01:30:01 +0000</pubDate>
    </item>
    <item>
      <title>繁體中文的顯示問題</title>
      <link>https://domain.verysource.com/thread-3523-1-1.html</link>
      <description><![CDATA[windows繁體版+delphi英文版:
用RichEdit可以輸入\&quot;鰂\&quot;並且能正常顯示.但是用Memo輸入後顯示為:?
請問如何能在Memo中正常顯示?]]></description>
      <category>Delphi</category>
      <author>xy3577171</author>
      <pubDate>Tue, 15 Dec 2020 15:30:01 +0000</pubDate>
    </item>
  </channel>
</rss>