delphi2007delphi2007 如何 连接oracle数据库 求详细的过程。
delphi2007 时间:2021-08-03 阅读:(
)
delphi2007里面是怎么加线程的,有没有例子??
delphi2007中的线程定义与delphi3-7的一模一样!找找以前的例子就行了!
下面附一段简单的多线程例子:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
UsedThread: TButton;
NoUsedThread: TButton;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure UsedThreadClick(Sender: TObject);
procedure NoUsedThreadClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
hThread:Thandle;//定义一个句柄
ThreadID:DWord;
implementation
{$R *.dfm}
function MyThreadFunc(P:pointer):Longint;stdcall;
var
i:longint;
begin
form1.Label1.Caption:='0';
for i:= 0 to 50000 do
begin
form1.Label1.Caption:=inttostr(i);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SuspendThread(hThread); //挂起线程
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
TerminateThread(hThread,0); // 终止线程
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ResumeThread(hThread); // 激活线程
end;
procedure TForm1.NoUsedThreadClick(Sender: TObject);
begin
MyThreadfunc(nil);
//没有创建线程时,直接调用线程函数
end;
procedure TForm1.UsedThreadClick(Sender: TObject);
begin
//创建线程,同时线程函数被调用
hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);
if hThread=0 then
messagebox(Handle,'Didn’tCreateaThread',nil,MB_OK);
end;
end.delphi7和delphi2007有什么区别?学哪个版本最好??
DELPHI2007支持更多的东西 比如.NET FOR PHP
如果是入门得话 学DELPHI7就OK了
源码是否兼容以及到底应该学哪个版本最好??
。
。
。
(这个都是OBJ PASCAL)Delphi2007能开发WIN CE程序吗?回答好还有加分
可以,可以绕过.
其实windows ce,在微软自己的教材里,只是一套WindowsApi组合,可以使用这套组合做出可以在Ce上运行的程序.
而Ce主要用于数据终端,所以你的Delphi只要可以运行,可以连接到服务器上的IIS指定的数据库里,并进行数据传输就算完成一个程序.
所以楼上的回答是不对的.
现在我们使用的仓库管理软件,就是使用Delphi7做的,服务器端使用Soap的管理软件.Delphi 2007中如何安装*.pas控件?
新建控件包第二步:选中右边“ Project Manager ”中“ Contains ”文件夹,点击鼠标右键,在弹出的菜单中选择“ Add”。
添加第三步:在 Add 对话框中,点击“ Browse ”按钮,选择要安装的 PAS 文件,然后点击“ OK ”按钮。
delphi2007 如何 连接oracle数据库 求详细的过程。
1、安装oracle客户端;
2、在windows“管理工具-数据源(odbc)-系统DSN”中设置好 oracle对应的odbc数据源;
3、在bde中设置“别名”;
4、剩下的和访问其他bde数据库没啥两样了。
racknerd在促销美国洛杉矶multacom数据中心的一款大硬盘服务器,用来做存储、数据备份等是非常划算的,而且线路还是针对亚洲有特别优化处理的。双路e5+64G内存,配一个256G的SSD做系统盘,160T SAS做数据盘,200T流量每个月,1Gbps带宽,5个IPv4,这一切才389美元...洛杉矶大硬盘服务器CPU:2 * e5-2640v2内存:64G(可扩展至128G,+$64)硬...
2022年春节假期陆续结束,根据惯例在春节之后各大云服务商会继续开始一年的促销活动。今年二月中旬会开启新春采购季的活动,我们已经看到腾讯云商家在春节期间已经有预告活动。当时已经看到有抢先优惠促销活动,目前我们企业和个人可以领取腾讯云代金券满减活动,以及企业用户可以领取域名优惠低至.COM域名1元。 直达链接 - 腾讯云新春采购活动抢先看活动时间:2022年1月20日至2022年2月15日我们可以在...
易探云怎么样?易探云(yitanyun.com)是一家知名云计算品牌,2017年成立,从业4年之久,目前主要从事出售香港VPS、香港独立服务器、香港站群服务器等,在售VPS线路有三网CN2、CN2 GIA,该公司旗下产品均采用KVM虚拟化架构。目前,易探云推出免备案香港物理机服务器性价比很高,E3-1230 8 核*1/16G DDR3/SATA 1TB/香港BGP线路/20Mbps/不限流量,仅...
delphi2007为你推荐
初始化磁盘如何将磁盘还原为“未初始化”状态?provisioned手机显示sim not provisioned mm#2,是什么意思逗号运算符C语言 逗号运算符 是几元操作符?谢谢scanf返回值scanf 的返回值cs躲猫猫CS1.6捉迷藏具体的玩法?讯飞tts能配合讯飞语音tts使用的手机阅读器都有哪些赵锡成赵锡成夫人简介数据管理制度网络管理制度.碰撞球如何在flash中制作小球碰撞动画?vrrp配置路由器的配置子模式有哪些
美国免费虚拟主机 工信部域名备案查询 fdcservers 国内永久免费云服务器 php探针 国内加速器 圣诞节促销 dux 789电视网 域名评估 tna官网 umax120 域名与空间 服务器维护 photobucket 买空间网 重庆服务器 hdroad tracker服务器 海外加速 更多