delphi word读写 delphi ini文件读写

发布日期：2020-08-29

delphi中把查询出来的数据导入word中？

我将我的商用《旅行社管理系统》的 发团通知 部分奉献给您，望对您有所帮助。

procedure TFrmMain.N327Click(Sender: TObject); var FWord :Variant; FDoc :Variant; strSQL :string; begin //首先创造对象，如果出现异常就做出提示 try FWord := CreateOleObject("Word.Application"); //WOrd程序的执行是否可见，值为false时，程序在后台运行。

FWord.Visible := True; except messagebox(0，"创建word对象失败！"，"警告"，MB_OK+MB_ICONINFORMATION); exit; end; strSQL :="select * From ＂B_T_Company_Infor＂"; with dm.ClientDataSet_Temp do begin if Active then Active:=False; CommandText:=strSQL; Open; end； //现在打开的Word中，创建一个新的页面，然后在其中键入需要的内容 try FDOC :=FWord.Documents.Add； {对于Word的新页面} FWord.Selection.Font.Name ：="宋体"； FWord.Selection.Font.Size :=20; FWord.Selection.Font.Bold :=2; FWord.Selection.paragraphs.Alignment := wdAlignParagraphCenter; FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[0].AsString); FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph; FWord.Selection.paragraphs.Alignment := wdAlignParagraphLeft; FWord.Selection.Font.Size :=12; FWord.Selection.Font.Bold :=0; FWord.Selection.TypeText（" 现将我社组团部的"）； FWord.Selection.TypeText(" "); FWord.Selection.TypeText（"团计划发出，各地请按下列行程做接待，并及早落实"+ "团队计划和选派优秀导游员。

各地代订住宿、火车票、机票务必安排好接待，日程"+ "如有变更，及时与下站接待社或本社联系，各地接团时请举【"+ dm.ClientDataSet_Temp.Fields[0].AsString+"】接站牌。

"）； FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText（"请速回传真确认，谢谢合作！"）； FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText（"人数："）； FWord.Selection.TypeText（"人数："）； FWord.Selection.TypeText（"国籍："）； FWord.Selection.TypeText（"国籍："）； FWord.Selection.TypeText（"等级："）； FWord.Selection.TypeText（"等级："）； FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText（"这里是团队安排"）； FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText("TO: "); FWord.Selection.TypeText("12345678901234567890"); FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText("TEL: "); FWord.Selection.TypeText("12345678901234567890"); FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText("FAX: "); FWord.Selection.TypeText("12345678901234567890"); FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText("______________________________________________"); FWord.Selection.Typeparagraph；//换行 FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText("FROM: "); FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[0].AsString); FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText("TEL: "); FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[3].AsString); FWord.Selection.Typeparagraph；//换行 FWord.Selection.TypeText("FAX: "); FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[4].AsString); FWord.Selection.Typeparagraph；//换行 Except on e: Exception do Messagebox(0,Pchar(e.Message)，"警告"，MB_OK+MB_ICONINFORMATION); end； //保存文档 FWord.Caption ：= "组团计划保存在： "+ExtractFilePath(application.ExeName)+"Reports\GroupPlan.doc"; FDOC.SaveAS(ExtractFilePath(application.ExeName)+"Reports\GroupPlan.doc"); if messagebox(0，"组团计划已经保存成功！"+chr(13)+chr(13)+ "单击【确定】退出Word，返回到程序中！"，"您确信要退出Word吗？"， MB_YESNO+MB_ICONINFORMATION+MB_DEFBUTTON2)=IDYES then begin FWord.Quit; FWord := Unassigned; end; end; ----------------------------- Delphi与Word之间的融合技术（1） 一、VBA代码含义 Microsoft Word是一个集成化环境，是美国微软公司的字处理系统，但是它决不仅仅是一个字处理系统，它集成了Microsoft Visual Basic，可以通过编程来实现对Word功能的扩展。

Microsoft Visual Basic在word中的代码即Word的宏，通过编写Word宏，可实现一些文档处理的自动化，如实现文档的自动备份、存盘等，可扩展Word文档的功能，因此，能够充分利用Word的特性，甚至使Word成为自己软件的一部分。

Word的宏既有有利的一部分，因为它能够帮助我们实现文档的自动化，但是Word的宏也不是纯粹的有利，有时它可能危害我们的文档、计算机系统甚 至网络，从最开始的Taiwan NO1宏病毒到现在的...

