delphi开发的软件（用Delphi开发视频聊天软件（二））

本文目录

• 用Delphi开发视频聊天软件（二）
• 用Delphi开发简单的WebMail程序
• 我们用的哪些软件是用delphi开发的
• 请教“Delphi”编写的软件用什么软件进行汉化
• 请问delphi开发的软件,怎么收费
• 用DELPHI开发B\S架构的软件
• 适合delphi开发的软件的自动化测试工具有哪些呢
• 请问delphi开发的软件

用Delphi开发视频聊天软件（二）

     ）定义全局变量

    CapWnd:THandle; //定义捕捉窗句柄    CapParms:TcaptureParms; //用于设置设备属性的结构变量    BMPINFO:TBitmapInfo; //BMP图像信息

     ）编码事件代码

    开始按钮代码

    CapWnd := capCreateCaptureWindow( 我的窗口 WS_VISIBLE or WS_CHILD //窗口样式 //X坐标 //Y坐标 panel Width //窗口宽panel Height //窗口高 panel handle //窗口句柄 ); //通常为     if CapWnd = then exit; //定义帧捕捉回调函数    CapSetCallbackOnFrame(CapWnd FrameCallBack);    CapParms dwRequestMicroSecPerFrame:= ;    CapParms fLimitEnabled:=FALSE;    CapParms fCaptureAudio:=FALSE;    CapParms fMCIControl:=FALSE;    CapParms fYield:=TRUE;    CapParms vKeyAbort:=VK_ESCAPE;    CapParms fAbortLeftMouse:=False;    CapParms fAbortRightMouse:=FALSE; //让设置生效    CapCaptureSetSetup(capWnd @CapParms sizeof(TCAPTUREPARMS));    CapPreviewRate(capWnd ); //设置预览视频的频率    CapCaptureSequenceNoFile(capWnd); //如果要捕捉视频流 则要使用函数来指定不生成文件 不然会自动生成AVI文件 CapDriverConnect(CapWnd ); //连接摄像头设备 第二个参数是个序号 当系统中装有多个显示驱动程序时 其值分别依次为 到总个数如果有多个摄像头 那么就是 》 》     capGetVideoFormat(capWnd @BMPINFO sizeof(TBitmapInfo)); //取得视频图像数据头    CapPreviewScale(capWnd TRUE); //是否缩放    CapOverlay(capWnd true); //指定是否使用叠加模式 true为使用 否则为falseCapPreview(capWnd true);

    回调函数代码

    var hd:Thandle;    jpg:TJpegImage;    memStream :TMemoryStream;    Bitmap:TBitmap;    begin //将数据显在Image     Bitmap:=TBitmap Create;    Bitmap Width :=BMPINFO bmiHeader biWidth;    // New size of Bitmap    Bitmap Height:=BMPINFO bmiHeader biHeight;    hd:= DrawDibOpen; DrawDibDraw(hd Bitmap canvas handle _    BMPINFO BmiHeader biwidth BMPINFO bmiheader biheight _    @BMPINFO bmiHeader lpVHdr^ lpData BMPINFO bmiHeader biWidth _    BMPINFO bmiHeader biheight );    DrawDibClose(hd); //发送数据    memStream := TMemoryStream Create;    jpg := TJpegImage Create;    jpg Assign(Bitmap);    jpg CompressionQuality := ; //jpg压缩质量    jpg JPEGNeeded;    jpg Compress;    jpg SaveToStream(memStream);    jpg Free; //因为UDP数据包有大小限制 这里如果超出部分 就没有传输 完全可以发几次发出去    Form IdUDPClient BroadcastEnabled:=true;//用广播功能    if memStream Size》Form IdUDPClient BufferSize then    //向 X网段广播 端口     Form IdUDPClient SendBuffer( memStream Memory^ Form IdUDPClient BufferSize) else Form IdUDPClient SendBuffer( memStream Memory^ memStream Size);    memStream Free;    Bitmap Free;    End;

    停止代码

    capCaptureAbort(CapWnd); //停止捕捉 capDriverDisconnect(CapWnd); //将捕捉窗同驱动器断开

    完整的视频聊天软件服务器代码

用Delphi开发简单的WebMail程序

WebMail是指在网页中实现邮件的发送。使用Delphi开发Web Server程序是非常简单的，Delphi中提供了大量的元件和对象。下面通过一个例子来介绍如何利用Delphi开发一个响应用户输入的ISAPI的WebMail程序。为了简单，程序没有对传送的数据提供保密。首先，在Web服务器端安装数据库引擎dbe,并设置好数据库别名：yh,指向一个包含用户名和用户密码的数据库文件user.db。接着建立两个HTML文件，名字分别为：dl.html,qd.html，放在Web服务器的缺省目录下(如：c：＼inetpub＼wwwroot)。dl.html的内容如下：htmlheadtitle发送邮件系统/title/headbodyh1发送邮件系统/h1p请输入您的用户名及密码/pform method=”post”action="/scripts/SendMail"p用户名input type="text" length=10 name="username"密码： input type="password" length=10 name="password" /ppinput type="submit" value="确定"input type="reset" value="清除"/p/form/body/htmlqd.html文件内容如下：htmlheadtitle填表/title/headbodyform method=”post”action="feedback"p请填入接收邮件地址:toaddress:input type=”text”length=20 name=”toaddress”/pp请填入主题input type="text" length=20 name="subject"/pp内容：/ppinput type=“textarea”length=40 width=40 name=”body”/ppinput type="submit" value="确定"input type="reset" value="清除"/p/form/body/html在Delphi中新建一个基于ISAPI的Web Server Application，手动增加nmsmtp1,query1,pageproducer1。其中：pageproducer1的htmlfile属性为c:＼inetpub＼www.root＼qd.html。nmsmtp1的host(发送邮件服务器的地址)在这里为.，port:25。全局变量为：sername:string;flag:boolean。增加一个路径为feedback的动作项，其代码如下：　VarCount:integer;S:string;BeginQuery1.close;Query1.sql.clear;S:=’select count(username) from user.dbswheresusername=”’;S:=s+request.contentfields.values+’”’;S:=s+’and password=”’;S:=s+request.contentfields.values+’”’;Query1.sql.add(S);Query1.open;If query1.count=0 then response.content:=’htmlheadtitle/titlebody用户名、密码不正确，请重新输入/body/html’ElseUsername:=request.contentfields.values;Response.content:=pageproducer1.content;End;再增加一个路径为Sendmail的动作项，它的程序代码如下：Var body:string;BeginFlag:=true;body:=request.contentfields.values;Pageproducer1.htmldoc.clear;Pageproducer1.htmldoc.add(‘ htmlbody ’);Nmsmtp1.postmessage.clear;Nmsmtp1.postmessage.fromaddress:=username+’@netease.com’;Nmsmtp1.postmessage.from:=username;Nmsmtp1.postmessage.body.add(body);Nmsmtp1.postmessage.toaddress.add(request.contentfields.values);Nmsmtp1.postmessage.subject:=request.contentfields.values；Nmsmtp1.connect;If flag=true thenbeginNmsmtp1.sendmail;nmsmtp1.disconntent;endpageproducer1.htmldoc.add(‘/body/html’);response.content:=pageproducer1.content;end;增加nmsmtp1的OnConnect事件添加如下代码：pageproducer1.htmldoc.add(’p已经和发送邮件服务器连接/p’);在NMSMTP1的Connection事件添加如下代码：flag:=false;pageproducer1.htmldoc.add(’p连接失败/P’);将project存为sendmail.dpr，编译后放到Web服务器的可执行文件路径下(如：c:＼intpub＼scripts),即可响应HTML文件dl.htm的用户输入，并且如果用户的用户名及密码正确，则可进入发送邮件的页面。用户填写接受邮件地址及主题、内容后，即可发送邮件。此程序在NT Server上调试通过。

我们用的哪些软件是用delphi开发的

（1）Basic简单易学，很容易上手。

（2）VisualBasic提供了强大的可视化编程能力，可以让你轻松地做出漂亮的程序。

（3）众多的控件让编程变得象垒积木一样简单。

（4）VisualBasic的全部汉化让我们这些见了English就头大的人喜不自禁。

请教“Delphi”编写的软件用什么软件进行汉化

对软件进行汉化，有多种软件工具，比如：eXeScope。该软件可以是使用方便汉化工具，可以直接修改用 VC 及 DELPHI 编制的程序的资源，包括菜单、对话框、字串表等，可以将原英文转化为中文等其他目标语言。

请问delphi开发的软件,怎么收费

费用是这样估计的，首先根据你的需求，开发人员进行概要设计（分模块），然后估算完成每个模块需要多少人日、集成测试需要多少人日、上线安装调试需要多少人日、维护需要多少人日，根据每个地区不同每个人的成本m也不同，南方可能每人要500~800元/每天，北方不太清楚。最终：n人日*m=总费用。

用DELPHI开发B\S架构的软件

一些会计管理系统，进销存系统，一些地方的工商税务系统，很多的医院管理系统，不有不少办公自动化信息系统等等，都是长期应用的比较稳定的应用系统。

适合delphi开发的软件的自动化测试工具有哪些呢

AutoRunner可以用来完成功能测试、回归测试，可以提高测试效率，降低测试人工成本。

请问delphi开发的软件

delphi应用程序开发工具Delphi，是Windows平台下著名的快速应用程序开发工具(RapidApplicationDevelopment，简称RAD)