关于 Delphi 中流的使用:分割与合并文件的函数
unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class
(TForm)
Button1: TButton;
Button2: TButton;
procedure
Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObject);
end
;
var
Form1: TForm1;
implementation
{$R *.dfm}
//分割文件的函数
{参数 1 是要分割的文件名; 参数 2 是要风格文件的大小, 单位是 KB}
{分割后的文件名扩展名用序号替换}
function
SplitFile(const
FileName: string
; Size: Cardinal): Boolean;
var
fStream: TFileStream; {原始文件}
toStream: TMemoryStream; {分文件}
p,i: Integer; {p 记录当前指针位置; i 记录这是第几个分的文件}
begin
Result := False;
Size := Size * 1024
; {把大小的单位转换为字节}
fStream := TFileStream.Create(FileName, fmOpenRead);
p := 0
;
i := 0
;
toStream := TMemoryStream.Create;
while
p < fStream.Size do
begin
toStream.Clear; {清空上次数据}
fStream.Position := p; {放好指针位置}
if
fStream.Size-p < Size then
Size := fStream.Size-p; {最后一个时, 有多少算多少}
toStream.Copyfrom(fStream, Size); {复制}
toStream.SaveToFile(FileName + '.'
+ IntToStr(i)); {保存}
Inc(i);
p := p + Size;
end
;
fStream.Free;
toStream.Free;
Result := True;
end
;
//合并文件, 参数是其中一个分文件名
function
MergeFile(const
FileName: string
): Boolean;
var
ms: TMemoryStream; {读取分文件}
fs: TFileStream; {合并后的文件}
path: string
;
i: Integer;
begin
path := ChangeFileExt(FileName,''
); {去掉序号扩展名}
ShowMessage(path);
i := 0
;
ms := TMemoryStream.Create;
fs := TFileStream.Create(path, fmCreate);
while
FileExists(path + '.'
+ IntToStr(i)) do
begin
ms.LoadfromFile(path + '.'
+ IntToStr(i));
fs.Copyfrom(ms, 0
); {TFileStream 不需要 SetSize; 但如果用 TMemoryStream 就需要}
Inc(i);
end
;
ms.Free;
fs.Free;
end
;
相关文档：
注意：本文仅供技术交流，请勿用于非法用途。
要修改指定程序的指定地址数据，我们需要用到两个api函数，分别是ReadProcessMemory和WriteProcessMemory。
下载是函数的定义：
ReadProcessMemory
Reads data from an area of memory in a specified process. The entire area to be read must be accessible or the op ......
朋友，先要导入 XDICTGRB_TLB ，然后用下面的source，注意TForm1 = class(TForm,IXDictGrabSink) //!!!
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, XDICTGRB_TLB;
type
TForm1 = class(TForm,IXDictGrabSink) //!!!
GrabPro ......
添加引用：uses JPEG;
//=====================图片处理函数，将覆盖原图片文件===========================
//=====filename:图片完整路径 PressQuality:压缩质量 Width:宽 Height:高
function CompressMainFun(filename: String; PressQuality,Width,Height:integer): Boolean;
var
bmp: TBitmap ......
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口：
ExcelApp.Visible := True;
2) 更改 Excel 标题栏：
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelApp.WorkBooks.Add ......
Delphi第三方控件安装卸载指南
基本安装
1、对于单个控件，Componet-->install component..-->PAS或DCU文件-->install;
2、对于带*.dpk文件的控件包，File-->Open(下拉列表框中选*.dpk)-->install即可；
3、对于带*.bpl文件的控件包，Install Packages-->Add-->bpl文件名即可；
4、如� ......
