应用程序通过内嵌浏览器的方式，利用js的window.external可以达到控制窗体行为的效果，如控制窗体宽高大小，透明度，网页截屏，网页读写文件，网页控制桌面行为等，最近利用DELPHI就实现了这一点，一般软件可以是很小巧，2，3百K的样子，如果大家有谁需要的，我将无偿提供这方面的源代码，因为这方面的应用目前还不是很广（QQ Zone用的这样的技术），所以我就不在这里给出代码了。我扩展的win
转载
2023-07-21 14:33:30
59阅读
一、使用FileStream
例1、
Code
var
qFileStream: TFileStream;
buffer: string;
begin
qFileStream := TFileStream.Create('Test.txt', fmCreate); qFileStream.Seek(0,
转载
2023-12-05 19:58:43
221阅读
Provider=OraOLEDB.Oracle.1;Password=manager;Persist Security Info=True;User ID=swk;Data Source=(DESCRIPTION = (ADDRESS_LIST =(ADDRESS = (PROTOCOL = TCP)(HOST =localhost)(PORT = 1521)))(CONNECT_DATA =(
原创
2017-08-22 11:27:33
2237阅读
1响应OnKeyPress事件。
此事件在用户键入某键时触发。
procedure TForm1.FormKeyPress(Sender:Object;var key:Char);
var
outmsg:string;
begin
outmsg := format('Key ''%s'' pressed',[key]);
Applicatio
原创
2012-10-02 09:18:26
764阅读
DELPHI中EXCEL组件的使用方法:
一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口：
ExcelApp.Visible := True;
2) 更改 Excel 标题栏：
E
转载
精选
2013-01-01 22:27:49
1383阅读
先上个例子procedure
TForm1.Button1Click(Sender: TObject); //写文件var
wText: TextFile;begin
AssignFile(wText, 'ip.txt');
Rewrite(wText);//创建文件，或者使用ReSet打开文件
Writeln(wText, richedit1.text);
CloseFil
转载
精选
2014-03-05 19:24:47
1903阅读
输入 procedure TypeKeyString(s: string); var c: Char; i: integer; off: integer; vkw: Word; begin for i := 1 to Length(s) do begin c := s[i]; if (c < #12
转载
2019-08-13 13:55:00
405阅读
2评论
怎样在vc、delphi、vb等程序中使用mysql呢(mysql odbc驱动程序的使用)？我们经常会遇到这样问题，怎样在非web程序或asp程序中使用mysql数据库呢？对于这个问题有两个解决方案：1、使用mysql提供的api函数库，很多有名的mysql客户端工具就是这样实现的，大名鼎鼎的winmysql工具就是这样的。这在大部分的开发工具中都可以实现。比如vc,bcb,delphi,vb等
转载
2023-10-21 18:58:04
90阅读
delphi操作word一、Delphi程序启动Word采用CreateOleObjects的方法来启动Word，调用VBA代码，具体实现过程为：首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序，如果存在，则直接连接，如果没有Word程序，则使用CreateOleObject('Word.Application')启动Word
转载
2008-04-01 14:10:21
2925阅读
{-----------------------------------------
创建XML文档，以及节点
------------------------------------------}
procedure TForm1.CreateXMLClick(Sender: TObject);
var
pNode,cNode: IXMLNode;
转载
2011-05-10 13:29:44
1949阅读
var
stream:TMemoryStream;
arr:array of byte;
begin
stream := TMemorystream.create;
TBlobField(qry_for_show.FieldByName('word')).SaveToStream(blb_tmp);
stream.S
原创
2012-10-12 08:13:13
809阅读
Delphi操作XMLDelphi操作XMl，只要使用 NativeXml。我是用的版本是4.02。NativeXML的使用方法比较简单，但是功能很强大。XE2的话，要在simdesign.inc后面加上： // Delphi XE2 / 16 {$ifdef VER230} {$define D7UP} {$define D10UP} {$define D15UP} {$endif}一、使用 1) Copy the NativeXml fi...
转载
2014-02-26 13:54:00
89阅读
2评论
uses ComObj,word2000 procedure TForm1.ExportWord(); var FWord :Variant; FDoc :Variant; i,Row:Integer; nodeString:Tstringlist; nodeList:TList; Tables,T
转载
2016-03-07 11:09:00
661阅读
2评论
Delphi 总结操作Excel Delphi 总结操作Excel 定义变量 Excelid:variant; 1、创建OLE对象 try Excelid:=CreateOleObject( 'Excel.Application' ); except on Exception do raise ex
转载
2015-04-29 00:13:00
588阅读
2评论
在进行win32开发中对文件的读写是最常用的操作之一，这编文章西西小编和大家一起来学习一下在Delphi中如何读写文件的方法。 Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。 文本文件的读写： 文本文件 是以行为单位进行读、写的。由于每一行的长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。 文本文件只能单独为读或写而打开
转载
2023-10-27 23:22:44
177阅读
procedure TfrmDataModule.DataModuleCreate(Sender: TObject);var reg: TRegistry; lfIni: TiniFile; lsDBName, lsSQLServeIP, lsConnStr, lscpConnStr: string;begin lfIni := TiniFile.C
原创
2014-04-24 11:10:52
1014阅读
文件是同一种类型元素的有序集合，是内存与外设之间传输数据的渠道。
转载
2012-06-18 19:30:00
67阅读
2评论
1.选择设置对齐 RichEdit1.SelectAll;RichEdit1.Paragraph.Alignment:=taLeftJustify; // switch for other alignmentsRichEdit1.SelLength:=0;2.设置对齐和内容 redt1.Clear;
转载
2016-03-08 14:49:00
829阅读
2评论
第一：内存常见问题描述：1、access violation at address 00000000 常见的地址访问错误，譬如访问时对象没创建或者已被释放；亦或是地址越界，没有访问权限导致的访问不到。2、out of memory 一般win32程序在占用系统内存理论值为2G，实际上得看不同的管理程序和操作系统。我写过能用
学完这个你就成为excel高手了！一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口： ExcelApp.Visible := True; 2) 更改 Excel 标题栏： ExcelApp.Caption