如何使用XlsReadWriteII在Delphi中读取Excel文件

20 Oct 2009 19:02:03 GMTTue, 20 Oct 2009 19:02:03 GMT60 07 May 2009 02:05:00 GMT 家肯定都是深恶痛绝的，往往我们只是去做修补，却忘了更重要的事情，那就是追溯根源，避免类似的不兼容再次出现。

在下不才，归纳几点html编码要素，望能指点各位： 1.文字本身的大小不兼容。

同样是font-size:14px的宋体文 字，在不同浏览器下占的空间是不一样的，ie下实际占高16px，下留白3px,ff下实际占高17px，上留白1px，下留白3px,opera下就更 不一样了。

解决方案：给文字设定 line-height 。

确保所有文字都有默认的 line-height 值。

这点很重要，在高度上我们不能容忍1px 的差异。

2.ff下容器高度限定，即容器定义了height之后，容器边框的外形就确定了，不会被内容撑大，而ie下是会被内容撑大，高度限定失效。

所以不要轻易给容器定义height。

通过delphi tfilestream 读取的文件流,如何将某一个双字节流（比如中...

会用excel的宏么？excel编程有个利器，录下宏，然后通过宏猜。

在有用c#帮忙，因为c#引用一个dll好像不是excel的属性什么的都能点出来。

还有一个是word的帮助文档，是安装目录下一个文件，不过有的安装没有，具体什么名字记不清了，不过上面的东西有点粗糙，不够仔细。

有支持从内存流读取并显示PDF的Delphi控件吗？

.jpg静态图象专家组制订的静态图象压缩标准，具有很高的压缩比，使用非常广泛，可使用PhotoShop等图象处理软件创建.gif在各种平台的各种图形处理软件上均能够处理的，经过压缩的一种图形文件格式.rmWindows下的RealPlayer所支持的视频压缩文件，网上非常流行的流式视频文件，很多实时视频新闻等都是采用这种格式的，不过，最新的Windows Media Video V8已经对其发起了强大的攻势.regWindows 95的系统及应用程序注册文件，这种文件虽然以纯文本文件保存，但一样存在版本问题，不同的操作系统使用的REG文件版本是不同的.bmpBitmap位图文件，这是微软公司开发Paint的自身格式，可以被多种Windows和Windows NT平台及许多应用程序支持，支持32位颜色，用于为Windows界面创建图标的资源文件格式。

.dllWindows动态连接库，几乎无处不在，但有时由于不同版本DLL冲突会造成败各种各样的问踢.exe可执行文件，虽然后缀名相同，但具有不同的格式和版本.bat批处理文件，在MS-DOS中，.bat文件是可执行文件，有一系列命令构成，其中可以包含对其他程序的调用.comDOS可执行命令文件，一般小于64KB.rarWinRAR提供的压缩文件格式，压缩率超过ZIP，同时提供的功能也更为丰富.mp3采用MPEG-1 Layout 3标准压缩的音频文件，是网上主要的压缩音频文件，这种文件由于具有极高的压缩率和失真低的特点，是目前音乐盗版的主要文件格式，但目前受到VQF,WMA等新标准的挑战

delphi 串口通信

串口通信具体还要结合设备是否自带dll动态库的问题，某些设备内部代读取是加密的，需要通过设备厂商提供的dll动态库里提供的函数进行读取，这里只能说一下串口的操作步骤，主要还是三步：一，是初始化端口注：设备提供的动态库一版都带有自己的初始化函数，delphi中对于端口初始化代码如下，varFileHand:integer;port:string；//端口号，可以用字符赋值，例如直接赋值："com1"，如果定义为整型则对应1beginFileHand:=FileOpen(port,fmOpenWrite or fmShareDenyNone);FileClose(FileHand);if FileHandbeginshowmessage（"设备尚未就绪，请您检查设备是否连接或者电源是否打开！"）；exit;end;AssignFile(PosPrintFile,Trim(port));ReWrite(PosPrintFile);end;二，是对端口操作，具体设备得根据其动态库提供的函数来操作；三，关闭端口；

pdf转word乱码怎么办？用什么转不会乱码

我是用c#做的。

读取过程： Bitmap b=System.Drawing.Bitmap.FromFile(filepath); MemoryStream ms = new MemoryStream (); b.Save (ms, System.Drawing.Imaging.ImageFormat.Gif); byte [] myData = new Byte [ms.Length ]; ms.Position = 0; ms.Read (myData,0,Convert.ToInt32 (ms.Length ));