判断文件夹是否存在 关键点 GetFileAttributes The GetFileAttributes function retrieves attributes for a specified file or directory. This function retrieves a set of FAT-style attribute information. The GetFileAttributesEx function can obtain other sets of file or…

最近做个发邮件的功能,需要将日志文件通过邮件发送回来用于分析,但是日志文件可能会超级大,测算下来一天可能会有800M的大小.所以压缩是不可避免了,delphi中的默认压缩算法整了半天不太好使,就看了看7z,在windows下有dll那么就用它吧. 下载7z.dll,还有一个delphi的开发sdk文件,sevenzip.pas.有这两个就可以了. 压缩 使用超级简单 procedure TForm1.Button1Click(Sender: TObject); var Arch: I7zOutA…

先介绍ExtractFilePath和ParamStr ParamStr 该函数的原型是:function paramstr(i: Integer): String; 对于任何的application,paramstr(0)都默认代表的是应用程序的绝对路径.假如你这个编译号的exe 文件在 d:\delphi下,名字叫做 project1.exe.那么 在该应用程序中paramstr(0)返回:d:\delphi\project1.exe.这个值是变的,exe程序在哪,这个值就变为哪儿. 那么有…

来自: daocaoren0824, 时间: -- ::, ID: 再给你一份 程序员实用函数 {▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎} {▎ ▎} {▎ 大家都是程序员 没有必要重复一些无聊的事情 我的这些函数能给大家带来方便 ▎} {▎ 如果觉得还一般 请关注 WWW.cdsunco.com/www.ccemove.com QQ:35013354 ▎} {▎ 系统公用函数及过程 ▎} {▎ ▎} {▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎…

解决的问题,加载数据库中的UI public class Global : System.Web.HttpApplication { protected void Application_Start(object sender, EventArgs e) { DbPathProvider provider = new DbPathProvider(); HostingEnvironment.RegisterVirtualPathProvider(provider); } } public cla…

今天调程序,要用到日志.XE7有Qlog,D7用什么 从网上找到了Logger,下载的原文是不支持D7的,不过也只是很少的地方不同,自己修改了下就可以用了 感谢原作者和红鱼的分享 unit Logger; // ======================================================================= // 鏃ュ織绫伙紙TLogger锛?ver.1.0 // 绾㈤奔鍎?http://blog.sina.com.cn/hblyuhong // 2…

在开发中,我们经常会使用IO操作,例如创建,删除文件等操作.在项目中这样的需求也较多,我们也会经常对这些操作进行编码,但是对文件的权限进行设置,这样的操作可能会手动操作,现在介绍一种采用代码动态对文件设置权限的操作. 在对文件进行权限设置在DOtNet中,会采用FileSystemAccessRule类进行文件的权限操作. 1.现在看一下FileSystemAccessRule的实现代码: public FileSystemAccessRule( IdentityReference identi…

在UE4.6版本加入的模块.可以让开发者使用SQLite数据库.SQlite是个轻量型的本地数据库. 我下面就来介绍一下如何使用这个模块. 第一步:下载SQLite源代码以及SQLite GUI管理工具SQLite Expert. 进入http://www.sqlite.org/,点击 DownLoad,选择源代码下载. SQLite Expert可以去http://www.sqliteexpert.com/下载,个人版是完全免费,这里我推荐用破解的专业版,同时本人不太喜欢新版本. 第二步:编译…

一直有计划将 Delphi 中的譬如 TIniFile 等相关功能移植到 Golang,这些设施在 Delphi 中(相对而言)比较常用,使用起来也非常方便. 虽然 Github 上早已有这些三方库,但我还是想仿照 Delphi 的做法来实现一套,并额外提供直接干脆的调用接口等. 代码已托管至 Github. // Copyright 2017 ecofast(无尽愿). All rights reserved. // Use of this source code is governed by…

本例演示了如何使用后台传输服务来进行后台文件下载,也就是说及时App已经停止运行,同样可以通过后台代理进行文件的下载操作. 对于后台文件传输一下知识点必须注意: 1. 通过使用 BackgroundTransferRequest 对象的 Method 属性来设置传输方法, Get, Post. 2. 后台传输的所有本地路径都必须位于您应用程序的独立存储中,在名为“/shared/transfers”的根目录中. 3.由于多个应用程序可能已排列后台传输,因此在先前添加的传输完成之后.传输开始之前可…

WP8出来好一段时间了,新出的AudioVideoCaptureDevice类自定义功能比WP7的CaptureSource强大的多,但网上比较全面的中文实例还比较少,分享一个最近做的小实例给大家参考. 一.实现的功能 1.实现视频和音频的采集并保存 2.允许切换前后摄像头 3.录像过程中可以随时截图 4.录像后视频播放 二.需要的权限 1.需要访问前后摄像头的权限(ID_CAP_ISV_CAMERA) 2.需要访问麦克风的权限(ID_CAP_MICROPHONE) 三 .UI部分 1.使用一个…

偶然从 SysUtils 里发现了几个路径相关的函数, 以前没见过, 可能是 Delphi XE3 新增的: GetLocaleDirectory(); GetLocaleFile(); LocaleDirectoryExists(); LocaleFileExists(); 应用测试: uses IOUtils; procedure TForm1.FormCreate(Sender: TObject); var   p,f: string;   b: Boolean; begin   {设置与…

// ================================================================ // 遍历某个文件夹及子文件夹下某种文件, // 使用说明 // _GetFileList(ListBox1.Items, 'c:\', '.doc'); // _GetFileList(MyTStringList, 'c:\', '.exe');// 这不是万一博客的原版咧,是1L的fatkun修复的一版,且不管看不看得懂,收藏个先// ===========…

Public Shared Sub WriteLog(ByVal FormID As String, ByVal ex1 As Exception) 'log信息 Dim loginfo As String = "" '获取现在的时间 Dim strDate As String strDate = System.DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") '获取画面ID Dim strFormId As String s…

http://www.okbase.net/doc/details/931  还没有亲自验证过,仅收藏 当你完成一个应用软件的开发后,那么你还需要为该软件做一个规范化的安装程序,这是程序设计的最后一步,同时也是很重要的一步,因为运行安装程序往往是用户做的第一步操作.很多报刊文章介绍了许多如何利用installshield等工具软件来制作安装程序的方法,这种办法可以很快建立起较常见的安装模式,但用这种办法也有一些不足,如做成的安装程序一般较大:风格较单一:不能灵活的控制启动方式和快捷方式.其实安装…

{*******************************************************} { } { Delphi公用函数单元 } { } { 版权所有 (C) 2008 勇者工作室 } { } {*******************************************************} unit UMyPubFuncFroc; interface uses ComCtrls, Forms, Windows, Classes, SysUtils,…

用到临界区 保护写日志的函数: 递归函数 删除目录下的所有文件: 循环创建或判断FTP的目录: 可改进的地方:循环压缩深层次目录的所以文件: 实现断点续传,或断点下载: {******************************************************************************* Copyright (C), 2014-2020, aicaipiao File name: UFtpContentThd.pas Author: lipingchen…

//1.打开目录和打开txt文件 procedure TMainForm.bbtnOpenLoClick(Sender: TObject); var sLogName: string; begin sLogName := Pub_EXEPath + '\日志\' + FormatDateTime('yyyy-mm-dd',date())+'.txt'; if not FileExists(sLogName) then begin MessageBox(0, '今日无错误日志!', '提示', M…

//2.2 代码块--写日志 //调用例句如:LogMsg('FTP上传线程终止',False,true); procedure LogMsg(AMsg: string; const blnIsErrorMsg: boolean = False; const BoolSaveToFile: Boolean = True); var strMsg: string; begin try //FLogMemoCallFlag.Enter; strMsg := AMsg; if blnIsErrorMs…

mormot THttpApiServer使用例子 THttpApiServer封装了WINDOWS的HTTPS.SYS. unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs , SynCommons, SynZip, SynCr…

一.流式文件操作 这种方式的文件操作有一个重要的结构FILE,FILE在stdio.h中定义如下: typedef struct { int level; /* fill/empty level of buffer */ unsigned flags; /* File status flags */ char fd; /* File descriptor */ unsigned char hold; /* Ungetc char if no buffer */ int bsize; /* Buf…

安装win8 64位,vs2013(包含wp8 sdk),百度各种得到学生开发者账户之后,终于可以试一下将自己的app部署到手机上的感觉了. 首先来个简单练练手的照相机功能 照相 即从主界面进入到照相机界面,进行拍照,并对照片进行保存 相册 对已拍照片管理,查看,删除 界面设计 MainPage.xaml <phone:PhoneApplicationPage x:Class="OpenCamera.MainPage" xmlns="http://schemas.mic…

C/C++ 文件操作大概有以下几种 1.C的文件操作: 2.C++的文件操作: 3.WINAPI的文件操作: 4.BCB库的文件操作: 5.特殊文件的操作. 当然了,水题时最常用的当然还是: freopen("stdin.txt","r",stdin); freopen("stdout.txt","w",stdout); 然而常常会忘记删除这句话就提交上去,十有八九会错... 基于C的文件操作 对文件的操作大概分为两种方式,即…

Q: 怎么来改变ListBox的字体呢?就修改其中的一行. A: 先把ListBox1.Style 设成lbOwnerDrawFixed 然后在 OnDrawItem 事件下写下如下代码 procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var Offset: Integer; begin Offset := 2; with (…

------------------------------------------------------- ◇删掉程序自己的exe文件 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var F:TextFile; begin AssignFile(F,'delself.bat'); Rewrite(F);{F为TextFile类型} WriteLn(F,'del '+ExtractFileName…

1.取得可文件路径 Path := ExtractFilePath(Application.ExeName); //取得可执行文件路径 TXMLDocument.Create(ExtractFilePath(Application.ExeName)+ '001.xml') 2.DisableControls EnableControls ClientDataSet.DisableControls; ... for I := 0 to 10000 do begin ClientDataSet.Ap…

在编程的过程中,文件的操作是一个经常用到的问题,在C++Builder中,可以使用多种方法对文件操作,下面我就按以下几个部分对此作详细介绍,就是:1.基于C的文件操作:2.基于C++的文件操作:3.基于WINAPI的文件操作:4.基于BCB库的文件操作:5.特殊文件的操作.这次我首先写出第一篇,以后我会陆续写出其它部分在我主页中发表.壹.基于C的文件操作  在ANSI C中,对文件的操作分为两种方式,即流式文件操作和I/O文件操作,下面就分别介绍之.一.流式文件操作 这种方式的文件操作有一个重要…

ftp从服务器上获取通信设备吐出的mr数据,该方案估计在通信行业上一个很普遍的一种方案,很奇怪为什么不把这些数据直接存储到数据库中呢,比如hadoop,反而还需要第三方搞网优的软件开发人员从ftp上读取成千万的mr文件信息. 这种方案估计已经成公认的方案,可能原因: 1,这样的文件格式的不同意,数据库很难定义格式,规则: 2,数据库的制约行吧,数据库比起写文件来说还是差了很多吧.不管从速度上,还是灵活性来说,使用数据库在通信服务商来说该方案不可行性,简直是不接受. 很自然的事情,我们不是只读本地…

函数由一句或多句代码组成,可以实现某个特定的功能.使用函数可以使代码更加易读.易懂,加快编程速度及减少重复代码.过程与函数类似,过程与函数最重要的区别在于,过程没有返回值,而函数能有返回值.     本文整理自以下链接 http://blog.sina.com.cn/s/blog_40a8922201000py6.html http://blog.163.com/jiandande3218@126/blog/static/74728469201132715251648/ PASCAL函数过程表…

无论是在桌面级开发中,还是在手机端开发中,WebBrowser都是一个经常会用到的控件.Windows Phone中的WebBrowser虽然远远没有桌面版那么强大,但依然足够应付常规用途.本文就来介绍几则Windows Phone中的WebBrowser控件的小技巧. 1.显示HTML片段 WebBrowser的NavigateToString方法可以用来将一段HTML片段显示在WebBrowser中.利用这个方法可以把WebBrowser当作一个增强版的RichTextBox来使用,京东商城…