byc6352的专栏

Delphi 通过TNetHTTPClient访问http，最新解析快手无水印视频地址链接方法

Delphi:文本朗读器（基于百度TTS语音库)

delphi 数据转发器

delphi 使用ffmpeg.exe实现合并多张图片生成mp4视频

delphi 接收网络语音数据保存成wav文件

/** * */package media;import java.io.BufferedInputStream;import java.io.BufferedOutputStream;import java.io.File;import java.io.FileInputStream;import java.io.FileNotFoundException;import j...

{-------------------------------------------------------------------------------过程名: LoadStrFromFile 从文件中加载字符串参数: filename:string;var str:tstrings 1.文件名；2.加载到的字符串列表；返回值: result:boolean...

{-------------------------------------------------------------------------------过程名: DelBomFromUtf8File 判断并删除utf8文本文件中的前三个字节BOM参数: filename:string 1.文件名返回值: boolean 是否删除---------...

通过COM接口调用远程桌面，将远程桌面显示在应用程序窗体内：一、主程序：unit uMain;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl....

delphi 自带的TIdFtpServer和TIdFtpClient组件，在实际应用中发现，只能单线程传输较小的文件。有很大局限性。决定自己写一个文件传输系统。该传输系统经测试，可以同时传输100个文件以上，超过4G大小的文件，支持断点续传。同时支持对文件夹的压缩传输。基本满足业务的要求。现在把服务器端和客户端代码粘贴如下：一、客户端1、传输单元unit uTransF...

delphi 自带的TIdFtpServer和TIdFtpClient组件，在实际应用中发现，只能单线程传输较小的文件。有很大局限性。决定自己写一个文件传输系统。该传输系统经测试，可以同时传输100个文件以上，超过4G大小的文件，支持断点续传。同时支持对文件夹的压缩传输。基本满足业务的要求。现在把服务器端和客户端代码粘贴如下：一、服务器端unit uTransFileSrv;inte...

MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。1　1、函数原型及参数 function MessageBox(hWnd: HWND; Text, Caption: PChar; Type: Wo...

Delphi的MessageBox对话框使用

TStream 是一个抽象的基类, 不能直接生成对象. 在具体的应用中, 主要使用它的子孙类

判断并删除utf8文本文件中的前三个字节BOM

delphi TServersocket 数据转发

delphi 编写PCM播放器本类支持对wav,pcm文件的本地播放，以及pcm网络流播放。unit uSound;interface uses WINDOWS,DirectSound, MMSystem,classes,ActiveX;const WAV_SAMPLE_RATE=44100; //PCM sample rate WAV_CHANNEL_NUMBER=1; ...

delphi 下一种对socket异步模式接收数据分包与粘包的处理方式原理及其代码 前言：     网络上传输的数据总是一份一份的，每一份数据称为一个完整的数据包。数据包由包头和包体（数据）构成。包头描述数据的性质，大小等相关属性。当我们用socket的recv()异步模式接收数据时，由于网络的差异性，复杂性，第一次的recv()接收往往不是一...

delphi 详解Variant 的相关函数1.VarArrayCreate()和VarArrayOf()这两个常用就不说了2.VarArrayRedim()函数能修改variant数组的最高限。3.VarArrayDimCount()函数返回Variant数组的维数，4.VarArrayLowBound()和VarArrayHighBound()函数分别返回Variant数组的下边界和...

WebBrowser1.GoHome; //到浏览器默认主页  WebBrowser1.Refresh; //刷新  WebBrowser1.GoB...

function LastPos(const SubStr, Str: ansistring): Integer;var Idx: Integer; // an index of SubStr in Strbegin Result := 0; Idx := StrUtils.PosEx(SubStr, Str); if Idx = 0 then Exit; whi...

1.copy(str,pos,num) 从str字符串的pos处开始,截取num个字符的串返回.假设str为'abcdef',copy(str,3,2)='cd',copy(str,4,10)='def' 2.concat(str1,str2{,strn}) 把各自变量连接起来,返回连接后的字符串(长度不能超过255) 3.length(str) 返回str的字符个数,即其长度...

前言　　Delphi作为一个快速高效的开发平台，使用的人越来越多，但熟悉在Delphi代码中嵌入ASM代码的程序员我想不多，因为这方面的资料太少了，另一方面，它还需要有基本的汇编语言知识，关於汇编语言的教程，那实在太多了，如果你对汇编语言不熟的话，建议你下载相交的教程先读读。因此，本文假定您已经熟悉了汇编语言。　　（注，下文中的函数与过程统称为函数。）一．如何在Delphi程序中增加一段汇编...

什么是 GUID ?全球唯一标识符 (GUID) 是一个字母数字标识符，用于指示产品的唯一性安装。在许多流行软件应用程序（例如 Web 浏览器和媒体播放器）中，都使用 GUID。GUID 的格式为8-4-4-4-12 :“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx”其中每个 x 是 0-9 或 A-F 范围内的一个十六进制的数字。例如：6F9619FF-8B8...

1，WinExec()：　　WinExec主要运行EXE文件，不能运行其他类型的文件。不用引用特别单元。　　原型：UINT WinExec(exePath,ShowCmd)　　示例，我想要用记事本打开"C:\HDC.TXT"，以正常方式运行：WinExec(pChar('notepad c:\taoyoyo.txt'),SW_SHOWNORMAL);　　参...

private { Private declarations } //首先定义全局变量： mRct,mOldRct:tRect;//mRct保存新矩形框值；mOldRct:旧矩形框值； mIsPaint:boolean;//是否画图//-----------------------在Image1上作图------------------procedur...

//-------------------------------------------------------------------------------------------- function getDateFilename():string; var s:string; begin DateTimeToString(s,'yyyymmddhhnnsss...

procedure TfMain.muOtherSaveClick(Sender: TObject);begin save1.Filter:= 'BMP文件(*.bmp)|*.bmp'; //设置保存文件的扩展名 save1.DefaultExt := '.bmp'; //为保存文件名自动添加扩展名 save1.Title:='保存图片'; save...

unit Unit1;interface {接口部分开始}uses {引用单元列表,这是可选的,如果包含必须紧跟interface关键字} {接口部分声明常量/类型/变量/过程和函数,这些声明对引用单元就像自己的声明一样} {在接口部分声明的过程和函数,就像使用了forward关键字} {接口部分结束}implementation {实现部分}uses ...

在Delphi中FormatDateTime函数的用法function FormatDateTime(const Format: string; DateTime: TDateTime): string;Format参数是一个格式化字符串。DateTime是时间类型。返回值是一种格式化后的字符串，重点来看Format参数中的指令字符：c以短时间格式显示时间，即全部是数字的表示Forma...

//从内存中加载页面（比加载htm文件速度快）procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: tstrings);var ms: TMemoryStream;begin WebBrowser.Navigate('about:blank'); if Assigned(WebBrowser.Docume...

{IHTMLDocument2 方法:}write //写入writeln //写入并换行open //打开一个流，以收集 document.write 或 document.writeln 的输出close //关闭并输出用 document.open 方法打开的...

一、URLDownloadToFile()函数介绍使用微软提供的URLDownloadToFile function函数，函数原型：HRESULT URLDownloadToFile( LPUNKNOWN pCaller, LPCTSTR szURL, LPCTSTR ...

发现一个很酷的网页，想把它保存下来怎么办？ ？？网上找离线下载工具？ 找了半天，没有找到合适的。决定自己写一个， 我想可能以后会用到。第一种方法是使用wget方式下载。 比较简单，但是一些高级的自定义的无法实现。一、实现原理    通过Twebbrowser组件获取到IHTMLDocument2接口，IHTMLDocument2接口的以下四个属性，可获取到网页内部链接：.scrip...

2月14号是Delphi 1的24周年纪念日…Borland公司发布了Delphi 10.3 Rio Release 1（或10.3.1）来庆祝这个特别的日子。Borland公司于1995年2月14日推出了Delphi 1，2019年2月14号是这款产品的24周年庆。如果你想看到一些关于该产品及其发布的历史，可以参看博文“22 Years of D...

一、正常关机或重启：unit uFuncs;interfaceuses windows;procedure GetPrivilege;procedure RebootSystem();implementationprocedure RebootSystem();begin GetPrivilege; //initiateSystemShutDown();显示关机...

1．文件类型概念Delphi使用文件类型来读写存储在外部存储介质上的文件。一个文件变量能够与任意种类的外部设备建立通信，包括磁盘、打印机、键盘、绘图仪、调制解调器等。例如，程序运行时可以从磁盘文件中读取数据，向磁盘文件写入数据；程序运行结束后，数据仍保存在磁盘文件中，不会丢失。2．文件类型分类根据文件中数据元素的数据类型，可将文件类型分为文本文件、类型文件和无类型 文件。（1）文本文件。...

1，新建Project。　　2，在FORM中放入ADOConnection,ADOQuery,DataSource,Datagrid控件。　　3，双击ADOConnection控件，然后点击Build...按钮，在“提供者”页中选择“Microsoft Jet 4.0 OLE DB 　　Provider”，然后点击“下一步”按钮，在“连接”页中选择要连接的Access数据库的路径和数据库的文件...

procedure TfMain.muOpenFileClick(Sender: TObject);var OpenDlg: TOpenDialog; strFileName: string;begin OpenDlg := TOpenDialog.Create(nil); try OpenDlg.InitialDir:=picdir; OpenDlg.Fil...