... var f: TextFile; begin AssignFile(f, 'test.txt'); Rewrite(f); write(f, #$EF+#$BB+#$BF); // UTF-8 BOM.关键就是写入这个UTF-8的BOM, BOM 是 Bype Order Mark 的缩写. writeln(f, UTF8Encode('中文')); CloseFile(f); ... 在delphi中TextFile对象创建文件时默认是 ANSI 编码. 这样中文或者其他非英文字符显示

Delphi写的DLL,OCX中如果使用了TThread.Synchronze(Proc),可能导致线程死锁,原因是无法唤醒EXE中主线程, Synchronze并不会进入EXE主线程消息队列. 下面的程序自动解决此问题,只需要加入DLL,OCX工程文件中,在DLL,OCX中便可以使用TThread.Synchronze(Proc)了,无需再写一行代码. //解决Delphi编译的DLL,OCX文件中的线程调用 TThread.Synchronize后挂起无法再激活问题 //调用了TThread

http://blog.csdn.net/zyyjc/article/details/6530728 别现在有些POS机是双屏幕的(比如卡西瓦POS机),一个屏幕可以当顾客显示屏用,当闲时也可以显示一些广告.其实用delphi写双屏幕的程序是比较简单的,Screen.MonitorCount就是当前系统屏幕的数量,TForm也有与屏幕相关的属性,比如DefaluMonitor,不过想设一个窗体显示在哪个屏幕上好象没有属性(可能我没找到),不过研究VCL代码发现如何把一个窗体显示在某个屏幕上(可以

C#的调用Delphi的DLL没有问题,DLL回调时遇到了麻烦,网上找了个方法,解决了这个问题 Delphi部分,列举了三种回调函数定义 library test; uses SysUtils; {$R *.res} type TCallback = procedure (P: PChar); stdcall; TMethodCallback = procedure (P: PChar) of object; stdcall; procedure DllTest1(Callback: TCall

//创建一个文本文件 procedure TFrmAutomatismBalance.FlatButton3Click(Sender: TObject); var TF:TextFile;  PathStr:string; begin PathStr:=ExtractFilePath(Application.ExeName)+FormatDateTime('yyyy-mm-dd',Now())+'.txt' ;  AssignFile(Tf,PathStr);  ReWrite(Tf);  Cl

//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

不久前写了个抓取网页内容的小程序,跑了一晚上,本以为早上起来都抓完了,谁知道程序死掉了,分析半天,才发现用tmemo来记录日志的信息太多了,越积越多,本来memo的容量就不大.对于无法控制信息量的日志来说,有可能造成崩溃.记得见过盒子上一个关于手机发短信的小程序,上面有个日志的写法不错.方法:1.每写一行日志,先判断memo的行数是否超过自己设定的行数,我一般设为1000行,这样保存的日志大小一般在64K左右2.判断保存日志的目录是否存在,不存在就建 一个3.用日期加时间取一个日志名,象这种20

unit uProgLog; interface uses Windows, SysUtils, SyncObjs; const C_LOG_LEVEL_TRACE = $; C_LOG_LEVEL_WARNING = $; C_LOG_LEVEL_ERROR = $; type EnumSeverity = (TraceLevel, WarningLevel, ErrorLevel, LogLevel); function SeverityDesc(severity: EnumSeverity

参加工作了就很少有时间去玩delphi了,这个适合初学者看看,大神勿喷 工具 delhpi7.0 access数据库 原则win下有安装office就可用 当初不太熟悉sqlite所有没用这做数据库. {***************************************************************************** * 版本信息: * 浅诺桌面管理工具v1.0 * 文件名称: * UseShortcutKey.pas * 内容摘要: * 桌面快捷方式管理

The Dynamic Link Library (DLL) is stored separately from the target application and shared among different applications, compared to Static Library. The DLL is the file extension on Windows while on Linux, it is *.so (Shared Object). The *.so/*.dll c

procedure TForm1.btn1Click(Sender: TObject); var sFile,sLine: TStrings; r,c:Integer; begin sFile := TStringList.Create; sFile.LoadFromFile('d:\1.txt'); sLine := TStringList.Create; do begin sLine.CommaText := sFile[r]; do begin mmo1.Lines.Add(sLine[c

用了AlphaControl皮肤组件,原理很简单,就是CSDN的一个漏洞.我主要是使用WinInet来获取相关信息,然后从里面分析出真实的下载URL,同时我也是用了AES加密.function GetWebPage(const Url: string):string;var  Session,  Httpfile:HINTERNET;  szSizeBuffer:Pointer;  dwLengthSizeBuffer:DWord;  dwReserved:DWord;  dwFileSize:

program Project1; { Types and Structures Definition }type  WNDCLASSEX = packed record    cbSize: LongWord;    style: LongWord;    lpfnWndProc: Pointer;    cbClsExtra: Integer;    cbWndExtra: Integer;    hInstance: LongWord;    hIcon: LongWord;    hCu

//文件 /* =============================================================== 题目:输入10个篮球运动员的身高数据(cm)保存至D盘文件high.txt: 0表示输入完成. x= 180 182 179 185 191 178 184 185 183 192 =============================================================== */ #include<stdio.h> v

看到论坛好多人问win7下写注册表的问题,我结合自己的理解写了一点东西,首先声明一下,本人初学Delphi,水平有限,大家见笑了,有什么不对之处请老鸟多指点. [背景]win7/Vista提供的UAC机制,是win7/Vista的新增功能之一.它的主要目的是防止对于操作系统本身的恶意修改.如果想对于win7/Vista的系统设置进行改动,必须通过UAC的验证才能够进行.通过这样的手段,大大提供了系统的安全性.关于UAC的利弊,网络上的说法褒贬不一,在这里就不具体讨论了. [应用]Delphi写的

参考自:http://www.cnblogs.com/railgunman/articles/1800318.html Delphi 中默认有input 和 output 两个文件变量,使用可以不用定义,直接使用.但是,input 只读.output 只写.使用的时候要注意以免引起异常. 文件是由文件名标识的一组数据的集合,文件通常存在磁盘上.源程序.学生档案记录.图形.音乐等均可以作为文件存储在磁盘上.操作系统是以文件为单位对数据进行管理的,也就是说,如果想读取外存介质上的数据,必须先按文件名

1.我做了三年的.NET,也是三个月前因为项目需要转的delphi整个过渡差不多要一周到两周.正常情况两周后就能熟悉delphi.delphi可以调整开发环境的,你把他的属性和解决方案窗口调成和你用VS一样的用起来就习惯多了.语法的话pascal和C#都是能拉控件的,做起来都是一个模式,非常类似.即便是自己写组件,个人感觉delphi写起来更简单些.如果是做数据库软件的话,delphi用起来就相当方便,和数据库连接代码几乎不用写的.如果是用delphi做工控或网络编程也差不多.delphi其实也

参考自:http://www.cnblogs.com/railgunman/articles/1800318.html Delphi 中默认有input 和 output 两个文件变量,使用可以不用定义,直接使用.但是,input 只读.output 只写.使用的时候要注意以免引起异常. 文件是由文件名标识的一组数据的集合,文件通常存在磁盘上.源程序.学生档案记录.图形.音乐等均可以作为文件存储在磁盘上.操作系统是以文件为单位对数据进行管理的,也就是说,如果想读取外存介质上的数据,必须先按文件名

在网上查了好多资料,大部分都是通过将文件读成二进制流,取前两个字节判断,比如.jpg的是255216.代码如下: ); i++; }return isTextFile; }catch (Exception ex) {throw ex; }finally {if (fs != null) { fs.Close(); } } } 后来经过测试,满足了我的需求. 附测试代码: bool isTextFile = Utility.CheckIsTextFile(this.openFile.FileNam