- 博客(14)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 XAMPP 配置安装完成设置虚拟目录
安装XAMPP 软件，并测试apache mysql 能正常启动。修改httpd-vhosts.conf 下。找到httpd.conf中 ，修改。
2024-04-10 16:10:28
155
1
原创 lazarus 四舍六入修约简述
lazarus 四舍六入修约简述使用round()函数，默认进行银行家算法修约，但数据类型需要设为float型。procedure TForm1.Button1Click(Sender: TObject);var x:float; n:integer;begin x:=StrToFloat(Edit1.Text); n:=StrToInt(Edit2.Text); x:=round(x*Power(10,n)); x:=x/Power(10,n); Label1.Ca
2022-03-02 11:38:27
265
原创 修改文件mp4媒体创建日期
修改文件相关日期 下载exiftool.exe 软件，并在相应文件下编辑*.bat文件内容如下：exiftool.exe “-FileCreateDate=2022:02:10 10:55:45” “C:\Users\Administrator\Desktop\ExifTool\VID_20220210_120445.mp4”exiftool.exe “-CreateDate=2022:02:10 10:55:45” “C:\Users\Administrator\Desktop\Exi
2022-02-14 08:27:19
3772
原创 maskEdit简要用法
maskEdit简要用法Delphi 中的Additional页里有个Maskedit控件，它可以限制用户只能按照既定的输入格式输入，只需要在其EditMask属性进行一定的设置即可实现。 掩码格式可以分为三部分每个部分之间用分号“;”分开。 第一部分;第二部分;第三部分其中，第一部分是掩码本身，也就是数据输入格式。 在这一部分用一些特殊的格式符来表示应输入的字符类型及格式，常用的特殊格式符有：!去掉输入数据开头的空格符> 让输入数据的字母都变
2021-12-24 10:20:24
628
原创 firebird 连接 lazarus
1. firebird1.1. 命令行创建数据库数据库操作教程1、在开始-程序栏中执行Firebrid ISQL tool工具，出现SQL>2、命令行中输入：SQL>CREATE DATABASE ‘e:\sams.fdb’; 回车3、创建数据库成功，没有任何提示，打开E盘一看多了个SAMS.FDB文件，接着再输入 ：SQL>SHOW DATABASE;4、展示了一些关于这个数据库的详细信息，我们先建立数据库表，输入：SQL>CREATE TABLE T1 (F1
2021-12-24 10:19:02
483
原创 lazarus DLL简单应用
1. Dll1、如何在Lazarus创建带窗体的DLL有些lazarus在new中创建的library无法引用lcl库，会提示找不到forms单元等，导致无法创建可视化程序，如创建带窗体的DLL，可以按照以下步骤解决：1.创建一个Application2.打开project source3.将标识program修改成library4.去掉程序begin…end中的application.run以上步骤是摸索出来的，可以正常使用，但应该有更正规的方法，对比发现主要区别是在project op
2021-12-24 10:17:33
1029
原创 Lazarus Printer4Lazarus 组件打印
1. 打印1.1. 说明先在软件目录下编译组件，然后引入prints 单元，即可使用。1.2. 简单说明以BeginDoc 开始……EndDoc结束，然后开始打印procedure TForm1.Button2Click(Sender: TObject);const LEFTMARGIN = 100; //设置左边页边距 HEADLINE = 'I Printed My Very First Text On '; //要打印的文字var YPos, LineHeight,
2021-12-23 15:46:44
614
原创 Lazarus网络编程
1. 网络编程使用winsocket2 进行网络编程，非控件。1.1. 服务器端建立1.1.1. WSAStartup()的建立引入socket2 包uses winsock2;在程序启动时，建立；1.1.2. socket()创建socket对象，并确定是否创建成功1.1.3. bind()1.1.4. linsten()1.1.5. accept()获取客户端ip，serverAddr 是一个记录型(结构体)，读取其中的ip就行inet_ntoa(serverAdd
2021-12-23 15:41:30
2176
原创 拖拽文件到Form上显示
拖拽文件到Form上显示1、delphi调用shellApi函数进行//delphi 调用procedure TForm1.FormCreate(Sender: TObject);begin DragAcceptFiles(Form1.Handle,true);//响应文件拖拽，需要引入shellAPIend;//delphi 调用Procedure TForm1.WMDropFiles(var message:TMessage);//响应拖入的文件var P:Array [0..25
2021-12-15 14:25:29
173
原创 lazarus连接mysql
1. lazarus连接mysql出现问题一般由于所在操作系统为64位 win10所致解决办法：下载libmysql.dll 64位的，放置于C:\Windows\SysWOW64下即可下载(libmysql.dll)
2021-12-15 13:06:05
1540
1
原创 lazarus IDE技巧
1. lazarus软件技巧1.1. writeln()输出调试信息需要在代码文件头部加入 预编译 {$APPTYPE CONSOLE}1.2. 参数提示与渐进搜索1.3. 同步编辑1.4. 封装所选代码1.5. 代码提示在begin…end中 ，输入ca 按alt+Q，出现提示1.6. MessageDlg用法1.7. 提交数据到数据库(DBGrid)lazarus中的TSQLQuery相当于delphi中的TClientDataSet,必须 SQLQuery.
2021-12-14 08:52:11
1252
原创 Lazarus2.0.12 如何停靠面板
Lazarus2.0.12 如何停靠面板Lazarus2.0.6 可以通过加载包中的dock 3个包安装，编译后重启软件即可，但2.0.12需要以下步骤：
2021-12-13 16:50:56
591
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人