delphi最新源码（求DELPHI获取网页源码的一段代码）

本文目录

• 求DELPHI获取网页源码的一段代码
• 怎样把delphi源文件变成程序刚开始玩delphi，下载了些源代码，不会弄！请高手指教，，要详细点的、、
• 传奇ige引擎全套源代码delphi源码怎么编译
• Delphi网吧P2P三层更新BT源码
• Delphi 源码都有哪些后缀
• 你好，我想请教下DELPHI获取网页源码的代码
• 高分求一delphi + excel的源码
• delphi的源代码叫什么文件

求DELPHI获取网页源码的一段代码

以下内容是一个单元，保存为MyIdHTTP.pas后，由主程序uses这个单元，调用GetStrOfURL即可。
unit MyIdHTTP;
interface
uses 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;
implementation
var
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源文件变成程序刚开始玩delphi，下载了些源代码，不会弄！请高手指教，，要详细点的、、

一般情况下：
1.下载并安装delphi
2.运行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运行，如果有什么错误，会提示你的。

传奇ige引擎全套源代码delphi源码怎么编译

去下载个
delphi 2007 基本都是用这个版本编译的
再安装 Raize JSocket 插件 这两个是必要的 如果它还使用了其他的插件 那需要再安装 要不然 你打开还是会报错。
然后 可以直接编译生成了。

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 源码都有哪些后缀

dpr 为工程文件
dfm 为窗体文件
pas 为单元文件
cfg 配置文件
dof 为项目选项文件(一般没用)
dcu compiled units文件 ,编译后的单元文件
res 资源文件
ddp 文件就是Delphi Diagram Portfolio简写,是用来保存Code Editor中的Diagram信息的.
一般一个项目要 dpr,dfm,pas文件即可,如果有cfg,res也要(后两个文件很少用到)

你好，我想请教下DELPHI获取网页源码的代码

使用 IDHTTP 控件：
var
s: string;
const
***隐藏网址***
begin
***隐藏网址***
ShowMessage(s);//s 就是你需要的
end;

高分求一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;
begin
Temp_Worksheet:=ExcelWorkbook1.
WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;
ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
End;

6) 打开已存在的工作簿：
ExcelApplication1.Workbooks.Open (c:\a.xls
EmptyParam,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和ExcelWorksheet
var 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的源代码叫什么文件

delphi的源代码文件，通常以 .pas 为文件扩展名。

如果是 windows 程序，一般还会包含一个同名的窗体文件，以 .dfm 为扩展名。

如下图示例：