<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>VerySource - Delphi</title>
    <link>https://forum.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>Mon, 15 Jun 2026 12:06:34 +0000</lastBuildDate>
    <ttl>60</ttl>
    <image>
      <url>https://forum.verysource.com/static/image/common/logo_88_31.gif</url>
      <title>VerySource</title>
      <link>https://forum.verysource.com/</link>
    </image>
    <item>
      <title>使用皮肤控件直接打不开.exe文件</title>
      <link>https://forum.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://forum.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://forum.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://forum.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://forum.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://forum.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://forum.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://forum.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://forum.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://forum.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://forum.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://forum.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>Look at this post, how did you see a copy of the stock software?</title>
      <link>https://forum.verysource.com/thread-3675-1-1.html</link>
      <description><![CDATA[I checked very post, there is no copy of the stock software, basically all the book management, student management system, and supermarkets.]]></description>
      <category>Delphi</category>
      <author>gmwyj</author>
      <pubDate>Mon, 29 Mar 2021 08:48:14 +0000</pubDate>
    </item>
    <item>
      <title>Why is there an error that the port is open?</title>
      <link>https://forum.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;//Set the receiving dat]]></description>
      <category>Delphi</category>
      <author>hanweiaaa</author>
      <pubDate>Mon, 15 Mar 2021 04:00:02 +0000</pubDate>
    </item>
    <item>
      <title>How to forcibly transfer an integer number to a floating point number?</title>
      <link>https://forum.verysource.com/thread-3620-1-1.html</link>
      <description><![CDATA[As the title, thank you very much.]]></description>
      <category>Delphi</category>
      <author>carrocil</author>
      <pubDate>Fri, 05 Mar 2021 03:00:01 +0000</pubDate>
    </item>
    <item>
      <title>How to realize fast query of data in treeview</title>
      <link>https://forum.verysource.com/thread-3539-1-1.html</link>
      <description><![CDATA[I am currently solving a problem, which is how to achieve the following situation:
A
 A1
  A11
 A2
  A21
  A22
 A3
B
 B1
  B11
   B111
.......
Z
There are 7 levels of relationship, I would like to ask, how to quickly realize the query?]]></description>
      <category>Delphi</category>
      <author>shy616007</author>
      <pubDate>Wed, 16 Dec 2020 09:00:01 +0000</pubDate>
    </item>
    <item>
      <title>Why does it always show Table is busy!!</title>
      <link>https://forum.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>A primary question of Delete in Delphi!</title>
      <link>https://forum.verysource.com/thread-3529-1-1.html</link>
      <description><![CDATA[I just started to learn DELPHI, and I don’t understand many questions, and I can’t solve them after all. Ask the big brothers and sisters? Ha...

I dragged several controls in Delphi. Then, in a BUTTON click event, I wrote the following:
　　Begin
 ...]]></description>
      <category>Delphi</category>
      <author>baishui4</author>
      <pubDate>Wed, 16 Dec 2020 04:00:02 +0000</pubDate>
    </item>
    <item>
      <title>Consult the translucent MainMenu and PopupMenu</title>
      <link>https://forum.verysource.com/thread-3524-1-1.html</link>
      <description><![CDATA[As in the question, how to make MainMenu and PopupMenu semi-transparent?]]></description>
      <category>Delphi</category>
      <author>philixwang</author>
      <pubDate>Wed, 16 Dec 2020 01:30:01 +0000</pubDate>
    </item>
    <item>
      <title>Traditional Chinese display problem</title>
      <link>https://forum.verysource.com/thread-3523-1-1.html</link>
      <description><![CDATA[Windows Traditional Version + Delphi English Version:
With RichEdit, you can input \&quot;鲗\&quot; and it can be displayed normally. But after inputting with Memo, the display is:?
How can it be displayed normally in Memo?]]></description>
      <category>Delphi</category>
      <author>xy3577171</author>
      <pubDate>Tue, 15 Dec 2020 15:30:01 +0000</pubDate>
    </item>
  </channel>
</rss>