复制文件的Delphi代码示例,用自定义的窗体来实现传统的复制文件功能,主要是展示在Delphi下如何定义复制文件的函数,打基础的代码。复制的核心代码:   if edtSFile.Text <> '' then    begin    AssignFile(FormF,edtSFile.Text);    Reset(FormF,1);    if edtTFile.Text <> '' then    begin    AssignFile(ToF,edtTFile.Text);    ReWrite(ToF,1);    lbMesg.Caption := lbMesg.Caption IntToStr(FileSize(FormF)) 'bytes已经拷贝完成!';    repeat    BlockRead(FormF,Buf,SizeOf(BUf),NumRead);    BlockWrite(ToF,Buf,NumRead,NumWritten);    until (NumRead = 0) or (NumWritten <> NumRead);    CloseFile(FormF);    CloseFile(ToF);    ShowMessage('文件复制完成!');    end else ShowMessage('源文件有问题!');    end else ShowMessage('目标文件有问题!');   end;
2022-04-25 15:27:20 7KB Delphi源码-文件操作
1
Delphi采用OpenGL技术实现3D隧道实例源码,OpenGL的应用展示,Delphi下应用OpenGL,可开发出许多的3D模型应用,扩展3D图形的应用,将彰显Delphi强劲的图形能力,也是你个人Delphi水平的见证。本实例运用OpenGL技术生成动态的穿越隧道特效,希望朋友们好好参考,虽简单但容易懂。
2022-04-23 01:39:47 30KB Delphi源码-图形处理
1
Delphi远程屏幕截图的实现代码,支持TCP与SPXII协议,属WinAPI编程的范畴,不依赖于任何三方控件。程序仅初步完成,还有很多莫名其妙的bug(如类型转化语句不能执行,FreeMem报错而FreeMemory正常等,详见注释),仅供参考,谢谢。   SPX:21位地址码 任意分割符(1位) 地址坐标(X:Y:Width:Height)   TCP(无需客户端):在IE中输入http://IP地址(127.0.0.1表示本机):5150/X-Y-Width-Height-
2022-04-20 00:01:11 60KB Delphi源码-网络相关
1
delphi开发的一个高速屏幕传输演示代(功能很强大)
2022-04-19 23:32:09 621KB delphi 源码 网络编程
1
RSA非对称加密解密Delphi源码,亲测XE10.2.3可用!RSA控件,内含密钥对生成,无须DLL!
2022-04-19 16:42:35 166KB RSA
1
支持12种不同形式验证码的识别,内附XML文档单元,核心基于VCRES.dll,包括识别图形验证码,用于网页验证码的识别、生成。
2022-04-18 10:16:40 507KB Delphi源码-图形处理
1
这里面包括了Server\Client 使用dephi编写。 可编译。支持TCP/IP 是一个用来给客户远程协助的工具。
2022-04-17 21:56:32 1.75MB 远程控制工具(delphi 源码)
1
Delphi Foreach循环的用法实例,演示如何使用For Each生成循环,用赋值于文本框控件中,程序试图使用多种方式生成Foreach,并最终清除它。本示例面向Delphi基础学者,了解Delphi基础知识的一些应用。
2022-04-16 17:14:48 9KB Delphi源码-其它类别
1
DELPHI C/S结构网络在线考试程序,先运行服务端后再启动客户端,若对Delphi比较熟悉,你可以此源码为基础,完整出一个完整的在线考试系统。
2022-04-11 22:05:36 1.32MB Delphi源码-网络相关
1
Delphi编写的考试管理系统,数据库基于Access,不是考试系统,而是针对考试而开发的相关管理程序,比如报表、统计未考学生、考试信息导入导出、准考证发放统计、数据报表生成及打印等,可帮助教师快速推进考试进程,提高工作效率。
2022-04-11 22:04:54 156KB Delphi源码-数据库实例
1