只有PHP高手能解答了

安装了apache php imagick,并且一切正常。

因为浏览器不能显示TIF图片,于是只有转为为GIF
使用imagick转化tif为gif时,大部分都能转化成功,就小部分显示时,页面直接显示无法打开该页面。
主要代码:

$new_image=new Imagick();
$animation = new Imagick(); //建立一个对象。
$handle = file_get_contents($tifShow);
$animation->readImageBLOB($handle);
$sum=$animation->getNumberImages();
for($i=0;$i<$sum;$i++){
$animation->previousImage();
$new_image->addImage($animation->getImage());
$new_image->setImageFormat('gif');
$new_image->setImageDelay(150);

}

$animation->setFormat('gif');
header( 'Content-Type: image/gif' );
echo $animation->getImagesBLOB();

tif文件是对的,不存在图片错误
后来测试得知:在$animation->readImageBLOB($handle);出的问题。注释掉这句以后的代码,页面就不显示“无法打开该页面”。
难道Imagick做的不够完善?

php

1个回答

你可以使用readImage啊
[code="php"]
$animation->readImage('filename.tif');
[/code]

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
只有高手能解决!!!!
我在创建asp.net应用程序时,出现如下错误提示:rnrn此项目的默认web访问模式设置为文件共享,rn但是无法从路径”c:\inetpub\wwwroot\WebApplication1“打开rn“http://localhost/webapplication1"处的项目文件夹。返回的错误是:rn无法创建web项目"webappliation1".文件路径rn"c:\inetpub\wwwroot\webapplication"与url"http://localhost/webapplicationrn1"不符,这两者需要需要映射到相同的服务器位置。http 错误 404:not found
只有高手才能解答 -- 数据查询!!
有这么一个需求:rn见如下的表,fileName 代表歌曲名称 totalviews 代表看的次数 userName 表示用户名,现在我要统计出,各用户最喜欢看的前两个歌曲,以及看的次数rndeclare @table table(fileName varchar(10),totalviews int ,userName varchar(10)) rninsert @table(fileName,totalviews,userName)rnrnselect '搞山流水',2,'xxx' union allrnselect '我们的爱',7,'bbb' union allrnselect '黄昏',9,'ccc' union allrnselect '搞山流水',4,'xxx' union allrnselect '黄昏',2,'bbb' union allrnselect '搞山流水',4,'xxx' union allrnselect '我们的爱',9,'ccc' union allrnselect '我们的爱',9,'xxx' union allrnselect '黄昏',2,'bbb' union allrnselect '黄昏',1,'xxx' union allrnselect '搞山流水',0,'ccc' union allrnselect '搞山流水',6,'xxx' union allrnselect '我们的爱',7,'ccc' union allrnselect '搞山流水',6,'xxx' union allrnselect '我们的爱',10,'bbb' rnrnselect * from @tablernrnrn请高手解答,很抱歉,我没有分了....
只有高手才能解答的问题::---
只有高手才能解答的问题,请看:如何调用WebBrowser控件的“添加到收藏夹”、“整理收藏夹”、“另存为”对话框??我在csdn里面发过很多次,但是都没有人能解答,所以说这个是一个只有高手才能解答的问题。希望高手能一个一个帮我解答。谢谢!
???只有高手能答的问题???
我想将一段中文译成英文代码rn文本框.文本 = "测试"rn译成rnTEXT1.TEXT= "测试"rn如果 窗体.标题 = "测试" 则rn 消息框弹出 "窗体标题为测试",,"提示"rn结束rnIf Form1.Coption = "测试" Thenrn msgbox "窗体标题为测试",,"提示"rnend ifrn我的想法是,建立一个表,中文一列(如:文本框,消息弹出),vb对象和属性一列。当rn键入回车时调用数据库。不知以后该怎么办???rn高手指点,另加分
各位高手,能解答吗?
请问UNIX下架设WEB服务器,有什么要点(步骤),最好详细说明,谢谢,rnrnrn对了,请各位推荐几本好的UNIX书,特别是有没有详解UNIX命令的(注意是详解,不是一般的介绍,带上所有参数,最好有例子)~~~~~~~~~谢谢~~rnrn rn rn
PHP练习题 高手解答一下
①rn------------------------------------rnrnrn-------------------------------rn把上面①代码的功能实现在下面代码中rnrn-------------------------------rn②rn-------------------------------rnrn rnrn rnrnrnrn-------------------------------rnrn在上面②的代码中输入4个数字 rnrn跟上面①的4321对比之后输出rnrnrn
恐怕只有高手才能解答的Cookie疑问
对于cookie,我们一般认为有这样的特性:rn设置了cookie的值而不设置有效期时,页面存在期间都是有效的,包括从本页面新打开的页面中均可以使用(同一个服务器),一旦页面关闭,cookie自动清除。实践过程中,我发现,如果直接用IE浏览器打开页面(用户大多直接使用IE浏览器),上述推论成立,但用户如果不直接使用IE浏览器,而是使用"我的电脑"或者"资源管理器",在地址栏里面输入网址,此时,cookie的这些特性失灵了,为此,我们做如下实验:rn打开VS2008,新建一个网站,默认已经有一个网页了,名称为default.aspx,我们再添加一个webform,使用默认的名称:default2.aspxrn在页面1上,添加一个超级链接,两个html按钮,分别用于打开新页面(也就是default2.aspx)、显示cookie、设置cookie,写cookie的函数如下:rn function WriteCookie (key, value, cookieDomain, cookiePath, expireTime, targetWindow) rn rn value = '' + value; rn var strAppendix = ""; rn strAppendix += cookieDomain ? ";domain=" + cookieDomain : ""; rn strAppendix += cookiePath ? ";path=" + cookiePath : ""; rn strAppendix += expireTime ? ";expires=" + expireTime : ""; rn targetWindow = targetWindow ? targetWindow : top; rn document.cookie = escape(key) + "=" + escape(value) + strAppendix; rn rnrn超级链接为:link to new page 注意,在新窗口中打开,也就是target="_blank"rn按钮1显示cookie:rn function btnShowCookie_onclick()rn rn alert(document.cookie); rn rn按钮2设置cookie:rn function btnSetCookie_onclick()rn rn WriteCookie("test", "testvalue");rn rnrn页面2的功能很简单,在页面载入时,显示一下cookie就可以了:rnwindow.onload = function() rn rn alert(document.cookie); rn rnrn准备完毕,我们运行网站,默认会用IE启动default.aspx,在地址栏里面复制web地址到剪贴板,然后把所有窗口都最小化,开始测试rnrn测试一:rn 从桌面上打开IE浏览器,粘贴好地址,并回车,显示出default.aspx,点超级链接或点按钮1,都显示没有cookie,点一下按钮2进行cookie设置,再点超级链接或按钮1,显示cookie正常了.rn 关闭IE,再重新打开一个IE,同样设置好地址,点一下按钮1,显示没有cookie,说明cookie在刚才关闭浏览器时,的确清空了.rn从上面的测试中发现,一切都和书上介绍的一样.rnrn测试2:rn 打开"我的电脑"(不是IE图标!),在地址栏里面粘贴好地址并回车,将打开"default.aspx",同样,点超级连接或按钮1,均无cookie,这是意料之中的.rn点按钮2来设置cookie,然后点按钮1,cookie显示出来了,说明设置成功,再点超级链接,提示无cookie说明cookie没有传递给新页面!rn 关闭该浏览器(就是我的电脑),重新打开一个"我的电脑",在地址栏里面粘贴好地址并回车,default.aspx显示出来后,点一下按钮1,发现cookie还在,说明cookie并没有被清空,同样,点超级链接,新页面当然也没有cookie,换句话说,通过"我的电脑"打开页面后,cookie不会传到新页面,关闭时也不会清空!rnrn我的个人分析(不一定正确):"我的电脑"是windows图形界面的一部分,"IE"是另外一个软件(资源浏览器的可执行文件为:windows\explorer.exe,而IE的执行文件为:Program Files\Internet Explorer\iexplore.exe),是两个软件,因此,当我们点超级链接时,"我的电脑"打开一个新的IE窗口,并在其中显示新页面,因为是两个软件(主页面是我的电脑,新页面是IE),因此cookie无法共享,关闭"我的电脑"时,因为整个图形界面并没有关闭(除非重新启动计算机),因此,cookie不会清空.rnrn//======================================================================================rn 现在我的问题时,如何让用户使用"我的电脑"打开页面后,效果与直接用IE打开的效果一样?rn//======================================================================================rnrn大家可以到http://61.153.65.30/testcookie/进行测试,就两个页面,查看源代码就可以复制下来在本地测试了.rn
只有北极星高手能进来呦~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
抽象雷表示一个抽象的概念:rn比如水果,rn苹果、梨都是水果。rn但水果就是一个抽象的概念。rn抽象类不能直接建立实例,但使用一个水果的引用可以指向任何一种水果的实例。 rnrnrnrn这里面说的引用是什么意思啊~?rnrn是别名吗?理解不了~55555
只有高手能给我个方向.
http://域名/(jz2nswywbqszk345r2cfwqqw)/WebForm1.aspxrnrn小弟钻研,请问这种有随即加密的域名是怎么生成的?谢谢.rn(jz2nswywbqszk345r2cfwqqw)
不明的代码!哪位高手能解答?
function Tfrmain.CompressRePairMDB: Boolean;rnvarrn dao:OLEVariant;rn sTempDBname:string;rnbeginrn result:=true;rn screen.Cursor:=crHourGlass;rn stempdbname:=changefileext(fn,'.tmp');rn if fileExists(stempDBName) then DeleteFile(sTempDBName);rn dao:=CreateOLEObject('DAO.DBEngine.36');rnrn tryrn tryrn dao.compactDatabase(fn,sTempDBName,'',0,';pwd=123 ');rn DeleteFile(fn);rn RenameFile(sTempDBName,fn);rn exceptrn on e:Exception do beginrn result:=False;rn MessageDlg('数据库压缩修复失败!!'+#13+#13+e.Message,mtError,[mbOK],0);rn end;rn end;rn finallyrn dao:=Unassigned;rn end;rn screen.Cursor:=crDefault;rnend;rnrn请问rn1:OLEVariant 这是什么类型?资料从哪儿找?DELPHI找不了该资料!rn2:dao:=CreateOLEObject('DAO.DBEngine.36');完成会么功能,各参数意义是什么?rn3: dao.compactDatabase(fn,sTempDBName,'',0,';pwd=123 ');完成会么功能,各参数意义是什么?rn4:on e:Exception do 这是什么语句?rn5:dao:=Unassigned;完成会么功能rn上述是我在网上找到的一个完成压缩数据库功能的程序例子,本人想成同上述功能(用的是(SQL做数据库.数据库无密码),但一运行到dao.compactDatabase(fn,sTempDBName,'',0,';pwd=123 ');时提示找不到文件!请教各位问题在哪,有没有更好的代码,最好有分析?谢谢!rn
初学者的疑问!!那位高手能解答
本人学习编程不久,想提高一下编程的基础,比如:循环,递归等,有人建议学学数据结构,说对编程有帮助,但是我认为应该多练些题比较好,数据结构那些问题解决起来也得用循环,递归这些东东,如果通过题的练习,把这些东东练熟了,再学数据结构应该好点吧,或者学数据结构也是为了练习这些?如果这样那就没必要去学了,就练题吧,毕竟没有人要求你用链表或树写东东,太复杂的数据结构,数据库就能搞定了,真不知道数据结构这东东该不该学
各位高手,能解答一下的么?
各位高手,asp作为主页面,外接一个js的,我想问一下能否在js里面调用asp的变量值,如果能这些值是怎么传递过去的呢?迷糊,请解答!!
WIN7文件上传问题,希望高手能解答下!
前两天装的WIN7系统,发现以前做的网站上传图片功能不能用了rnrnADODB.Stream 错误 '800a0bbc' rnrn写入文件失败。 rnrn/aoleisport/admin/UpLoadClass.asp,行 106 rnrn上面是报的错,文件夹的权限Everyone ,guest都设了 还是不行
哪位高手能帮我解答一下 谢谢
什么是自动建站系统,一直很不明白。
菜鸟求救,请各位高手能解答~
请问做登陆系统的时候,怎么去调用数据库的用户名和密码来核对啊? 可以给原代码吗??或者流下QQ一起交流一下,谢谢~
遇到的一个小问题,希望高手能解答
想使用map容器记录连续几个时间段的消息,但是map容器的键是不可以修改的,c++中有没有键和值都可以修改的东西,我想用一个“键”来存时间作标志,不断变化
一道面试题,希望高手能解答
有一个表名字为test 两个字段testID 类型char(10) 和 testname 类型 varchar(50)rnrn要求写一个触发器在插入新的数据之前自动为testID赋值 rnrn规则如 当前的日期为2005年6月24日则testID为 05062400001 第二条记录就为05062400002,第二条记录就为05062400003……rnrn前6位字符随日期变动,后五位为增长的。rnrn请高手指教?rnrn这个触发器如何写?
我估计这个问题只有少数人能解答!!!!!!
下面是我引入的一个类型库(CDO for Windows 2000),我要在我的程序中响应它的OnArrival事件,该怎么做:rnunit CDO_TLB;rnrn// ************************************************************************ //rn// WARNING rn// ------- rn// The types declared in this file were generated from data read from a rn// Type Library. If this type library is explicitly or indirectly (via rn// another type library referring to this type library) re-imported, or the rn// 'Refresh' command of the Type Library Editor activated while editing the rn// Type Library, the contents of this file will be regenerated and all rn// manual modifications will be lost. rn// ************************************************************************ //rnrn// PASTLWTR : $Revision: 1.88.1.0.1.0 $rn// File generated on 2001-6-13 22:11:24 from Type Library described below.rnrn// *************************************************************************//rn// NOTE: rn// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties rn// which return objects that may need to be explicitly created via a function rn// call prior to any access via the property. These items have been disabled rn// in order to prevent accidental use from within the object inspector. You rn// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively rn// removing them from the $IFDEF blocks. However, such items must still be rn// programmatically created via a method of the appropriate CoClass before rn// they can be used. rn// ************************************************************************ //rn// Type Lib: C:\WINDOWS\system32\cdosys.dll (1)rn// IID\LCID: CD000000-8B95-11D1-82DB-00C04FB1625D\0rn// Helpfile: C:\WINDOWS\system32\cdosys.chmrn// DepndLst: rn// (1) v2.0 stdole, (C:\WINDOWS\System32\stdole2.tlb)rn// (2) v2.5 ADODB, (C:\Program Files\Common Files\System\ado\msado25.tlb)rn// (3) v4.0 StdVCL, (C:\WINDOWS\System32\STDVCL40.DLL)rn// Errors:rn// Hint: Parameter 'Interface' of IBodyPart.GetInterface changed to 'Interface_'rn// Hint: Parameter 'var' of IMessages.FileName changed to 'var_'rn// Hint: Member 'To' of 'IMessage' changed to 'To_'rn// Hint: Parameter 'Interface' of IMessage.GetInterface changed to 'Interface_'rn// Hint: Parameter 'Interface' of IConfiguration.GetInterface changed to 'Interface_'rn// Hint: Parameter 'Interface' of IGetInterface.GetInterface changed to 'Interface_'rn// Hint: Parameter 'Interface' of IGetInterface.GetInterfaceInner changed to 'Interface_'rn// Error creating palette bitmap of (TMessage) : Server C:\PROGRA~1\COMMON~1\MICROS~1\CDO\CDOEX.DLL contains no iconsrn// Error creating palette bitmap of (TConfiguration) : Server C:\PROGRA~1\COMMON~1\MICROS~1\CDO\CDOEX.DLL contains no iconsrn// Error creating palette bitmap of (TDropDirectory) : Server C:\PROGRA~1\COMMON~1\MICROS~1\CDO\CDOEX.DLL contains no iconsrn// ************************************************************************ //rn$TYPEDADDRESS OFF // Unit must be compiled without type-checked pointers. rninterfacernrnuses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL, rn ADODB_TLB;rnrn// *********************************************************************//rn// GUIDS declared in the TypeLibrary. Following prefixes are used: rn// Type Libraries : LIBID_xxxx rn// CoClasses : CLASS_xxxx rn// DISPInterfaces : DIID_xxxx rn// Non-DISP interfaces: IID_xxxx rn// *********************************************************************//rnconstrn // TypeLibrary Major and minor versionsrn CDOMajorVersion = 1;rn CDOMinorVersion = 0;rnrn LIBID_CDO: TGUID = 'CD000000-8B95-11D1-82DB-00C04FB1625D';rnrn IID_IBodyParts: TGUID = 'CD000023-8B95-11D1-82DB-00C04FB1625D';rn IID_IBodyPart: TGUID = 'CD000021-8B95-11D1-82DB-00C04FB1625D';rn IID_IDataSource: TGUID = 'CD000029-8B95-11D1-82DB-00C04FB1625D';rn IID_IMessages: TGUID = 'CD000025-8B95-11D1-82DB-00C04FB1625D';rn IID_IMessage: TGUID = 'CD000020-8B95-11D1-82DB-00C04FB1625D';rn IID_IConfiguration: TGUID = 'CD000022-8B95-11D1-82DB-00C04FB1625D';rn CLASS_Message: TGUID = 'CD000001-8B95-11D1-82DB-00C04FB1625D';rn CLASS_Configuration: TGUID = 'CD000002-8B95-11D1-82DB-00C04FB1625D';rn IID_IDropDirectory: TGUID = 'CD000024-8B95-11D1-82DB-00C04FB1625D';rn CLASS_DropDirectory: TGUID = 'CD000004-8B95-11D1-82DB-00C04FB1625D';rn IID_ISMTPScriptConnector: TGUID = 'CD000030-8B95-11D1-82DB-00C04FB1625D';rn IID_ISMTPOnArrival: TGUID = 'CD000026-8B95-11D1-82DB-00C04FB1625D';rn CLASS_SMTPConnector: TGUID = 'CD000008-8B95-11D1-82DB-00C04FB1625D';rn IID_INNTPEarlyScriptConnector: TGUID = 'CD000034-8B95-11D1-82DB-00C04FB1625D';rn IID_INNTPOnPostEarly: TGUID = 'CD000033-8B95-11D1-82DB-00C04FB1625D';rn CLASS_NNTPEarlyConnector: TGUID = 'CD000011-8B95-11D1-82DB-00C04FB1625D';rn IID_INNTPPostScriptConnector: TGUID = 'CD000031-8B95-11D1-82DB-00C04FB1625D';rn IID_INNTPOnPost: TGUID = 'CD000027-8B95-11D1-82DB-00C04FB1625D';rn CLASS_NNTPPostConnector: TGUID = 'CD000009-8B95-11D1-82DB-00C04FB1625D';rn IID_INNTPFinalScriptConnector: TGUID = 'CD000032-8B95-11D1-82DB-00C04FB1625D';rn IID_INNTPOnPostFinal: TGUID = 'CD000028-8B95-11D1-82DB-00C04FB1625D';rn CLASS_NNTPFinalConnector: TGUID = 'CD000010-8B95-11D1-82DB-00C04FB1625D';rn IID_IGetInterface: TGUID = 'CD0FF000-8B95-11D1-82DB-00C04FB1625D';rnrn// *********************************************************************//rn// Declaration of Enumerations defined in Type Library rn// *********************************************************************//rn// Constants for enum CdoConfigSourcerntypern CdoConfigSource = TOleEnum;rnconstrn cdoDefaults = $FFFFFFFF;rn cdoIIS = $00000001;rn cdoOutlookExpress = $00000002;rnrn// Constants for enum CdoDSNOptionsrntypern CdoDSNOptions = TOleEnum;rnconstrn cdoDSNDefault = $00000000;rn cdoDSNNever = $00000001;rn cdoDSNFailure = $00000002;rn cdoDSNSuccess = $00000004;rn cdoDSNDelay = $00000008;rn cdoDSNSuccessFailOrDelay = $0000000E;rnrn// Constants for enum CdoEventStatusrntypern CdoEventStatus = TOleEnum;rnconstrn cdoRunNextSink = $00000000;rn cdoSkipRemainingSinks = $00000001;rnrn// Constants for enum cdoImportanceValuesrntypern cdoImportanceValues = TOleEnum;rnconstrn cdoLow = $00000000;rn cdoNormal = $00000001;rn cdoHigh = $00000002;rnrn// Constants for enum CdoMessageStatrntypern CdoMessageStat = TOleEnum;rnconstrn cdoStatSuccess = $00000000;rn cdoStatAbortDelivery = $00000002;rn cdoStatBadMail = $00000003;rnrn// Constants for enum CdoMHTMLFlagsrntypern CdoMHTMLFlags = TOleEnum;rnconstrn cdoSuppressNone = $00000000;rn cdoSuppressImages = $00000001;rn cdoSuppressBGSounds = $00000002;rn cdoSuppressFrames = $00000004;rn cdoSuppressObjects = $00000008;rn cdoSuppressStyleSheets = $00000010;rn cdoSuppressAll = $0000001F;rnrn// Constants for enum CdoNNTPProcessingFieldrntypern CdoNNTPProcessingField = TOleEnum;rnconstrn cdoPostMessage = $00000001;rn cdoProcessControl = $00000002;rn cdoProcessModerator = $00000004;rnrn// Constants for enum CdoPostUsingrntypern CdoPostUsing = TOleEnum;rnconstrn cdoPostUsingPickup = $00000001;rn cdoPostUsingPort = $00000002;rnrn// Constants for enum cdoPriorityValuesrntypern cdoPriorityValues = TOleEnum;rnconstrn cdoPriorityNonUrgent = $FFFFFFFF;rn cdoPriorityNormal = $00000000;rn cdoPriorityUrgent = $00000001;rnrn// Constants for enum CdoProtocolsAuthenticationrntypern CdoProtocolsAuthentication = TOleEnum;rnconstrn cdoAnonymous = $00000000;rn cdoBasic = $00000001;rn cdoNTLM = $00000002;rnrn// Constants for enum CdoReferenceTyperntypern CdoReferenceType = TOleEnum;rnconstrn cdoRefTypeId = $00000000;rn cdoRefTypeLocation = $00000001;rnrn// Constants for enum CdoSendUsingrntypern CdoSendUsing = TOleEnum;rnconstrn cdoSendUsingPickup = $00000001;rn cdoSendUsingPort = $00000002;rnrn// Constants for enum cdoSensitivityValuesrntypern cdoSensitivityValues = TOleEnum;rnconstrn cdoSensitivityNone = $00000000;rn cdoPersonal = $00000001;rn cdoPrivate = $00000002;rn cdoCompanyConfidential = $00000003;rnrn// Constants for enum CdoTimeZoneIdrntypern CdoTimeZoneId = TOleEnum;rnconstrn cdoUTC = $00000000;rn cdoGMT = $00000001;rn cdoLisbon = $00000002;rn cdoParis = $00000003;rn cdoBerlin = $00000004;rn cdoEasternEurope = $00000005;rn cdoPrague = $00000006;rn cdoAthens = $00000007;rn cdoBrasilia = $00000008;rn cdoAtlanticCanada = $00000009;rn cdoEastern = $0000000A;rn cdoCentral = $0000000B;rn cdoMountain = $0000000C;rn cdoPacific = $0000000D;rn cdoAlaska = $0000000E;rn cdoHawaii = $0000000F;rn cdoMidwayIsland = $00000010;rn cdoWellington = $00000011;rn cdoBrisbane = $00000012;rn cdoAdelaide = $00000013;rn cdoTokyo = $00000014;rn cdoHongKong = $00000015;rn cdoBangkok = $00000016;rn cdoBombay = $00000017;rn cdoAbuDhabi = $00000018;rn cdoTehran = $00000019;rn cdoBaghdad = $0000001A;rn cdoIsrael = $0000001B;rn cdoNewfoundland = $0000001C;rn cdoAzores = $0000001D;rn cdoMidAtlantic = $0000001E;rn cdoMonrovia = $0000001F;rn cdoBuenosAires = $00000020;rn cdoCaracas = $00000021;rn cdoIndiana = $00000022;rn cdoBogota = $00000023;rn cdoSaskatchewan = $00000024;rn cdoMexicoCity = $00000025;rn cdoArizona = $00000026;rn cdoEniwetok = $00000027;rn cdoFiji = $00000028;rn cdoMagadan = $00000029;rn cdoHobart = $0000002A;rn cdoGuam = $0000002B;rn cdoDarwin = $0000002C;rn cdoBeijing = $0000002D;rn cdoAlmaty = $0000002E;rn cdoIslamabad = $0000002F;rn cdoKabul = $00000030;rn cdoCairo = $00000031;rn cdoHarare = $00000032;rn cdoMoscow = $00000033;rn cdoInvalidTimeZone = $00000034;rnrntypernrn// *********************************************************************//rn// Forward declaration of types defined in TypeLibrary rn// *********************************************************************//rn IBodyParts = interface;rn IBodyPartsDisp = dispinterface;rn IBodyPart = interface;rn IBodyPartDisp = dispinterface;rn IDataSource = interface;rn IDataSourceDisp = dispinterface;rn IMessages = interface;rn IMessagesDisp = dispinterface;rn IMessage = interface;rn IMessageDisp = dispinterface;rn IConfiguration = interface;rn IConfigurationDisp = dispinterface;rn IDropDirectory = interface;rn IDropDirectoryDisp = dispinterface;rn ISMTPScriptConnector = interface;rn ISMTPScriptConnectorDisp = dispinterface;rn ISMTPOnArrival = interface;rn ISMTPOnArrivalDisp = dispinterface;rn INNTPEarlyScriptConnector = interface;rn INNTPEarlyScriptConnectorDisp = dispinterface;rn INNTPOnPostEarly = interface;rn INNTPOnPostEarlyDisp = dispinterface;rn INNTPPostScriptConnector = interface;rn INNTPPostScriptConnectorDisp = dispinterface;rn INNTPOnPost = interface;rn INNTPOnPostDisp = dispinterface;rn INNTPFinalScriptConnector = interface;rn INNTPFinalScriptConnectorDisp = dispinterface;rn INNTPOnPostFinal = interface;rn INNTPOnPostFinalDisp = dispinterface;rn IGetInterface = interface;rnrn// *********************************************************************//rn// Declaration of CoClasses defined in Type Library rn// (NOTE: Here we map each CoClass to its Default Interface) rn// *********************************************************************//rn Message = IMessage;rn Configuration = IConfiguration;rn DropDirectory = IDropDirectory;rn SMTPConnector = ISMTPScriptConnector;rn NNTPEarlyConnector = INNTPEarlyScriptConnector;rn NNTPPostConnector = INNTPPostScriptConnector;rn NNTPFinalConnector = INNTPFinalScriptConnector;rnrnrn// *********************************************************************//rn// Interface: IBodyPartsrn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000023-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn IBodyParts = interface(IDispatch)rn ['CD000023-8B95-11D1-82DB-00C04FB1625D']rn function Get_Count: Integer; safecall;rn function Get_Item(Index: Integer): IBodyPart; safecall;rn function Get__NewEnum: IUnknown; safecall;rn procedure Delete(varBP: OleVariant); safecall;rn procedure DeleteAll; safecall;rn function Add(Index: Integer): IBodyPart; safecall;rn property Count: Integer read Get_Count;rn property Item[Index: Integer]: IBodyPart read Get_Item; default;rn property _NewEnum: IUnknown read Get__NewEnum;rn end;rnrn// *********************************************************************//rn// DispIntf: IBodyPartsDisprn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000023-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn IBodyPartsDisp = dispinterfacern ['CD000023-8B95-11D1-82DB-00C04FB1625D']rn property Count: Integer readonly dispid 1;rn property Item[Index: Integer]: IBodyPart readonly dispid 0; default;rn property _NewEnum: IUnknown readonly dispid -4;rn procedure Delete(varBP: OleVariant); dispid 2;rn procedure DeleteAll; dispid 3;rn function Add(Index: Integer): IBodyPart; dispid 4;rn end;rnrn// *********************************************************************//rn// Interface: IBodyPartrn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000021-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn IBodyPart = interface(IDispatch)rn ['CD000021-8B95-11D1-82DB-00C04FB1625D']rn function Get_BodyParts: IBodyParts; safecall;rn function Get_ContentTransferEncoding: WideString; safecall;rn procedure Set_ContentTransferEncoding(const pContentTransferEncoding: WideString); safecall;rn function Get_ContentMediaType: WideString; safecall;rn procedure Set_ContentMediaType(const pContentMediaType: WideString); safecall;rn function Get_Fields: Fields; safecall;rn function Get_Charset: WideString; safecall;rn procedure Set_Charset(const pCharset: WideString); safecall;rn function Get_FileName: WideString; safecall;rn function Get_DataSource: IDataSource; safecall;rn function Get_ContentClass: WideString; safecall;rn procedure Set_ContentClass(const pContentClass: WideString); safecall;rn function Get_ContentClassName: WideString; safecall;rn procedure Set_ContentClassName(const pContentClassName: WideString); safecall;rn function Get_Parent: IBodyPart; safecall;rn function AddBodyPart(Index: Integer): IBodyPart; safecall;rn procedure SaveToFile(const FileName: WideString); safecall;rn function GetEncodedContentStream: _Stream; safecall;rn function GetDecodedContentStream: _Stream; safecall;rn function GetStream: _Stream; safecall;rn function GetFieldParameter(const FieldName: WideString; const Parameter: WideString): WideString; safecall;rn function GetInterface(const Interface_: WideString): IDispatch; safecall;rn property BodyParts: IBodyParts read Get_BodyParts;rn property ContentTransferEncoding: WideString read Get_ContentTransferEncoding write Set_ContentTransferEncoding;rn property ContentMediaType: WideString read Get_ContentMediaType write Set_ContentMediaType;rn property Fields: Fields read Get_Fields;rn property Charset: WideString read Get_Charset write Set_Charset;rn property FileName: WideString read Get_FileName;rn property DataSource: IDataSource read Get_DataSource;rn property ContentClass: WideString read Get_ContentClass write Set_ContentClass;rn property ContentClassName: WideString read Get_ContentClassName write Set_ContentClassName;rn property Parent: IBodyPart read Get_Parent;rn end;rnrn// *********************************************************************//rn// DispIntf: IBodyPartDisprn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000021-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn IBodyPartDisp = dispinterfacern ['CD000021-8B95-11D1-82DB-00C04FB1625D']rn property BodyParts: IBodyParts readonly dispid 200;rn property ContentTransferEncoding: WideString dispid 201;rn property ContentMediaType: WideString dispid 202;rn property Fields: Fields readonly dispid 203;rn property Charset: WideString dispid 204;rn property FileName: WideString readonly dispid 205;rn property DataSource: IDataSource readonly dispid 207;rn property ContentClass: WideString dispid 208;rn property ContentClassName: WideString dispid 209;rn property Parent: IBodyPart readonly dispid 210;rn function AddBodyPart(Index: Integer): IBodyPart; dispid 250;rn procedure SaveToFile(const FileName: WideString); dispid 251;rn function GetEncodedContentStream: _Stream; dispid 252;rn function GetDecodedContentStream: _Stream; dispid 253;rn function GetStream: _Stream; dispid 254;rn function GetFieldParameter(const FieldName: WideString; const Parameter: WideString): WideString; dispid 255;rn function GetInterface(const Interface_: WideString): IDispatch; dispid 160;rn end;rnrn// *********************************************************************//rn// Interface: IDataSourcern// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000029-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn IDataSource = interface(IDispatch)rn ['CD000029-8B95-11D1-82DB-00C04FB1625D']rn function Get_SourceClass: WideString; safecall;rn function Get_Source: IUnknown; safecall;rn function Get_IsDirty: WordBool; safecall;rn procedure Set_IsDirty(pIsDirty: WordBool); safecall;rn function Get_SourceURL: WideString; safecall;rn function Get_ActiveConnection: _Connection; safecall;rn procedure SaveToObject(const Source: IUnknown; const InterfaceName: WideString); safecall;rn procedure OpenObject(const Source: IUnknown; const InterfaceName: WideString); safecall;rn procedure SaveTo(const SourceURL: WideString; const ActiveConnection: IDispatch; rn Mode: ConnectModeEnum; CreateOptions: RecordCreateOptionsEnum; rn Options: RecordOpenOptionsEnum; const UserName: WideString; rn const Password: WideString); safecall;rn procedure Open(const SourceURL: WideString; const ActiveConnection: IDispatch; rn Mode: ConnectModeEnum; CreateOptions: RecordCreateOptionsEnum; rn Options: RecordOpenOptionsEnum; const UserName: WideString; rn const Password: WideString); safecall;rn procedure Save; safecall;rn procedure SaveToContainer(const ContainerURL: WideString; const ActiveConnection: IDispatch; rn Mode: ConnectModeEnum; CreateOptions: RecordCreateOptionsEnum; rn Options: RecordOpenOptionsEnum; const UserName: WideString; rn const Password: WideString); safecall;rn property SourceClass: WideString read Get_SourceClass;rn property Source: IUnknown read Get_Source;rn property IsDirty: WordBool read Get_IsDirty write Set_IsDirty;rn property SourceURL: WideString read Get_SourceURL;rn property ActiveConnection: _Connection read Get_ActiveConnection;rn end;rnrn// *********************************************************************//rn// DispIntf: IDataSourceDisprn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000029-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn IDataSourceDisp = dispinterfacern ['CD000029-8B95-11D1-82DB-00C04FB1625D']rn property SourceClass: WideString readonly dispid 207;rn property Source: IUnknown readonly dispid 208;rn property IsDirty: WordBool dispid 209;rn property SourceURL: WideString readonly dispid 210;rn property ActiveConnection: _Connection readonly dispid 211;rn procedure SaveToObject(const Source: IUnknown; const InterfaceName: WideString); dispid 251;rn procedure OpenObject(const Source: IUnknown; const InterfaceName: WideString); dispid 252;rn procedure SaveTo(const SourceURL: WideString; const ActiveConnection: IDispatch; rn Mode: ConnectModeEnum; CreateOptions: RecordCreateOptionsEnum; rn Options: RecordOpenOptionsEnum; const UserName: WideString; rn const Password: WideString); dispid 253;rn procedure Open(const SourceURL: WideString; const ActiveConnection: IDispatch; rn Mode: ConnectModeEnum; CreateOptions: RecordCreateOptionsEnum; rn Options: RecordOpenOptionsEnum; const UserName: WideString; rn const Password: WideString); dispid 254;rn procedure Save; dispid 255;rn procedure SaveToContainer(const ContainerURL: WideString; const ActiveConnection: IDispatch; rn Mode: ConnectModeEnum; CreateOptions: RecordCreateOptionsEnum; rn Options: RecordOpenOptionsEnum; const UserName: WideString; rn const Password: WideString); dispid 256;rn end;rnrn// *********************************************************************//rn// Interface: IMessagesrn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000025-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn IMessages = interface(IDispatch)rn ['CD000025-8B95-11D1-82DB-00C04FB1625D']rn function Get_Item(Index: Integer): IMessage; safecall;rn function Get_Count: Integer; safecall;rn procedure Delete(Index: Integer); safecall;rn procedure DeleteAll; safecall;rn function Get__NewEnum: IUnknown; safecall;rn function Get_FileName(var_: OleVariant): WideString; safecall;rn property Item[Index: Integer]: IMessage read Get_Item; default;rn property Count: Integer read Get_Count;rn property _NewEnum: IUnknown read Get__NewEnum;rn property FileName[var_: OleVariant]: WideString read Get_FileName;rn end;rnrn// *********************************************************************//rn// DispIntf: IMessagesDisprn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000025-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn IMessagesDisp = dispinterfacern ['CD000025-8B95-11D1-82DB-00C04FB1625D']rn property Item[Index: Integer]: IMessage readonly dispid 0; default;rn property Count: Integer readonly dispid 1;rn procedure Delete(Index: Integer); dispid 2;rn procedure DeleteAll; dispid 3;rn property _NewEnum: IUnknown readonly dispid -4;rn property FileName[var_: OleVariant]: WideString readonly dispid 5;rn end;rnrn// *********************************************************************//rn// Interface: IMessagern// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000020-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn IMessage = interface(IDispatch)rn ['CD000020-8B95-11D1-82DB-00C04FB1625D']rn function Get_BCC: WideString; safecall;rn procedure Set_BCC(const pBCC: WideString); safecall;rn function Get_CC: WideString; safecall;rn procedure Set_CC(const pCC: WideString); safecall;rn function Get_FollowUpTo: WideString; safecall;rn procedure Set_FollowUpTo(const pFollowUpTo: WideString); safecall;rn function Get_From: WideString; safecall;rn procedure Set_From(const pFrom: WideString); safecall;rn function Get_Keywords: WideString; safecall;rn procedure Set_Keywords(const pKeywords: WideString); safecall;rn function Get_MimeFormatted: WordBool; safecall;rn procedure Set_MimeFormatted(pMimeFormatted: WordBool); safecall;rn function Get_Newsgroups: WideString; safecall;rn procedure Set_Newsgroups(const pNewsgroups: WideString); safecall;rn function Get_Organization: WideString; safecall;rn procedure Set_Organization(const pOrganization: WideString); safecall;rn function Get_ReceivedTime: TDateTime; safecall;rn function Get_ReplyTo: WideString; safecall;rn procedure Set_ReplyTo(const pReplyTo: WideString); safecall;rn function Get_DSNOptions: CdoDSNOptions; safecall;rn procedure Set_DSNOptions(pDSNOptions: CdoDSNOptions); safecall;rn function Get_SentOn: TDateTime; safecall;rn function Get_Subject: WideString; safecall;rn procedure Set_Subject(const pSubject: WideString); safecall;rn function Get_To_: WideString; safecall;rn procedure Set_To_(const pTo: WideString); safecall;rn function Get_TextBody: WideString; safecall;rn procedure Set_TextBody(const pTextBody: WideString); safecall;rn function Get_HTMLBody: WideString; safecall;rn procedure Set_HTMLBody(const pHTMLBody: WideString); safecall;rn function Get_Attachments: IBodyParts; safecall;rn function Get_Sender: WideString; safecall;rn procedure Set_Sender(const pSender: WideString); safecall;rn function Get_Configuration: IConfiguration; safecall;rn procedure _Set_Configuration(const pConfiguration: IConfiguration); safecall;rn procedure Set_Configuration(const pConfiguration: IConfiguration); safecall;rn function Get_AutoGenerateTextBody: WordBool; safecall;rn procedure Set_AutoGenerateTextBody(pAutoGenerateTextBody: WordBool); safecall;rn function Get_EnvelopeFields: Fields; safecall;rn function Get_TextBodyPart: IBodyPart; safecall;rn function Get_HTMLBodyPart: IBodyPart; safecall;rn function Get_BodyPart: IBodyPart; safecall;rn function Get_DataSource: IDataSource; safecall;rn function Get_Fields: Fields; safecall;rn function Get_MDNRequested: WordBool; safecall;rn procedure Set_MDNRequested(pMDNRequested: WordBool); safecall;rn function AddRelatedBodyPart(const URL: WideString; const Reference: WideString; rn ReferenceType: CdoReferenceType; const UserName: WideString; rn const Password: WideString): IBodyPart; safecall;rn function AddAttachment(const URL: WideString; const UserName: WideString; rn const Password: WideString): IBodyPart; safecall;rn procedure CreateMHTMLBody(const URL: WideString; Flags: CdoMHTMLFlags; rn const UserName: WideString; const Password: WideString); safecall;rn function Forward: IMessage; safecall;rn procedure Post; safecall;rn function PostReply: IMessage; safecall;rn function Reply: IMessage; safecall;rn function ReplyAll: IMessage; safecall;rn procedure Send; safecall;rn function GetStream: _Stream; safecall;rn function GetInterface(const Interface_: WideString): IDispatch; safecall;rn property BCC: WideString read Get_BCC write Set_BCC;rn property CC: WideString read Get_CC write Set_CC;rn property FollowUpTo: WideString read Get_FollowUpTo write Set_FollowUpTo;rn property From: WideString read Get_From write Set_From;rn property Keywords: WideString read Get_Keywords write Set_Keywords;rn property MimeFormatted: WordBool read Get_MimeFormatted write Set_MimeFormatted;rn property Newsgroups: WideString read Get_Newsgroups write Set_Newsgroups;rn property Organization: WideString read Get_Organization write Set_Organization;rn property ReceivedTime: TDateTime read Get_ReceivedTime;rn property ReplyTo: WideString read Get_ReplyTo write Set_ReplyTo;rn property DSNOptions: CdoDSNOptions read Get_DSNOptions write Set_DSNOptions;rn property SentOn: TDateTime read Get_SentOn;rn property Subject: WideString read Get_Subject write Set_Subject;rn property To_: WideString read Get_To_ write Set_To_;rn property TextBody: WideString read Get_TextBody write Set_TextBody;rn property HTMLBody: WideString read Get_HTMLBody write Set_HTMLBody;rn property Attachments: IBodyParts read Get_Attachments;rn property Sender: WideString read Get_Sender write Set_Sender;rn property Configuration: IConfiguration read Get_Configuration write _Set_Configuration;rn property AutoGenerateTextBody: WordBool read Get_AutoGenerateTextBody write Set_AutoGenerateTextBody;rn property EnvelopeFields: Fields read Get_EnvelopeFields;rn property TextBodyPart: IBodyPart read Get_TextBodyPart;rn property HTMLBodyPart: IBodyPart read Get_HTMLBodyPart;rn property BodyPart: IBodyPart read Get_BodyPart;rn property DataSource: IDataSource read Get_DataSource;rn property Fields: Fields read Get_Fields;rn property MDNRequested: WordBool read Get_MDNRequested write Set_MDNRequested;rn end;rnrn// *********************************************************************//rn// DispIntf: IMessageDisprn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000020-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn IMessageDisp = dispinterfacern ['CD000020-8B95-11D1-82DB-00C04FB1625D']rn property BCC: WideString dispid 101;rn property CC: WideString dispid 103;rn property FollowUpTo: WideString dispid 105;rn property From: WideString dispid 106;rn property Keywords: WideString dispid 107;rn property MimeFormatted: WordBool dispid 110;rn property Newsgroups: WideString dispid 111;rn property Organization: WideString dispid 112;rn property ReceivedTime: TDateTime readonly dispid 114;rn property ReplyTo: WideString dispid 115;rn property DSNOptions: CdoDSNOptions dispid 116;rn property SentOn: TDateTime readonly dispid 119;rn property Subject: WideString dispid 120;rn property To_: WideString dispid 121;rn property TextBody: WideString dispid 123;rn property HTMLBody: WideString dispid 124;rn property Attachments: IBodyParts readonly dispid 125;rn property Sender: WideString dispid 126;rn property Configuration: IConfiguration dispid 127;rn property AutoGenerateTextBody: WordBool dispid 128;rn property EnvelopeFields: Fields readonly dispid 129;rn property TextBodyPart: IBodyPart readonly dispid 130;rn property HTMLBodyPart: IBodyPart readonly dispid 131;rn property BodyPart: IBodyPart readonly dispid 132;rn property DataSource: IDataSource readonly dispid 133;rn property Fields: Fields readonly dispid 134;rn property MDNRequested: WordBool dispid 135;rn function AddRelatedBodyPart(const URL: WideString; const Reference: WideString; rn ReferenceType: CdoReferenceType; const UserName: WideString; rn const Password: WideString): IBodyPart; dispid 150;rn function AddAttachment(const URL: WideString; const UserName: WideString; rn const Password: WideString): IBodyPart; dispid 151;rn procedure CreateMHTMLBody(const URL: WideString; Flags: CdoMHTMLFlags; rn const UserName: WideString; const Password: WideString); dispid 152;rn function Forward: IMessage; dispid 153;rn procedure Post; dispid 154;rn function PostReply: IMessage; dispid 155;rn function Reply: IMessage; dispid 156;rn function ReplyAll: IMessage; dispid 157;rn procedure Send; dispid 158;rn function GetStream: _Stream; dispid 159;rn function GetInterface(const Interface_: WideString): IDispatch; dispid 160;rn end;rnrn// *********************************************************************//rn// Interface: IConfigurationrn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000022-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn IConfiguration = interface(IDispatch)rn ['CD000022-8B95-11D1-82DB-00C04FB1625D']rn function Get_Fields: Fields; safecall;rn procedure Load(LoadFrom: CdoConfigSource; const URL: WideString); safecall;rn function GetInterface(const Interface_: WideString): IDispatch; safecall;rn property Fields: Fields read Get_Fields;rn end;rnrn// *********************************************************************//rn// DispIntf: IConfigurationDisprn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000022-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn IConfigurationDisp = dispinterfacern ['CD000022-8B95-11D1-82DB-00C04FB1625D']rn property Fields: Fields readonly dispid 0;rn procedure Load(LoadFrom: CdoConfigSource; const URL: WideString); dispid 50;rn function GetInterface(const Interface_: WideString): IDispatch; dispid 160;rn end;rnrn// *********************************************************************//rn// Interface: IDropDirectoryrn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000024-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn IDropDirectory = interface(IDispatch)rn ['CD000024-8B95-11D1-82DB-00C04FB1625D']rn function GetMessages(const DirName: WideString): IMessages; safecall;rn end;rnrn// *********************************************************************//rn// DispIntf: IDropDirectoryDisprn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000024-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn IDropDirectoryDisp = dispinterfacern ['CD000024-8B95-11D1-82DB-00C04FB1625D']rn function GetMessages(const DirName: WideString): IMessages; dispid 200;rn end;rnrn// *********************************************************************//rn// Interface: ISMTPScriptConnectorrn// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000030-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn ISMTPScriptConnector = interface(IDispatch)rn ['CD000030-8B95-11D1-82DB-00C04FB1625D']rn end;rnrn// *********************************************************************//rn// DispIntf: ISMTPScriptConnectorDisprn// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000030-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn ISMTPScriptConnectorDisp = dispinterfacern ['CD000030-8B95-11D1-82DB-00C04FB1625D']rn end;rnrn// *********************************************************************//rn// Interface: ISMTPOnArrivalrn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000026-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn ISMTPOnArrival = interface(IDispatch)rn ['CD000026-8B95-11D1-82DB-00C04FB1625D']rn procedure OnArrival(const Msg: IMessage; var EventStatus: CdoEventStatus); safecall;rn end;rnrn// *********************************************************************//rn// DispIntf: ISMTPOnArrivalDisprn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000026-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn ISMTPOnArrivalDisp = dispinterfacern ['CD000026-8B95-11D1-82DB-00C04FB1625D']rn procedure OnArrival(const Msg: IMessage; var EventStatus: CdoEventStatus); dispid 256;rn end;rnrn// *********************************************************************//rn// Interface: INNTPEarlyScriptConnectorrn// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000034-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn INNTPEarlyScriptConnector = interface(IDispatch)rn ['CD000034-8B95-11D1-82DB-00C04FB1625D']rn end;rnrn// *********************************************************************//rn// DispIntf: INNTPEarlyScriptConnectorDisprn// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000034-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn INNTPEarlyScriptConnectorDisp = dispinterfacern ['CD000034-8B95-11D1-82DB-00C04FB1625D']rn end;rnrn// *********************************************************************//rn// Interface: INNTPOnPostEarlyrn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000033-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn INNTPOnPostEarly = interface(IDispatch)rn ['CD000033-8B95-11D1-82DB-00C04FB1625D']rn procedure OnPostEarly(const Msg: IMessage; var EventStatus: CdoEventStatus); safecall;rn end;rnrn// *********************************************************************//rn// DispIntf: INNTPOnPostEarlyDisprn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000033-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn INNTPOnPostEarlyDisp = dispinterfacern ['CD000033-8B95-11D1-82DB-00C04FB1625D']rn procedure OnPostEarly(const Msg: IMessage; var EventStatus: CdoEventStatus); dispid 256;rn end;rnrn// *********************************************************************//rn// Interface: INNTPPostScriptConnectorrn// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000031-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn INNTPPostScriptConnector = interface(IDispatch)rn ['CD000031-8B95-11D1-82DB-00C04FB1625D']rn end;rnrn// *********************************************************************//rn// DispIntf: INNTPPostScriptConnectorDisprn// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000031-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn INNTPPostScriptConnectorDisp = dispinterfacern ['CD000031-8B95-11D1-82DB-00C04FB1625D']rn end;rnrn// *********************************************************************//rn// Interface: INNTPOnPostrn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000027-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn INNTPOnPost = interface(IDispatch)rn ['CD000027-8B95-11D1-82DB-00C04FB1625D']rn procedure OnPost(const Msg: IMessage; var EventStatus: CdoEventStatus); safecall;rn end;rnrn// *********************************************************************//rn// DispIntf: INNTPOnPostDisprn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000027-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn INNTPOnPostDisp = dispinterfacern ['CD000027-8B95-11D1-82DB-00C04FB1625D']rn procedure OnPost(const Msg: IMessage; var EventStatus: CdoEventStatus); dispid 256;rn end;rnrn// *********************************************************************//rn// Interface: INNTPFinalScriptConnectorrn// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000032-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn INNTPFinalScriptConnector = interface(IDispatch)rn ['CD000032-8B95-11D1-82DB-00C04FB1625D']rn end;rnrn// *********************************************************************//rn// DispIntf: INNTPFinalScriptConnectorDisprn// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000032-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn INNTPFinalScriptConnectorDisp = dispinterfacern ['CD000032-8B95-11D1-82DB-00C04FB1625D']rn end;rnrn// *********************************************************************//rn// Interface: INNTPOnPostFinalrn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000028-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn INNTPOnPostFinal = interface(IDispatch)rn ['CD000028-8B95-11D1-82DB-00C04FB1625D']rn procedure OnPostFinal(const Msg: IMessage; var EventStatus: CdoEventStatus); safecall;rn end;rnrn// *********************************************************************//rn// DispIntf: INNTPOnPostFinalDisprn// Flags: (4544) Dual NonExtensible OleAutomation Dispatchablern// GUID: CD000028-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn INNTPOnPostFinalDisp = dispinterfacern ['CD000028-8B95-11D1-82DB-00C04FB1625D']rn procedure OnPostFinal(const Msg: IMessage; var EventStatus: CdoEventStatus); dispid 256;rn end;rnrn// *********************************************************************//rn// Interface: IGetInterfacern// Flags: (0)rn// GUID: CD0FF000-8B95-11D1-82DB-00C04FB1625Drn// *********************************************************************//rn IGetInterface = interface(IUnknown)rn ['CD0FF000-8B95-11D1-82DB-00C04FB1625D']rn function GetInterface(const Interface_: WideString; out ppUnknown: IDispatch): HResult; stdcall;rn function GetInterfaceInner(const Interface_: WideString; out ppUnknown: IDispatch): HResult; stdcall;rn end;rnrn// *********************************************************************//rn// The Class CoMessage provides a Create and CreateRemote method to rn// create instances of the default interface IMessage exposed by rn// the CoClass Message. The functions are intended to be used by rn// clients wishing to automate the CoClass objects exposed by the rn// server of this typelibrary. rn// *********************************************************************//rn CoMessage = classrn class function Create: IMessage;rn class function CreateRemote(const MachineName: string): IMessage;rn end;rnrnrn// *********************************************************************//rn// OLE Server Proxy class declarationrn// Server Object : TMessagern// Help String : Defines an object used to manage or create a complete messagern// Default Interface: IMessagern// Def. Intf. DISP? : Norn// Event Interface: rn// TypeFlags : (2) CanCreatern// *********************************************************************//rn$IFDEF LIVE_SERVER_AT_DESIGN_TIMErn TMessageProperties= class;rn$ENDIFrn TMessage = class(TOleServer)rn privatern FIntf: IMessage;rn$IFDEF LIVE_SERVER_AT_DESIGN_TIMErn FProps: TMessageProperties;rn function GetServerProperties: TMessageProperties;rn$ENDIFrn function GetDefaultInterface: IMessage;rn protectedrn procedure InitServerData; override;rn function Get_BCC: WideString;rn procedure Set_BCC(const pBCC: WideString);rn function Get_CC: WideString;rn procedure Set_CC(const pCC: WideString);rn function Get_FollowUpTo: WideString;rn procedure Set_FollowUpTo(const pFollowUpTo: WideString);rn function Get_From: WideString;rn procedure Set_From(const pFrom: WideString);rn function Get_Keywords: WideString;rn procedure Set_Keywords(const pKeywords: WideString);rn function Get_MimeFormatted: WordBool;rn procedure Set_MimeFormatted(pMimeFormatted: WordBool);rn function Get_Newsgroups: WideString;rn procedure Set_Newsgroups(const pNewsgroups: WideString);rn function Get_Organization: WideString;rn procedure Set_Organization(const pOrganization: WideString);rn function Get_ReceivedTime: TDateTime;rn function Get_ReplyTo: WideString;rn procedure Set_ReplyTo(const pReplyTo: WideString);rn function Get_DSNOptions: CdoDSNOptions;rn procedure Set_DSNOptions(pDSNOptions: CdoDSNOptions);rn function Get_SentOn: TDateTime;rn function Get_Subject: WideString;rn procedure Set_Subject(const pSubject: WideString);rn function Get_To_: WideString;rn procedure Set_To_(const pTo: WideString);rn function Get_TextBody: WideString;rn procedure Set_TextBody(const pTextBody: WideString);rn function Get_HTMLBody: WideString;rn procedure Set_HTMLBody(const pHTMLBody: WideString);rn function Get_Attachments: IBodyParts;rn function Get_Sender: WideString;rn procedure Set_Sender(const pSender: WideString);rn function Get_Configuration: IConfiguration;rn procedure _Set_Configuration(const pConfiguration: IConfiguration);rn procedure Set_Configuration(const pConfiguration: IConfiguration);rn function Get_AutoGenerateTextBody: WordBool;rn procedure Set_AutoGenerateTextBody(pAutoGenerateTextBody: WordBool);rn function Get_EnvelopeFields: Fields;rn function Get_TextBodyPart: IBodyPart;rn function Get_HTMLBodyPart: IBodyPart;rn function Get_BodyPart: IBodyPart;rn function Get_DataSource: IDataSource;rn function Get_Fields: Fields;rn function Get_MDNRequested: WordBool;rn procedure Set_MDNRequested(pMDNRequested: WordBool);rn publicrn constructor Create(AOwner: TComponent); override;rn destructor Destroy; override;rn procedure Connect; override;rn procedure ConnectTo(svrIntf: IMessage);rn procedure Disconnect; override;rn function AddRelatedBodyPart(const URL: WideString; const Reference: WideString; rn ReferenceType: CdoReferenceType; const UserName: WideString; rn const Password: WideString): IBodyPart;rn function AddAttachment(const URL: WideString; const UserName: WideString; rn const Password: WideString): IBodyPart;rn procedure CreateMHTMLBody(const URL: WideString; Flags: CdoMHTMLFlags; rn const UserName: WideString; const Password: WideString);rn function Forward: IMessage;rn procedure Post;rn function PostReply: IMessage;rn function Reply: IMessage;rn function ReplyAll: IMessage;rn procedure Send;rn function GetStream: _Stream;rn function GetInterface(const Interface_: WideString): IDispatch;rn property DefaultInterface: IMessage read GetDefaultInterface;rn property ReceivedTime: TDateTime read Get_ReceivedTime;rn property SentOn: TDateTime read Get_SentOn;rn property Attachments: IBodyParts read Get_Attachments;rn property EnvelopeFields: Fields read Get_EnvelopeFields;rn property TextBodyPart: IBodyPart read Get_TextBodyPart;rn property HTMLBodyPart: IBodyPart read Get_HTMLBodyPart;rn property BodyPart: IBodyPart read Get_BodyPart;rn property DataSource: IDataSource read Get_DataSource;rn property Fields: Fields read Get_Fields;rn property BCC: WideString read Get_BCC write Set_BCC;rn property CC: WideString read Get_CC write Set_CC;rn property FollowUpTo: WideString read Get_FollowUpTo write Set_FollowUpTo;rn property From: WideString read Get_From write Set_From;rn property Keywords: WideString read Get_Keywords write Set_Keywords;rn property MimeFormatted: WordBool read Get_MimeFormatted write Set_MimeFormatted;rn property Newsgroups: WideString read Get_Newsgroups write Set_Newsgroups;rn property Organization: WideString read Get_Organization write Set_Organization;rn property ReplyTo: WideString read Get_ReplyTo write Set_ReplyTo;rn property DSNOptions: CdoDSNOptions read Get_DSNOptions write Set_DSNOptions;rn property Subject: WideString read Get_Subject write Set_Subject;rn property To_: WideString read Get_To_ write Set_To_;rn property TextBody: WideString read Get_TextBody write Set_TextBody;rn property HTMLBody: WideString read Get_HTMLBody write Set_HTMLBody;rn property Sender: WideString read Get_Sender write Set_Sender;rn property Configuration: IConfiguration read Get_Configuration write Set_Configuration;rn property AutoGenerateTextBody: WordBool read Get_AutoGenerateTextBody write Set_AutoGenerateTextBody;rn property MDNRequested: WordBool read Get_MDNRequested write Set_MDNRequested;rn publishedrn$IFDEF LIVE_SERVER_AT_DESIGN_TIMErn property Server: TMessageProperties read GetServerProperties;rn$ENDIFrn end;rnrn$IFDEF LIVE_SERVER_AT_DESIGN_TIMErn// *********************************************************************//rn// OLE Server Properties Proxy Classrn// Server Object : TMessagern// (This object is used by the IDE's Property Inspector to allow editingrn// of the properties of this server)rn// *********************************************************************//rn TMessageProperties = class(TPersistent)rn privatern FServer: TMessage;rn function GetDefaultInterface: IMessage;rn constructor Create(AServer: TMessage);rn protectedrn function Get_BCC: WideString;rn procedure Set_BCC(const pBCC: WideString);rn function Get_CC: WideString;rn procedure Set_CC(const pCC: WideString);rn function Get_FollowUpTo: WideString;rn procedure Set_FollowUpTo(const pFollowUpTo: WideString);rn function Get_From: WideString;rn procedure Set_From(const pFrom: WideString);rn function Get_Keywords: WideString;rn procedure Set_Keywords(const pKeywords: WideString);rn function Get_MimeFormatted: WordBool;rn procedure Set_MimeFormatted(pMimeFormatted: WordBool);rn function Get_Newsgroups: WideString;rn procedure Set_Newsgroups(const pNewsgroups: WideString);rn function Get_Organization: WideString;rn procedure Set_Organization(const pOrganization: WideString);rn function Get_ReceivedTime: TDateTime;rn function Get_ReplyTo: WideString;rn procedure Set_ReplyTo(const pReplyTo: WideString);rn function Get_DSNOptions: CdoDSNOptions;rn procedure Set_DSNOptions(pDSNOptions: CdoDSNOptions);rn function Get_SentOn: TDateTime;rn function Get_Subject: WideString;rn procedure Set_Subject(const pSubject: WideString);rn function Get_To_: WideString;rn procedure Set_To_(const pTo: WideString);rn function Get_TextBody: WideString;rn procedure Set_TextBody(const pTextBody: WideString);rn function Get_HTMLBody: WideString;rn procedure Set_HTMLBody(const pHTMLBody: WideString);rn function Get_Attachments: IBodyParts;rn function Get_Sender: WideString;rn procedure Set_Sender(const pSender: WideString);rn function Get_Configuration: IConfiguration;rn procedure _Set_Configuration(const pConfiguration: IConfiguration);rn procedure Set_Configuration(const pConfiguration: IConfiguration);rn function Get_AutoGenerateTextBody: WordBool;rn procedure Set_AutoGenerateTextBody(pAutoGenerateTextBody: WordBool);rn function Get_EnvelopeFields: Fields;rn function Get_TextBodyPart: IBodyPart;rn function Get_HTMLBodyPart: IBodyPart;rn function Get_BodyPart: IBodyPart;rn function Get_DataSource: IDataSource;rn function Get_Fields: Fields;rn function Get_MDNRequested: WordBool;rn procedure Set_MDNRequested(pMDNRequested: WordBool);rn publicrn property DefaultInterface: IMessage read GetDefaultInterface;rn publishedrn property BCC: WideString read Get_BCC write Set_BCC;rn property CC: WideString read Get_CC write Set_CC;rn property FollowUpTo: WideString read Get_FollowUpTo write Set_FollowUpTo;rn property From: WideString read Get_From write Set_From;rn property Keywords: WideString read Get_Keywords write Set_Keywords;rn property MimeFormatted: WordBool read Get_MimeFormatted write Set_MimeFormatted;rn property Newsgroups: WideString read Get_Newsgroups write Set_Newsgroups;rn property Organization: WideString read Get_Organization write Set_Organization;rn property ReplyTo: WideString read Get_ReplyTo write Set_ReplyTo;rn property DSNOptions: CdoDSNOptions read Get_DSNOptions write Set_DSNOptions;rn property Subject: WideString read Get_Subject write Set_Subject;rn property To_: WideString read Get_To_ write Set_To_;rn property TextBody: WideString read Get_TextBody write Set_TextBody;rn property HTMLBody: WideString read Get_HTMLBody write Set_HTMLBody;rn property Sender: WideString read Get_Sender write Set_Sender;rn property Configuration: IConfiguration read Get_Configuration write Set_Configuration;rn property AutoGenerateTextBody: WordBool read Get_AutoGenerateTextBody write Set_AutoGenerateTextBody;rn property MDNRequested: WordBool read Get_MDNRequested write Set_MDNRequested;rn end;rn$ENDIFrnrnrn// *********************************************************************//rn// The Class CoConfiguration provides a Create and CreateRemote method to rn// create instances of the default interface IConfiguration exposed by rn// the CoClass Configuration. The functions are intended to be used by rn// clients wishing to automate the CoClass objects exposed by the rn// server of this typelibrary. rn// *********************************************************************//rn CoConfiguration = classrn class function Create: IConfiguration;rn class function CreateRemote(const MachineName: string): IConfiguration;rn end;rnrnrn// *********************************************************************//rn// OLE Server Proxy class declarationrn// Server Object : TConfigurationrn// Help String : Defines an object used to store configuration information for CDO objectsrn// Default Interface: IConfigurationrn// Def. Intf. DISP? : Norn// Event Interface: rn// TypeFlags : (2) CanCreatern// *********************************************************************//rn$IFDEF LIVE_SERVER_AT_DESIGN_TIMErn TConfigurationProperties= class;rn$ENDIFrn TConfiguration = class(TOleServer)rn privatern FIntf: IConfiguration;rn$IFDEF LIVE_SERVER_AT_DESIGN_TIMErn FProps: TConfigurationProperties;rn function GetServerProperties: TConfigurationProperties;rn$ENDIFrn function GetDefaultInterface: IConfiguration;rn protectedrn procedure InitServerData; override;rn function Get_Fields: Fields;rn publicrn constructor Create(AOwner: TComponent); override;rn destructor Destroy; override;rn procedure Connect; override;rn procedure ConnectTo(svrIntf: IConfiguration);rn procedure Disconnect; override;rn procedure Load(LoadFrom: CdoConfigSource; const URL: WideString);rn function GetInterface(const Interface_: WideString): IDispatch;rn property DefaultInterface: IConfiguration read GetDefaultInterface;rn property Fields: Fields read Get_Fields;rn publishedrn$IFDEF LIVE_SERVER_AT_DESIGN_TIMErn property Server: TConfigurationProperties read GetServerProperties;rn$ENDIFrn end;rnrn$IFDEF LIVE_SERVER_AT_DESIGN_TIMErn// *********************************************************************//rn// OLE Server Properties Proxy Classrn// Server Object : TConfigurationrn// (This object is used by the IDE's Property Inspector to allow editingrn// of the properties of this server)rn// *********************************************************************//rn TConfigurationProperties = class(TPersistent)rn privatern FServer: TConfiguration;rn function GetDefaultInterface: IConfiguration;rn constructor Create(AServer: TConfiguration);rn protectedrn function Get_Fields: Fields;rn publicrn property DefaultInterface: IConfiguration read GetDefaultInterface;rn publishedrn end;rn$ENDIFrnrnrn// *********************************************************************//rn// The Class CoDropDirectory provides a Create and CreateRemote method to rn// create instances of the default interface IDropDirectory exposed by rn// the CoClass DropDirectory. The functions are intended to be used by rn// clients wishing to automate the CoClass objects exposed by the rn// server of this typelibrary. rn// *********************************************************************//rn CoDropDirectory = classrn class function Create: IDropDirectory;rn class function CreateRemote(const MachineName: string): IDropDirectory;rn end;rnrnrn// *********************************************************************//rn// OLE Server Proxy class declarationrn// Server Object : TDropDirectoryrn// Help String : Defines an object used to access messages on the file systemrn// Default Interface: IDropDirectoryrn// Def. Intf. DISP? : Norn// Event Interface: rn// TypeFlags : (2) CanCreatern// *********************************************************************//rn$IFDEF LIVE_SERVER_AT_DESIGN_TIMErn TDropDirectoryProperties= class;rn$ENDIFrn TDropDirectory = class(TOleServer)rn privatern FIntf: IDropDirectory;rn$IFDEF LIVE_SERVER_AT_DESIGN_TIMErn FProps: TDropDirectoryProperties;rn function GetServerProperties: TDropDirectoryProperties;rn$ENDIFrn function GetDefaultInterface: IDropDirectory;rn protectedrn procedure InitServerData; override;rn publicrn constructor Create(AOwner: TComponent); override;rn destructor Destroy; override;rn procedure Connect; override;rn procedure ConnectTo(svrIntf: IDropDirectory);rn procedure Disconnect; override;rn function GetMessages(const DirName: WideString): IMessages;rn property DefaultInterface: IDropDirectory read GetDefaultInterface;rn publishedrn$IFDEF LIVE_SERVER_AT_DESIGN_TIMErn property Server: TDropDirectoryProperties read GetServerProperties;rn$ENDIFrn end;rnrn$IFDEF LIVE_SERVER_AT_DESIGN_TIMErn// *********************************************************************//rn// OLE Server Properties Proxy Classrn// Server Object : TDropDirectoryrn// (This object is used by the IDE's Property Inspector to allow editingrn// of the properties of this server)rn// *********************************************************************//rn TDropDirectoryProperties = class(TPersistent)rn privatern FServer: TDropDirectory;rn function GetDefaultInterface: IDropDirectory;rn constructor Create(AServer: TDropDirectory);rn protectedrn publicrn property DefaultInterface: IDropDirectory read GetDefaultInterface;rn publishedrn end;rn$ENDIFrnrnrn// *********************************************************************//rn// The Class CoSMTPConnector provides a Create and CreateRemote method to rn// create instances of the default interface ISMTPScriptConnector exposed by rn// the CoClass SMTPConnector. The functions are intended to be used by rn// clients wishing to automate the CoClass objects exposed by the rn// server of this typelibrary. rn// *********************************************************************//rn CoSMTPConnector = classrn class function Create: ISMTPScriptConnector;rn class function CreateRemote(const MachineName: string): ISMTPScriptConnector;rn end;rnrn// *********************************************************************//rn// The Class CoNNTPEarlyConnector provides a Create and CreateRemote method to rn// create instances of the default interface INNTPEarlyScriptConnector exposed by rn// the CoClass NNTPEarlyConnector. The functions are intended to be used by rn// clients wishing to automate the CoClass objects exposed by the rn// server of this typelibrary. rn// *********************************************************************//rn CoNNTPEarlyConnector = classrn class function Create: INNTPEarlyScriptConnector;rn class function CreateRemote(const MachineName: string): INNTPEarlyScriptConnector;rn end;rnrn// *********************************************************************//rn// The Class CoNNTPPostConnector provides a Create and CreateRemote method to rn// create instances of the default interface INNTPPostScriptConnector exposed by rn// the CoClass NNTPPostConnector. The functions are intended to be used by rn// clients wishing to automate the CoClass objects exposed by the rn// server of this typelibrary. rn// *********************************************************************//rn CoNNTPPostConnector = classrn class function Create: INNTPPostScriptConnector;rn class function CreateRemote(const MachineName: string): INNTPPostScriptConnector;rn end;rnrn// *********************************************************************//rn// The Class CoNNTPFinalConnector provides a Create and CreateRemote method to rn// create instances of the default interface INNTPFinalScriptConnector exposed by rn// the CoClass NNTPFinalConnector. The functions are intended to be used by rn// clients wishing to automate the CoClass objects exposed by the rn// server of this typelibrary. rn// *********************************************************************//rn CoNNTPFinalConnector = classrn class function Create: INNTPFinalScriptConnector;rn class function CreateRemote(const MachineName: string): INNTPFinalScriptConnector;rn end;rnrnprocedure Register;rnrnimplementationrnrnuses ComObj;rnrnclass function CoMessage.Create: IMessage;rnbeginrn Result := CreateComObject(CLASS_Message) as IMessage;rnend;rnrnclass function CoMessage.CreateRemote(const MachineName: string): IMessage;rnbeginrn Result := CreateRemoteComObject(MachineName, CLASS_Message) as IMessage;rnend;rnrnprocedure TMessage.InitServerData;rnconstrn CServerData: TServerData = (rn ClassID: 'CD000001-8B95-11D1-82DB-00C04FB1625D';rn IntfIID: 'CD000020-8B95-11D1-82DB-00C04FB1625D';rn EventIID: '';rn LicenseKey: nil;rn Version: 500);rnbeginrn ServerData := @CServerData;rnend;rnrnprocedure TMessage.Connect;rnvarrn punk: IUnknown;rnbeginrn if FIntf = nil thenrn beginrn punk := GetServer;rn Fintf:= punk as IMessage;rn end;rnend;rnrnprocedure TMessage.ConnectTo(svrIntf: IMessage);rnbeginrn Disconnect;rn FIntf := svrIntf;rnend;rnrnprocedure TMessage.DisConnect;rnbeginrn if Fintf <> nil thenrn beginrn FIntf := nil;rn end;rnend;rnrnfunction TMessage.GetDefaultInterface: IMessage;rnbeginrn if FIntf = nil thenrn Connect;rn Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');rn Result := FIntf;rnend;rnrnconstructor TMessage.Create(AOwner: TComponent);rnbeginrn inherited Create(AOwner);rn$IFDEF LIVE_SERVER_AT_DESIGN_TIMErn FProps := TMessageProperties.Create(Self);rn$ENDIFrnend;rnrndestructor TMessage.Destroy;rnbeginrn$IFDEF LIVE_SERVER_AT_DESIGN_TIMErn FProps.Free;rn$ENDIFrn inherited Destroy;rnend;rnrn$IFDEF LIVE_SERVER_AT_DESIGN_TIMErnfunction TMessage.GetServerProperties: TMessageProperties;rnbeginrn Result := FProps;rnend;rn$ENDIFrnrnfunction TMessage.Get_BCC: WideString;rnbeginrn Result := DefaultInterface.Get_BCC;rnend;rnrnprocedure TMessage.Set_BCC(const pBCC: WideString);rnbeginrn DefaultInterface.Set_BCC(pBCC);rnend;rnrnfunction TMessage.Get_CC: WideString;rnbeginrn Result := DefaultInterface.Get_CC;rnend;rnrnprocedure TMessage.Set_CC(const pCC: WideString);rnbeginrn DefaultInterface.Set_CC(pCC);rnend;rnrnfunction TMessage.Get_FollowUpTo: WideString;rnbeginrn Result := DefaultInterface.Get_FollowUpTo;rnend;rnrnprocedure TMessage.Set_FollowUpTo(const pFollowUpTo: WideString);rnbeginrn DefaultInterface.Set_FollowUpTo(pFollowUpTo);rnend;rnrnfunction TMessage.Get_From: WideString;rnbeginrn Result := DefaultInterface.Get_From;rnend;rnrnprocedure TMessage.Set_From(const pFrom: WideString);rnbeginrn DefaultInterface.Set_From(pFrom);rnend;rnrnfunction TMessage.Get_Keywords: WideString;rnbeginrn Result := DefaultInterface.Get_Keywords;rnend;rnrnprocedure TMessage.Set_Keywords(const pKeywords: WideString);rnbeginrn DefaultInterface.Set_Keywords(pKeywords);rnend;rnrnfunction TMessage.Get_MimeFormatted: WordBool;rnbeginrn Result := DefaultInterface.Get_MimeFormatted;rnend;rnrnprocedure TMessage.Set_MimeFormatted(pMimeFormatted: WordBool);rnbeginrn DefaultInterface.Set_MimeFormatted(pMimeFormatted);rnend;rnrnfunction TMessage.Get_Newsgroups: WideString;rnbeginrn Result := DefaultInterface.Get_Newsgroups;rnend;rnrnprocedure
PHP的参数传递问题,希望高手能够解答。
index.php文件:rnrnrnmain.php文件:rn$mimi=new main;rnclass main rn rn function main()rn global $act;rn switch($act)rn case "showclass":rn $this->showclass();rn break;rn default:rn $this->showindex();rn rn rnrnindex.php和main.php只写出了重要部分的代码,以便浏览。rnrn但我进入首页后可以正常显示,但是当点击首页上的index.php?act=showclass时,应该显示act=class时的页面,为什么还是显示首页,而不是showclass()应显示的页面啊,是$act=class没有传递成功吗?我用的是win2003的iis。但是当我在windowsxp+apache时却没有这个问题,能够正常显示。求高手解答啊。rn
PHP和SQL的问题,求高手解答。
rn " title="">rnrnrnrn代码中psot_date 为日期字段,输出来的是2011-09-20 12:04:46这样的格式,我想获得只显示年月或者年月日的格式。rn另外post_title 为文章标题,如果遇到长标题输出后如果文章标题很长,如果做一个输出截断,如只输出20个字符串长度。说明post_titlern存储的是英文字符,没有中文字符。rn请教高手改写代码,谢谢。rn另外说明一点,这个数据表是wordpress的表
php soap问题 跪求高手解答……!!
server端:rn[code=PHP]"http://test-rui"));rnfunction sayhello($str)rnrn return "Hello ".$str;rnrn$server->addFunction('sayhello');rn$server->handle();rnrn?>[/code]rnrnclient端:rn[code=PHP]"http://localhost/php webservice/server.php",'uri'=>"http://test-rui"));rn $client->sayhello("Jim");rnrncatch (SoapFault $fault)rn echo "fault code:".$fault->faultcode." ". "fault string : ".$fault->faultstring;rnrn?>[/code]rnrn为啥客户端运行时会报错:Fatal error: Uncaught SoapFault exception: [HTTP] Not Found in D:\PHPWeb\php webservice\client.php:6 Stack trace: #0 [internal function]: SoapClient->__doRequest('__call('sayhello', Array) #2 D:\PHPWeb\php webservice\client.php(6): SoapClient->sayhello('Jim') #3 main thrown in D:\PHPWeb\php webservice\client.php on line 6rnrn用try catch 后 得到这个:rnfault code:HTTPrnfault string : Not Foundrn 还有 能不能给我详细介绍下soapserver 跟soapclient方法里的那个array参数到底是怎么用的啊 ?? rn求高人帮助!!!
关于PHP技术问题,请高手解答!!!!!!!!
rnrn QQ:8058098rnrn MOBILE:13810507760rnrnrn 必有重谢!!!!!!!!!!!!!!!!
求高手解答PHP中的WSKEY
-
php的session问题,急求高手解答!
我用的是redhat9.0,作了两个php页面rn1、here";rn?>rntes2.php:rnrn但是单击进入test2.php后什么也不显示,这是为什么?我用的php是redhat自带的4.2.2,难道版本有问题吗?为什么??????????
windows下配置php的疑惑,高手帮忙解答????
我在windows下配置apache+php,是以CGI的方式进行的,我有两个问题要问各位高手:rn1,见很多网上的配置文章都说把php.ini放在系统目录下,但我却没有,而是把它放在了php的根目录下,但程序还是正常运行,请问php.in到底应该放在哪里。rn2,php安装目录下有个DLLS文件夹,网上的配置文章说要把它里面的DLLS文件全部拷贝到系统目录下,请问不拷贝不影响PHP正常运行吧。
关于画圆的问题(高手请进,多半只有高手能答)
我想在窗体中通过API函数中的Ellipse函数画圆,原代码如下,可语法没错,但不能执行,请指教(画那种能够自由拖动的圆):rnPrivate Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal x2 As Long, ByVal y2 As Long) As LongrnDim flag As BooleanrnDim hdc1 As LongrnDim handle As LongrnDim X1 As LongrnDim x2 As LongrnDim y2 As LongrnDim Y1 As LongrnrnPrivate Sub Form_Load()rnflag = Truern Me.AutoRedraw = Truern Me.ScaleMode = 3rn Me.DrawWidth = 1rnEnd SubrnrnPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)rnX1 = XrnY1 = YrnEnd SubrnrnPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)rnEllipse Me.hdc, X1, Y1, x2, y2rnEnd Sub
只有360浏览器能上网
不知道中了什么病毒,显示自动修改我的dns,然后进行LSP劫持。奶奶的,害得我弄来好久,最后,利用360里头的LSP修复,修复了一下,就可以了。
高手解答
自己做的应用程序,怎么限制我的用户的使用时间或者的使用次数。rn最好给出详细代码。谢谢了
高手解答下。。
[code=HTML]rnrnrn JAVASCRIPTrn rn rnrnrnrnrnrn 表格rn rn rn rn rn 职位名称rn 客户名称rn 顾问rn 助理rn 启动日期rn 状态rn 搜寻记录rn 目标公司rnrnrn rn rnrn National Sales Managerrn rn rn rn 4/13/2010rn 等待申请rn 0rn 0rnrnrn rn rn 制冷材料national sales mgrrn 欧文斯科宁(中国)投资有限公司rn rn SH_YvonneYanrn 4/18/2010rn 征集推荐rn 4rn 0rnrnrn rn rn HR Head(VP)rn 花旗软件技术服务(上海)有限公司rn shanghai_黄平rn rn 5/4/2010rn 征集推荐rn 10rn 0rnrnrn rn rn 驻巴西财务负责人rn 春和集团rn SH_AmyZhangrn SH_YvonneYanrn 6/1/2010rn 征集推荐rn 9rn 0rnrnrn rn rn multimedia software engineersrn 上海视龙软件有限公司rn SH_AmyZhangrn rn 7/4/2010rn 征集推荐rn 17rn 0rnrnrn rn rn Audit Mgrrn 春和集团rn SH_AmyZhangrn rn 7/16/2010rn 等待申请rn 4rn 0rnrnrn rn rn 市场经理-数码产品rn 德加拉电子贸易(上海)有限公司rn SH_AmyZhangrn rn 7/26/2010rn 等待申请rn 2rn 0rnrnrn rn rn East China Sales Managerrn 英维思自动化控制系统(上海)有限公司rn SH_AmyZhangrn SH_JulieZhangrn 8/11/2010rn 等待申请rn 4rn 0rnrnrn rn rn 兼子公司副总经理rn 上海东方有线网络有限公司rn shanghai_黄平rn SH_JulieZhangrn 9/19/2010rn 征集推荐rn 3rn 2rnrnrn rn全选rn 添加新职位 重启职位rnrn[/code]rnrn要求选择复选框后 在点击重启职位后 在rn if(confirm("是否要重启职位?"))rn alert(" ");rn显示所选内容~~~
高手解答!!!
问题是这样:刚打开这个页面是分页正常,即4条记录,但点击下一页时,则分页错误,显示全部记录.rn我找不出原因,请高手帮忙!不甚感激!!!!rnpublic class list_bbs : System.Web.UI.Pagernrn rn static string path=ConfigurationSettings.AppSettings["ConnectionString"];rn SqlConnection conn = new SqlConnection(path); rn int PageSize,RecordCount,PageCount,CurrentPage,i;rn protected System.Web.UI.WebControls.DropDownList Ddl_PageNumber;rn ArrayList Al_PageNum; rn private void Page_Load(object sender, System.EventArgs e)rn rn // 在此处放置用户代码以初始化页面 rn conn.Open(); rn rn if(!Page.IsPostBack)rn rn rn // 在此处放置用户代码以初始化页面rn PageSize = 4; //设定PageSize rn //连接语句 rn if(!Page.IsPostBack) //第一次请求执行 rn rn rn RecordCount = CalculateRecord(); //计算总共有多少记录/rn PageCount = RecordCount/PageSize; //计算总共有多少页rn if (RecordCount%PageSize > 0) //取整 rn PageCount = PageCount + 1; rn lblPageCount.Text = PageCount.ToString(); rn lblRecordCount.Text = RecordCount.ToString(); rn ViewState["PageCount"] = PageCount; rn CurrentPage = 0; rn ViewState["PageIndex"] = 0; rn Al_PageNum= new ArrayList();//绑定DROPDOWNLISTrn for(i=1;i<=PageCount;i++) //从1开始循环,为了不出现0页码rn Al_PageNum.Add(i.ToString());rn Ddl_PageNumber.DataSource=Al_PageNum;rn Ddl_PageNumber.DataBind();rn ListBind(); //绑定 rn rn conn.Close(); rn rn rn rn rn protected string FormatString(string str) rn rn str=str.Replace(" "," "); rn str=str.Replace("<","<"); rn str=str.Replace(">",">"); rn str=str.Replace('\n'.ToString()," "); rn return str; rn rnrn public int CalculateRecord() //计算总共有多少条记录rn rn int intCount; rn string strCount = "select count(*) as co from bbs "; rn SqlCommand MyComm = new SqlCommand(strCount,conn); rn SqlDataReader dr = MyComm.ExecuteReader(); rn if(dr.Read()) rn rn intCount = Int32.Parse(dr["co"].ToString()); rn rn else rn rn intCount = 0; rn rn dr.Close(); rn return intCount; rn rnrn rn ICollection CreateSource() rn rnrn int StartIndex; //设定导入的起终地址 rn StartIndex = CurrentPage*PageSize; //计算记录数的起始点rn string strSel = "select bbs_name,bbs_sex,bbs_type,bbs_time,bbs_title,bbs_content from bbs order by bbs_time desc"; rn DataSet ds = new DataSet(); rn SqlDataAdapter MyAdapter = new SqlDataAdapter(strSel,conn); rn MyAdapter.Fill(ds,StartIndex,PageSize,"bbs"); rn return ds.Tables["bbs"].DefaultView; rn rnrnrn public void ListBind() rn rn DataList1.DataSource = CreateSource(); rn DataList1.DataBind(); rn lbnNextPage.Enabled = true; rn lbnPrevPage.Enabled = true; rn if(PageCount==0) rn rn lblCurrentPage.Text = "0"; rn lbnNextPage.Enabled = false; rn lbnPrevPage.Enabled = false; rn rn else rn rn if(CurrentPage==(PageCount-1)) lbnNextPage.Enabled = false; rn if(CurrentPage==0) lbnPrevPage.Enabled = false; rn lblCurrentPage.Text = (CurrentPage+1).ToString(); rn rn rnrnrn public void Page_OnClick(Object sender,CommandEventArgs e) rn rn CurrentPage = (int)ViewState["PageIndex"]; rn PageCount = (int)ViewState["PageCount"]; rn string cmd = e.CommandName; //判断cmd,以判定翻页方向 rn rn rn switch(cmd) rn rn case "next": rn if(CurrentPage<(PageCount-1)) CurrentPage++; rn break; rn case "prev": rn if(CurrentPage>0) CurrentPage--; rn break; rn rnrn ViewState["PageIndex"] = CurrentPage; rnrn ListBind(); rnrn rn rnrn public string test(string str)rn rn string str2="";rn if(str==String.Empty)rn rn str2="暂无回复";rn rn elsern rn string str3="回复: ";rn rn str2=str3+str;rn rn rn return str2;rn rn rn /* for(int i=10;i<20;i++) rn rn DropDownList1.Items.Add(new ListItem("第"+i.ToString()+"页",i.ToString())); rn rnrn */rn #endregionrnrn private void Ddl_PageNumber_SelectedIndexChanged(object sender, System.EventArgs e)rn rn ViewState["PageIndex"] =int.Parse(Ddl_PageNumber.SelectedItem.Value)-1;//保持不出现0页码rn PageSize = 4;rn CurrentPage = (int)ViewState["PageIndex"];rn PageCount = (int)ViewState["PageCount"]; rn ListBind(); rn //MyList.DataSource = CreateSource(); rn //MyList.DataBind();rn rnrn rn
高手解答!!!!
hibernate中用hql能否实现insert into sometable select * from othertable这样的功能,rn注意:不是用sql去处理。
相关热词 c# stream 复制 android c# c#监测窗口句柄 c# md5 引用 c# 判断tabtip 自己写个浏览器程序c# c# 字符串变成整数数组 c#语言编程写出一个方法 c# 转盘抽奖 c#选中treeview