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数据库没啥两样了。
pacificrack在最新的7月促销里面增加了2个更加便宜的,一个月付1.5美元,一个年付12美元,带宽都是1Gbps。整个系列都是PR-M,也就是魔方的后台管理。2G内存起步的支持Windows 7、10、Server 2003\2008\2012\2016\2019以及常规版本的Linux!官方网站:https://pacificrack.com支持PayPal、支付宝等方式付款7月秒杀VP...
全球独立服务器、站群多IP服务器、VPS(哪个国家都有),香港、美国、日本、韩国、新加坡、越南、泰国、加拿大、英国、德国、法国等等99元起步,湘南科技郴州市湘南科技有限公司官方网址:www.xiangnankeji.cn产品内容:全球独立服务器、站群多IP服务器、VPS(哪个国家都有),香港、美国、日本、韩国、新加坡、越南、泰国、加拿大、英国、德国、法国等等99元起步,湘南科技VPS价格表:独立服...
妮妮云的来历妮妮云是 789 陈总 张总 三方共同投资建立的网站 本着“良心 便宜 稳定”的初衷 为小白用户避免被坑妮妮云的市场定位妮妮云主要代理市场稳定速度的云服务器产品,避免新手购买云服务器的时候众多商家不知道如何选择,妮妮云就帮你选择好了产品,无需承担购买风险,不用担心出现被跑路 被诈骗的情况。妮妮云的售后保证妮妮云退款 通过于合作商的友好协商,云服务器提供2天内全额退款,超过2天不退款 物...
delphi2007为你推荐
trapezoid梯形中最多有多少个直角?cs躲猫猫cs躲猫猫的游戏叫什么安卓模拟器哪个好用安卓模拟器哪个好用spinmaster谁发明的汪汪队立大功这个动画片协亨为什么协亨的手机卖这么便宜~?空间图片qq空间图片比特币官方客户端如何查询比特币、莱特币确认 ?tplink端口映射TP-LINK 路由器怎么端口影射啊?哪位高手知道!rar分卷压缩什么叫压缩分卷啊?查看源文件怎么在excel中查找源文件的位置
asp网站空间 广东服务器租用 欧洲免费vps 景安vps 阿里云邮箱登陆首页 缓存服务器 wordpress技巧 sub-process 512au 一点优惠网 日本空间 小米数据库 php空间申请 1g内存 可外链相册 phpmyadmin配置 爱奇艺vip免费领取 免费网页申请 东莞服务器托管 江苏双线 更多