delphi最新源码(Delphi 源码都有哪些后缀)
本文目录
- Delphi 源码都有哪些后缀
- 传奇ige引擎全套源代码delphi源码怎么编译
- delphi的源代码叫什么文件
- 求DELPHI获取网页源码的一段代码
- Delphi网吧P2P三层更新BT源码
- 高分求一delphi + excel的源码
- 你好,我想请教下DELPHI获取网页源码的代码
- 怎样把delphi源文件变成程序刚开始玩delphi,下载了些源代码,不会弄!请高手指教,,要详细点的、、
Delphi 源码都有哪些后缀
dpr 为工程文件dfm 为窗体文件pas 为单元文件cfg 配置文件dof 为项目选项文件(一般没用)dcu compiled units文件 ,编译后的单元文件res 资源文件ddp 文件就是Delphi Diagram Portfolio简写,是用来保存Code Editor中的Diagram信息的. 一般一个项目要 dpr,dfm,pas文件即可,如果有cfg,res也要(后两个文件很少用到)
传奇ige引擎全套源代码delphi源码怎么编译
去下载个 delphi 2007 基本都是用这个版本编译的 再安装 Raize JSocket 插件 这两个是必要的 如果它还使用了其他的插件 那需要再安装 要不然 你打开还是会报错。然后 可以直接编译生成了。
delphi的源代码叫什么文件
delphi的源代码文件,通常以 .pas 为文件扩展名。
如果是 windows 程序,一般还会包含一个同名的窗体文件,以 .dfm 为扩展名。
如下图示例:
求DELPHI获取网页源码的一段代码
以下内容是一个单元,保存为MyIdHTTP.pas后,由主程序uses这个单元,调用GetStrOfURL即可。unit MyIdHTTP;interfaceuses IdHTTP, SysUtils;const CN_Count_Retry = 5; // 失败后重试次数 CN_SleepBetweenRetry = 3000; // 重试前延迟毫秒数function GetStrOfURL( const sURL : string; var sContent : string; nRetryCount : Integer = CN_Count_Retry; nSleepMS : Integer = CN_SleepBetweenRetry) : Boolean;implementationvar AIdHTTP : TIdHTTP;function GetStrOfURL( const sURL : string; var sContent : string; nRetryCount : Integer = CN_Count_Retry; nSleepMS : Integer = CN_SleepBetweenRetry) : Boolean;begin Result := False; while nRetryCount 》 0 do try sContent := AIdHTTP.Get( sURL ); Result := True; Break; except Dec( nRetryCount ); Sleep( nSleepMS ); end;end;initialization AIdHTTP := TIdHTTP.Create( nil );finalization FreeAndNil( AIdHTTP );end.
Delphi网吧P2P三层更新BT源码
BT核心源码也在里面,自己的核心。由delphi实现的bt下载器示例程序,带全部源码和BT协议包中文件说明:BTDemo.dpr, BTDemoF.pas, BTDemoF.dfm -- 一个简单的bt下载器,支持多个.torrent文件同时下载btutils.pas -- 核心bt组件DCP*.pas -- SHA算法源码(复制自DEC组件包)InetUtils.pas -- 提供Internet下载的函数库SimpleSocks.pas -- socket组件(TCP)SortLists.pas -- 排序的List组件ThreadTimer.pas -- 定时器与线程池DelayLists.pas -- 一个延时5秒再释放Object的队列FastShareMem.pas, MemPools.pas, ShareGlobals.inc -- 由ThreadTimer内部使用Bit Torrent Specification.htm -- BT协议文档
高分求一delphi + excel的源码
***隐藏网址***首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( ’Excel.Application’ );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelApp.Caption := ’应用程序调用 Microsoft Excel’;3) 添加新工作簿:ExcelApp.WorkBooks.Add;4) 打开已存在的工作簿:ExcelApp.WorkBooks.Open( ’C:\Excel\Demo.xls’ );5) 设置第2个工作表为活动工作表:ExcelApp.WorkSheets.Activate; 或 ExcelApp.WorksSheets.Activate;6) 给单元格赋值:ExcelApp.Cells.Value := ’第一行第四列’;7) 设置指定列的宽度(单位:字符个数),以第一列为例:ExcelApp.ActiveSheet.Columns.ColumnsWidth := 5;8) 设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:ExcelApp.ActiveSheet.Rows.RowHeight := 1/0.035; // 1厘米9) 在第8行之前插入分页符:ExcelApp.WorkSheets.PageBreak := 1;10) 在第8列之前删除分页符:ExcelApp.ActiveSheet.Columns.PageBreak := 0;11) 指定边框线宽度:ExcelApp.ActiveSheet.Range.Weight := 3;1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )12) 清除第一行第四列单元格公式:ExcelApp.ActiveSheet.Cells.ClearContents;13) 设置第一行字体属性:ExcelApp.ActiveSheet.Rows.Font.Name := ’隶书’;ExcelApp.ActiveSheet.Rows.Font.Color := clBlue;ExcelApp.ActiveSheet.Rows.Font.Bold := True;ExcelApp.ActiveSheet.Rows.Font.UnderLine := True;14) 进行页面设置:a.页眉: ExcelApp.ActiveSheet.PageSetup.CenterHeader := ’报表演示’;b.页脚: ExcelApp.ActiveSheet.PageSetup.CenterFooter := ’第&P页’;c.页眉到顶端边距2cm: ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;d.页脚到底端边距3cm: ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;e.顶边距2cm: ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035;f.底边距2cm: ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035;g.左边距2cm: ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035;h.右边距2cm: ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035;i.页面水平居中: ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;j.页面垂直居中: ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035;k.打印单元格网线: ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;15) 拷贝操作:a.拷贝整个工作表: ExcelApp.ActiveSheet.Used.Range.Copy;b.拷贝指定区域: ExcelApp.ActiveSheet.Range.Copy;c.从A1位置开始粘贴: ExcelApp.ActiveSheet.Range..PasteSpecial;d.从文件尾部开始粘贴: ExcelApp.ActiveSheet.Range.PasteSpecial;16) 插入一行或一列:a. ExcelApp.ActiveSheet.Rows.Insert;b. ExcelApp.ActiveSheet.Columns.Insert;17) 删除一行或一列:a. ExcelApp.ActiveSheet.Rows.Delete;b. ExcelApp.ActiveSheet.Columns.Delete;18) 打印预览工作表:ExcelApp.ActiveSheet.PrintPreview;19) 打印输出工作表:ExcelApp.ActiveSheet.PrintOut;20) 工作表保存:if not ExcelApp.ActiveWorkBook.Saved then ExcelApp.ActiveSheet.PrintPreview;21) 工作表另存为:ExcelApp.SaveAs( ’C:\Excel\Demo1.xls’ );22) 放弃存盘:ExcelApp.ActiveWorkBook.Saved := True;23) 关闭工作簿:ExcelApp.WorkBooks.Close;24) 退出 Excel:ExcelApp.Quit;(二) 使用Delphi 控件方法在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。 1) 打开Excel ExcelApplication1.Connect;2) 显示当前窗口:ExcelApplication1.Visible:=True;3) 更改 Excel 标题栏:ExcelApplication1.Caption := ’应用程序调用 Microsoft Excel’;4) 添加新工作簿:ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));5) 添加新工作表:var Temp_Worksheet: _WorkSheet;beginTemp_Worksheet:=ExcelWorkbook1.WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);End; 6) 打开已存在的工作簿:ExcelApplication1.Workbooks.Open (c:\a.xlsEmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)7) 设置第2个工作表为活动工作表:ExcelApplication1.WorkSheets.Activate; 或ExcelApplication1.WorksSheets.Activate;8) 给单元格赋值:ExcelApplication1.Cells.Value := ’第一行第四列’;9) 设置指定列的宽度(单位:字符个数),以第一列为例:ExcelApplication1.ActiveSheet.Columns.ColumnsWidth := 5;10) 设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:ExcelApplication1.ActiveSheet.Rows.RowHeight := 1/0.035; // 1厘米11) 在第8行之前插入分页符:ExcelApplication1.WorkSheets.PageBreak := 1;12) 在第8列之前删除分页符:ExcelApplication1.ActiveSheet.Columns.PageBreak := 0;13) 指定边框线宽度:ExcelApplication1.ActiveSheet.Range.Weight := 3;1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )14) 清除第一行第四列单元格公式:ExcelApplication1.ActiveSheet.Cells.ClearContents;15) 设置第一行字体属性:ExcelApplication1.ActiveSheet.Rows.Font.Name := ’隶书’;ExcelApplication1.ActiveSheet.Rows.Font.Color := clBlue;ExcelApplication1.ActiveSheet.Rows.Font.Bold := True;ExcelApplication1.ActiveSheet.Rows.Font.UnderLine := True;16) 进行页面设置: a.页眉: ExcelApplication1.ActiveSheet.PageSetup.CenterHeader := ’报表演示’;b.页脚: ExcelApplication1.ActiveSheet.PageSetup.CenterFooter := ’第&P页’;c.页眉到顶端边距2cm: ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;d.页脚到底端边距3cm: ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;e.顶边距2cm: ExcelApplication1.ActiveSheet.PageSetup.TopMargin := 2/0.035;f.底边距2cm: ExcelApplication1.ActiveSheet.PageSetup.BottomMargin := 2/0.035;g.左边距2cm: ExcelApplication1.ActiveSheet.PageSetup.LeftMargin := 2/0.035;h.右边距2cm: ExcelApplication1.ActiveSheet.PageSetup.RightMargin := 2/0.035;i.页面水平居中: ExcelApplication1.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;j.页面垂直居中: ExcelApplication1.ActiveSheet.PageSetup.CenterVertically := 2/0.035;k.打印单元格网线: ExcelApplication1.ActiveSheet.PageSetup.PrintGridLines := True;17) 拷贝操作:a.拷贝整个工作表: ExcelApplication1.ActiveSheet.Used.Range.Copy;b.拷贝指定区域: ExcelApplication1.ActiveSheet.Range.Copy;c.从A1位置开始粘贴: ExcelApplication1.ActiveSheet.Range..PasteSpecial;d.从文件尾部开始粘贴: ExcelApplication1.ActiveSheet.Range.PasteSpecial;18) 插入一行或一列:a. ExcelApplication1.ActiveSheet.Rows.Insert;b. ExcelApplication1.ActiveSheet.Columns.Insert;19) 删除一行或一列:a. ExcelApplication1.ActiveSheet.Rows.Delete;b. ExcelApplication1.ActiveSheet.Columns.Delete;20) 打印预览工作表:ExcelApplication1.ActiveSheet.PrintPreview;21) 打印输出工作表:ExcelApplication1.ActiveSheet.PrintOut;22) 工作表保存:if not ExcelApplication1.ActiveWorkBook.Saved then ExcelApplication1.ActiveSheet.PrintPreview;23) 工作表另存为:ExcelApplication1.SaveAs( ’C:\Excel\Demo1.xls’ );24) 放弃存盘:ExcelApplication1.ActiveWorkBook.Saved := True;25) 关闭工作簿:ExcelApplication1.WorkBooks.Close;26) 退出 Excel:ExcelApplication1.Quit;ExcelApplication1.Disconnect;(三) 使用Delphi 控制Excle二维图在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheetvar asheet1,achart, range:variant;1)选择当第一个工作薄第一个工作表asheet1:=ExcelApplication1.Workbooks;2)增加一个二维图achart:=asheet1.chartobjects.add(100,100,200,200);3)选择二维图的形态achart.chart.charttype:=4;4)给二维图赋值series:=achart.chart.seriescollection;range:=sheet1!r2c3:r3c9;series.add(range,true); 5)加上二维图的标题achart.Chart.HasTitle:=True;achart.Chart.ChartTitle.Characters.Text:=’ Excle二维图’ 6)改变二维图的标题字体大小achart.Chart.ChartTitle.Font.size:=6;7)给二维图加下标说明achart.Chart.Axes(xlCategory, xlPrimary).HasTitle := True;achart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text := ’下标说明’;8)给二维图加左标说明achart.Chart.Axes(xlValue, xlPrimary).HasTitle := True;achart.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text := ’左标说明’;9)给二维图加右标说明achart.Chart.Axes(xlValue, xlSecondary).HasTitle := True;achart.Chart.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text := ’右标说明’;10)改变二维图的显示区大小achart.Chart.PlotArea.Left := 5;achart.Chart.PlotArea.Width := 223;achart.Chart.PlotArea.Height := 108;11)给二维图坐标轴加上说明achart.chart.seriescollection.NAME:=’坐标轴说明’;(三) 数据库1.存储过程先执行如下存储过程EXEC sp_addlinkedserver ’ExcelSource’, ’Jet 4.0’, ’Microsoft.Jet.OLEDB.4.0’, ’C:\Documents and Settings\Administrator\桌面\xinxi3.xls’, NULL, ’Excel 5.0’EXEC sp_addlinkedsrvlogin ExcelSource, FALSE, NULL, NULL然后执行下面这个存储过程EXEC sp_tables_ex ExcelSource //显示几张表这时会返回几个表的名称(个数与excel中sheet的个数一致)然后你用以下语句:select * from ExcelSource...Sheet1$就可以查出来excel中的数据,然后就可以进行倒入的操作了导入完毕记得执行以下两个存储过程:--EXEC sp_droplinkedsrvlogin ExcelSource, NULL--EXEC sp_dropserver ExcelSource以上所有的操作可以先在查询分析器中test一下,然后你可以写存储过程来实现
你好,我想请教下DELPHI获取网页源码的代码
使用 IDHTTP 控件:var s: string;const***隐藏网址***begin***隐藏网址*** ShowMessage(s);//s 就是你需要的end;
怎样把delphi源文件变成程序刚开始玩delphi,下载了些源代码,不会弄!请高手指教,,要详细点的、、
一般情况下:1.下载并安装delphi2.运行delphi, 打开源文件中工程文件,即以.dpr为扩展名的。3.按F9运行即可。 dfm文件:是delphi的窗体定义文件,可以用普通的文本器打开并。pas文件:是delphi的源码文件,如果是带有窗口的可能有同名的dfm文件相配套。dpr文件:是delphi的工程文件,一般来说,建立一个程序软件,都需要这个文件,这个文件里通常会包含整个软件所需要的各个dfm窗体、pas源码等。res文件:是delphi的资源文件,里面一般会保存字符串、图标等资源。综合来说,一个delph软件必需的几个文件是:dpr、pas。如果是有窗口的软件(不是dos那种控制台程序),那么还需要dfm文件。如果这个窗口文件需要图标等资源,那么就还要res文件。 拿到一个程序的delphi源码,通常都是打开.dpr文件,这是入口文件,打开后会自动载入其他的pas/dfm/res文件,再按F9运行,如果有什么错误,会提示你的。
更多文章:
qvector遍历(我想用函数遍历vector变量,编译提示未定义标识符 i ,但我明明定义了啊为什么)
2024年7月22日 11:58
dropdownlist绑定数据源(asp.net的DropDownlist绑定数据)
2024年6月29日 09:42
ddos压力测试平台(Linux服务器被DDOS或CC攻击时如何封禁攻击者IP)
2024年7月13日 02:56
电视机后面这六个接口都是什么接口?vivoX9采用什么耳机接口
2024年7月7日 21:17
delphi生成二维码(用delphi怎么生成验证码的图片)
2024年7月7日 02:25
cmd无限弹窗代码(我中了bat程序(cmd无限弹窗)重启也关不掉 怎么办)
2024年10月17日 06:20
网页转化助手代码(关于python代码运行助手,请问如何在网页输入代码)
2024年6月14日 03:56
网页制作与设计期末考试(网页设计的期末题,急求大神解答!!!)
2024年7月12日 09:32
xposed框架下载免root(xposed 框架到底是怎么装)
2024年6月23日 04:08
数据库招聘信息(2017年浙江民泰商业银行总行信息科技部招聘启事)
2024年9月10日 00:20
updater是什么软件(adobe updater是什么)
2024年3月21日 04:30
filter过滤器的作用(不明白Filter过滤器怎么用,大家帮帮我)
2024年7月17日 23:23