摘要：
标题：delphi 对象模型学习笔记关键词：delphi 对象模型 作者：dreamtheater难度：普通[] 中等[x] 高级[]http://dreamtheater.yeah.nete-mail:notexpad@163.com完成日期：2004年08月21日
摘要 borland object pascal 对象模型（现在已经正是命名为 delphi 语言）与其他 oop 语言一样，......
摘要：
看了好多次有网友的提出关于用delphi实现ping的问题，今天又看到了；所以就将这个功能写成一个类，并且提供一个函数方便大家的使用！
函数procedure pinghost(ip:string;var info:string);ip:目标ｉｐ地址；info:ping了以后产生的信息(1)或(2)；(1)成功信息ip 发送测试的字符数 返回时间(2)出错信息can not find h......
基于阻塞Socket(Indy)的远程控制类库-TNetCommand世界中的礼仪-02
tnetimage类
// unetimge .pas 屏幕图像相关操作 【程序编程相关:
多层数据库开发三:创建多层应用程序
】
源代码 【推荐阅读:
多层数据库开发五:连接数据库
】
作者:蛐蛐 【扩展信息:
多层数据库开发一:设计数据库应用程序
】
{{
时间:2004.5.26
}
unit unetimage;
interface
uses
classes, windows, graphics, forms, jpeg, sysutils,
idtcpserver, idtcpclient,unetcommand;
type
tnetimage = class (tnetcommand)
public
compress: integer;
imagestream: tmemorystream;
imagetime: string;
jpegimage: tjpegimage;
remoteimagestream: tmemorystream;
remotejpegimage: tjpegimage;
constructor create;
destructor destroy; override;
function readdata(client: tidtcpclient): boolean; override;
function readimage(client: tidtcpclient): boolean;
// : 截取屏幕到bitmap
{{
function snapscreen.
bmpscreen 返回值.
returns: 调用成功为true,否则为false.
}
function snapscreen(var bmpscreen: tbitmap): boolean; overload;
// : 截取屏幕到jpeg
{{
function snapscreen.
jpegscreen 返回值 , jpegcompress 图像压缩比.
returns: 调用成功为true,否则为false.
}...
下一页 摘要：
风花雪月 e梦情缘网络代号:wnhoo or sos_admin网名:e梦缘mail:wnhoo@163.com
功能：第一次執行的時候…會開啟project1.exe第二次執行的時候…不開啟project1.exe(因程式已執行)…但会将參數會丟給已執行的project1.exe第3次執行的時候…不開啟project1.exe(因程式已執行)&......
