2ccc

时间:2024-10-30 06:26:46编辑:阿奇

一打开Delphi程序,就出现Class TSkinData not found.应该如何修改呢?

下载VCLSkin第三方包

然后按照如下步骤安装:

1、对于单个控件,Componet-->install component..-->PAS或DCU文件-->install;
2、对于带*.dpk文件的控件包,File-->Open(下拉列表框中选*.dpk)-->install即可;
3、对于带*.bpl文件的控件包,Install Packages-->Add-->bpl文件名即可;
4、如果以上Install按钮为失效的话,试试Compile按钮;
5、是run time lib则在option下的packages下的runtimepackes加之。
如果编译时提示文件找不到的话,一般是控件的安装目录不在Delphi的Lib目录中,有两种方法可以解决:
1、反安装的源文件拷入到Delphi的Lib目录下;
2、或者Tools-->Environment Options中把控件源代码路径加入到Delphi的Lib目录中即可。
注意:所安装的控件是否与你所用的Delphi版本相适应。


delphi远程控制程序怎么使用

WinSock是一组API,用于在网络上传输数据和交换信息。虽然现在有很多工具如FTP 程序可以在网络上传输数据和文件,但是通过WinSock编程有更大的灵活性,它不需要关心网络连接的细节,不过用WinSock编程却很复杂。在Delphi中我们并不需要直接与 WinSock的API打交道,因为TClientSocket元件和TServerSocket元件(在Internet页)封装了WinSock的大部分API,使得对WinSock的访问大大简化。下面这个远程控制的例子就很清楚地说明了这个问题,它可以发送一个消息给对方,并能够使对方的电脑关闭、重新启动或重新登录。
一实现原理
  实行远程控制,实际上就是一个服务器程序(以下简称被控程序)和一个客户程序(以下简称主控程序):被控方即为服务器程序,它监听客户的请求,并作出处理;主控方即为客户程序,它连接上服务器后,发出自己的请求,服务器便根据自已的请求进行不同的响应。
二编写主控程序
  1.新建一个项目Client.dpr,并把一个TClientSocket元件放到Form上,它的属性设置如下:Port设为100(端口号可任意设置,只要求双方统一),其他属性按默认值。在窗体上添加两个TEdit:Edit1,用来输入发送的字符,Edit2用来输入IP地址;添加两个TButton:Button1,点击后用来连接被控机,Button2点击后用来发送字符,然后声明一个私有变量ConnectFlag,表示双方是否连接好:
private ConnectFlag:Boolean;
  2.ClientSocket1的OnConnect事件代码如下:
procedure TForm1.ClientSocket1Connect (Sender: TObject;Socket: TCustomWinSocket); begin ConnectFlag:=True; //表示连接成功 end;
  3.ClientSocket1的OnError事件代码如下:
procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;var ErrorCode: Integer); begin Application.MessageBox(Pchar (‘不能连接到IP地址 : ' + Edit2.Text+‘。'+ #13+‘可能是监听程序没有运行或网络故障!'), ‘连接错误',MB_OK+MB_ICONSTOP); ErrorCode := 0; end;
  4.Button1的OnClick事件代码如下:
procedure TForm1.Button1Click(Sender: TObject); begin with ClientSocket1 do begin if Active then begin Active := False;//在连接之前首先关闭 ConnectFlag:=False; //置连接标志为假 end; if Length(Edit2.Text) > 0 then begin Host := Edit2.Text; //指定IP地址或主机名 Active := True; end; end; end;
  5.Button2的OnClick事件代码如下:
procedure TForm1.Button2Click(Sender: TObject); begin if ConnectFlag then ClientSocket1.Socket.SendText(Edit1.Text) //如果连接成功则发送字符串 else Application.MessageBox(PChar(‘没有连接到地址 : ' + Edit2.Text+‘。'+#13+‘检查IP地址是否 存在或是否已经连接!'),‘提示信息',MB_OK+MB _ICONSTOP); end;
三编写被控程序
  1.新建一个项目Server.dpr,并把一个TServerSocket元件放到Form上,它的属性设置如下:Active设为True;Port设为100,其他属性按默认值。
  2.ServerSocket1的OnClientRead事件代码如下:
procedure TForm1.ServerSocket1ClientRead (Sender: TObject;Socket: TCustomWinSocket); var Str:PChar; Code,V:Integer; begin Str:=PChar(Socket.ReceiveText); //接收字符串 Val(Str,V,Code); //处理接收的字符串,首先转换字符串为整数 if Code0 then Application.MessageBox(Str, ‘提示信息',MB_OK+MB_ICONINFORMATION) //如果转换后的数据不是一个整型数 //就通过消息框来显示字符串 else if (V=0)or(V=1)or(V=2) then ExitWindowsEx(V,0) //调用Windows的API函数(V=0表示重新登录、 //V=1表示关机、V=2表示重启动) else Application.MessageBox (Str,‘提示信息',MB_OK+MB_ICONINFORMATION); //转换后数据不为0、1、2时在消息框内显示字符串 end;
  3.修改项目文件,不让窗口显示并且防止它运行两次,修改begin和end之间的代码如下:
begin Application.Initialize; if FindWindow(‘TForm1',‘Form1')= 0 then begin //当没有找到Form1时执行下面代码 Application.ShowMainForm:=False; //不显示主窗口 Application.CreateForm(TForm1, Form1); Application.Run; end; end.
四注意事项
  1.网络要装配正确并安装TCP/IP协议,且要正常运行。
  2.首先要运行被控程序。
  3.必须知道对方的IP地址或主机名。
  上述程序用Delphi5.0编写,在Windows98对等网、 WindowsNT4.0局域网以及Internet上运行通过。最后要声明的是此程序由于能够控制对方的计算机,在实验时要事先经过他人同意,不要给别人造成影响。 


Delphi第三方控件使用大全(Ⅱ)的简介

Delphi开放式的控件支持环境,使得成千上万的Delphi迷能够为Delphi编写大量的第三方控件,并在Internet上形成了巨大的共享资源。本书精心挑选了数百种具有代表性的优秀第三方控件,并通过控件的介绍、评测、详解以及源代码或示例程序的分析,深入浅出地向读者介绍这些优秀控件的出众之处与强大功能。本书可以称得上是一本真正的Delphi玩家级手册,可以作为Delphi编程工具书、备查备用,以提高程序员编程的效率。本书适用于Delphi程序员及其它编程人员。

DELPHI常用第三方控件有哪些

delphi 的第三方控件有很多,由于开发者个人所面向范围的侧重点不同,有所区别。

常用的有第三方控件有:

Devexpress VCL 套件:
此款套装组件包,基本上覆盖了系统界面及数据库展示的方方面面,是做桌面系统必备的一套控件。所包含的控件有:数据录入,图表,数据分析,导航,布局,网格,日程管理,样式,打印和工作流等等。

UniDAC 套件:
UniDAC 组件包,由 Devart 公司出品,是目前 delphi 数据库应用方面很好用的控件。

Fastreport 组件:
高版本的 delphi 中已经集成了 Fastreport 标准版,是常用的报表工具之一。

此外,TMS、Raize、AlphaControl 等也常会用到。


上一篇:爱情睡醒了戚薇吻戏

下一篇:没有了