编程资料收集与共享交流

然后上官方（ github.com/fatedier/frp ）去查，也有人反馈问题，作者仿佛也很无奈的相子，此问题在2017年就提出来了，直至今天好象也没有得到解决；在家里自建了一个私人网络云盘，由于家里上网IP都是服务商动态分配的，所以公网IP地址是不固定的。（免费的限制挺在的），由于我自己有一个固定公网IP的电脑可以使用，所以就选择了免费开源的 frp。在使用过程中，发一个问题，frpc.exe 会经常莫名的退出了。服务端也可以这么做。把相关的“写死”在代码里面的东西，弄一个配置，这样就灵活些了。

转载自：https://blog.youkuaiyun.com/tvmerp/article/details/107736457//验证码生成单元unit AuthenticodeGenerate;interfaceuses SysUtils, Windows, ExtCtrls, Graphics;function GenerateAuthenticode(const Img: TImage; const Len: Integer = 4): string;implementati.

<br />笔者在前一段的工作中，需要开发一套简单的网络数据传输程序。由于平时常用Delphi做点开发，故此次也不例外。Delphi 7中带有两套TCP Socket组件：Indy Socket组件（IdTCPClient和IdTCPServer）和Delphi原生的TCP Socket组件（ClientSocket和ServerSocket）。但是，Borland已宣称ClientSocket和ServerSocket组件即将被废弃，建议用相应的Indy组件来代替。因此，笔者使用了

<br />1、通过IP取MAC地址<br /><br />uses<br />WinSock;<br /><br />Function sendarp(ipaddr:ulong;<br />temp:dword;<br />ulmacaddr:pointer;<br />ulmacaddrleng:pointer) : DWord; StdCall; External 'Iphlpapi.dll' Name 'SendARP';<br /><br />procedure TFo

用硬件id加密程序，其中一项加密是用mac地址。mac如果是真实网卡信息是唯一的，不好的消息是网卡很容易就能虚拟,所以需要配合其它手段。现在有三种方式，各有利弊第一种 最简单也最实用，通过调用ipconfig -all 来取得网卡。第二种 通过netbios，因为是网络协议，如果网卡没有连接上，取不到mac地址第三种 通过rpc调用，只能得到一块网卡.在有多块网卡时会出现有时取到的MAC不一致.第一种function   MacAddress():   string;<br />implementati

unit UntMain;<br /><br />interface<br /><br />uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, Buttons, ComCtrls, XPMan, ExtCtrls, StdCtrls, Menus, IdContext,<br /> IdScheduler, IdSchedulerOfThre

<br />//客户端unit UntClt;<br /><br />interface<br /><br />uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, ComCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,<br /> StdCtrls, UntG

这组控件我是在Delphi2007精简版中用到的,之所以用它的起因很简单:1.IdTcpServer中有Connected和DisConnected事件,易于进行管理,而且当Client非正常关闭也可以用.2.阻塞方式的通信方式虽然"笨"点,但当一个"笨"办法有效,那它就不是一个笨办法.3.由于是Tcp方式的连接,可靠性高了很多,而且使得内网连接也可靠了许多.一.关于组件的一般无错

很多朋友一定象我一样需要一个可以自己定制的HTTP代理程序,受到论坛里面的LXM365朋友的启发(在此感谢一下!),发现利用DELPHI7 的INDY控件IdMappedPortTcp可以做成HTTP代理程序.于是我仔细查看了一下IdMappedPortTcp的源代码,发现Lxm365在OnExecute事件里面处理的方案并不完美,因为在触发OnExecute事件前代理程序必须已经连接到一个目标机

在三层开发中，为了安全，通常，不会将SQL语句直接传递到服务端；那有些功能又不能写死的软件中。。特殊是SQL。所以通常我们会在将一些SQL语句放在数据表中，给第一个SQL语句一个ID，这样在客户端，仅指定ID就行，可是对于一个带查询条件的SQL语句，就需要带一个依据传递到 服务器端了。比如：我们的数据表中存在:ID    SQLSTRING1      SELE

在上一篇文章中，使用了 OLE

以前，使用 DELPHI XE 时，可以使用类型如下的代码来

随着人们交往的不断扩大，人与人、单位与单位之间的邮件通讯日益普及，通过邮件群发，可以将会议通知、产品说明、产品报价等通过邮件方式把大量邮件送到用户的邮箱中，既加快了信息的传递，又节省了费用。目前网上有许多邮件群发是基于Delphi 5中的TNMSMTP控件的，很多的SMTP邮件服务器要对发送邮件的用户进行身份验证，即要求给出用户名和密码信息，否则无法发送，包括163.net，263.n

DELPHI 的3rd-Party 元件數量之多，遠超過其它的開發工具，其用途之廣可說創下前所未有的記錄。這也為DELPHI 程式設計師省下許多重新製造輪子的時間，令系統開發速度倍增，同時減少了因實作碼增加而使錯誤率升高。可惜的是VCL元件似乎都有著一個通病，就是缺少完整的說明檔!許多VCL 元件甚至連範例都少的可憐，幸運的是VCL

如果你有自己的虚拟主机或服务器的话，就可以使用xmarks的“使用自己的服务器”功能，方法如下：在你的FTP根目录创建一个文件夹，用来存放xmarks的书签数据。这里假设文件夹名为”xmarks”打开xmarks的“设置”窗口，“把Status”中的用户名和密码改成你的FTP的用户名密码进入“高级”，选中“使用自己的服务器”，然后“地址”里填：ftp://你的服务器IP/xma

procedure TForm1.FtpDownLoad(aURL, aFile: string; bResume: Boolean);var   tStream: TFileStream;   sName, sPass, sHost, sPort, sDir: string;begin //ftp方式下载   if FileExists(aFile) then //建立

说到网页采集，通常大家以为到网上偷数据，然后把到收集到的数据挂到自己网上去。其实也可以将采集到的数据做为公司的参考，或把收集的数据跟自己公司的业务做对比等。 目前网页采集多为3P代码为多（3P即ASP、PHP、JSP）。用得最有代表的就动易科技公司BBS中新闻采集系统，和网上流传的新浪新闻采集系统等都是用ASP程序来使用，但速度从理论上来说不是很好。如果尝试用其它软件的多线程采集是

　　    Delphi7支持对XML文档的操作，可以通过TXMLDocument类来实现对XML文档的读写。可以利用TXMLDocument把XML文档读到内存中，从而可以进行编辑、保存操作。TXMLDocument类是通过DOM(文档对象模型)接口来访问XML文档中的各个元素的。对于DOM接口的实现有多种方式，Delphi支持的方式有：1)微软的MSXML SDK，

　　朋友们在用Delphi编程序的时候，常常碰到需要在程序中获取自己的IP地址的情况。在以往的版本中，可以通过编写一段代码或函数实现这一功能。但有了Delphi 7，这个工作可以更简化了。利用控件只需一句代码，就可以非常方便地实现这一功能。 　　新建一Project1，在form1中添加控件statusbar1(Win32页)和控件IdIPWatch1(IndyMisc页)。接着设置好控件

 运行delphi-->Components-->Import Active Control，在列表中找到下面的 Microsoft Terminal Services Active Client 1.0 Type Library (Version 1.0), 点击install参考代码如下：var proj: ImsRdpclientAdvancedSettings; //定义密码

 使用:UploadFilesHttpPost( WebBrowser1, http://test.org/check, [], [], [uploaded_file], [C:/blank.htm] ); procedure UploadFilesHttpPost(const wb:TWebBrowser; const URLstrin

 function MapNetworkDrive(const handle : THandle; const uncPath : string) : string;//returns mapped drive ("z:") on success//or uncPath on failure / cancelvar cds : TConnectDlgStruct; netR

 发送端创建一个发送缓冲区，用 AddSendBuffer(AData:Pointer;ALen:Integer) 的方式将用户数据包加入到缓冲区.用另一个线程，从缓冲区的另一头取定长，比如说是 1024字节点长度的数据，加上包头形成一个发送数据包。 接收端也是创建一个接收缓冲区，将收到的每个发送数据包中的用户数据都按顺序放在缓冲区中。一个线程根据数据内容来确定是否接收完成一个用户数据包。

 调用代码示例：var ip: string;begin with TStringlist.Create do try Text := GetHTML(www.whatismyip.com/automation/n09230945.asp) ; if Count > 0 then ip := Strings[Count - 1]; final

 实际工作中的代码，向服务器发送特定格式命令后，取得想要的工艺位号数据。直接复制过来的，有兴趣的自己看吧。 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,winsock, StdCtrls, E

以下是我从MSDN中翻译过来的三个Delphi单元，调用任意一个单元中声明的API都可以获取网卡的物理地址，但三个单元中的API函数的有效环境和功能各有不同，我把说明附于代码的注释中。unit Lmwksta;interfaceusesWindows,SysUtils,Dialogs;type_WKSTA_TRANSPORT_INFO_0

上传IdFTP1.Host := 主机地址;IdFTP1.Username := 用户名;IdFTP1.Password := 密码;if IdFTP1.Connected then IdFTP1.Disconnect;IdFTP1.Connect();FindFirst(本地址地址,faAnyFile,FindFile);Dir_List:=T