手机浏览 RSS 2.0 订阅 膘叔的简单人生 , 腾讯云RDS购买 | 超便宜的Vultr , 注册 | 登陆
浏览模式: 标准 | 列表Tag:com

闲着无聊，用WPS生成文档

Submitted by gouki on 2008, September 16, 10:42 PM

不好意思，该操作只能在windows服务器上才能执行，是因为，只有windows服务器才支持COM功能，而且，必须安装wps（这点应该不难，因为WPS是免费软件）
免费软件这点太重要了，如果你要生成WORD，你不可能安装一个OFFICE吧，office太贵了。

PHP代码
  1. <?php  
  2. $wps = new COM("WPS.Application");  
  3. $wps->Visible = false;  
  4. $doc = $wps->Documents->Add();  
  5. $doc->Range->Text = 'WPS FOR PHP test';  
  6. $doc->Paragraphs[1]->Alignment = 1;  
  7. $doc->Shapes->AddPicture("http://img.kingsoft.com/publish/kingsoft/images/gb/sy/logo.gif", 100, 50, 148, 60);  
  8. $doc->SaveAs('c:\\temp\\test1.wps');  
  9. $doc->Close();  
  10. $wps->Quit();  
  11. unset( $doc , $wps );  
  12. ?>  

代码很简单，只是添加了一个文字和一个图片而己。但是，证明了是可以使用这个功能。
大家别忘了，WPS的附加功能可是很多的，比如把文件转为PDF等格式。也就是说， 如果是在windows服务器上，我们要生成PDF，可以不使用那些什么fpdf类库，而是使用WPS先生成一个WORD格式的文档，然后直接exportPdf就可以了。要知道OFFICE默认并不支持这种功能。黑黑

这也是一种思路嘛，思路决定出路，转换一种思路，可能就是海阔天空。

这里是WPS的开发者网站：http://wps.kingsoft.com/apply/engineer.shtml，从这里可以下载API:http://wps.kingsoft.com/download/WPSAPI.zip

Tags: php, wps, com, wps application

PHP | 评论:1 | 阅读:30625

为windows的WEB服务器添加高性能的FTP组件

Submitted by gouki on 2008, September 16, 10:13 PM

在windows服务器里面，如果我们要用FTP函数，速度应该是很慢的，而且效率不高，如果有大量文件需要上传，用自带的FTP函数，恐怕是要死人的吧。
windows服务器，windows哦，可以装N多软件的windows哦。虽然不建议在服务器上装上很多软件，但是也可以装一些FTP软件的嘛。这里以cuteftp举例。
cuteftp安装完毕后，会在软件目录里有一个Scripts目录，现在的版本不象很久以前的了，如今的版里只有一个Sample.vbs，记得几年前的cuteftp里面会有各种各样的vbs文件的。
闲话不多说，打开vbs文件，内容为：

ASP/Visual Basic代码
  1. 'This default template script is in VBScript. You can write scripts in your language of choice and save them with the proper extension, or use your an editor specific to that language.  
  2. 'See the TESDK help file for more details on how the scripting feature works and for information on each supported method and property.  
  3. 'You must have Windows Scripting Host installed for the COM enabled engine to work. Run the Transfer Engine once to register it (as a COM object) on the target system.  
  4. 'If you're having problems with running scripts while not logged in, or when trying to run them using MS scheduler, refer to our online knowledgebase for help (http://www.globalscape.com/support)  
  5. 'Look into c:\temp folder to observe local activity (for testing purposes) or right click on the Transfer Engine icon in the systray and select "show current transfers"  
  6. 'This sample script performs an anonymous login to ftp://ftp.globalscape.net  
  7.    'First declare a variable called Mysite. This will hold the reference to the TE COM object.  
  8.    Dim MySite  
  9.    'Create a connection object and assign it to the variable  
  10.    Set MySite = CreateObject("CuteFTPPro.TEConnection")  
  11.    ' Now set each property for the site connection   
  12.    ' You can omit this section to use the default values, but you should at least specify the Host  
  13.    'The default Protocol is FTP, however SFTP (SSH2), FTPS (SSL), HTTP, and HTTPS can also be used)  
  14.    MySite.Protocol = "FTP"  
  15.    MySite.Host = "ftp.globalscape.com"  
  16.    'following lines are optional since the default is anonymous if no login and password are defined  
  17.    MySite.Login = "anonymous"  
  18.    MySite.Password = "user@user.com"  
  19.    'if necessary, use the UseProxy method and ProxyInfo or SocksInfo properties to connect through a proxy server  
  20.    MySite.UseProxy = "BOTH"  
  21.    'now connect to the site (also called called implicitly when most remote methods are called)  
  22.    MySite.Connect  
  23.    'perform some logic to verify that the connection was made successfully  
  24.    If (Not Cbool(MySite.IsConnected)) Then    
  25.       MsgBox "Could not connect to: " & MySite.Host & "!"  
  26.       Quit(1)  
  27.    End If  
  28.    'The script will now check to see if the local folder c:\temp exists and will create it if necessary  
  29.    If (Not (MySite.LocalExists("c:\temp"))) Then  
  30.       MySite.CreateLocalFolder "c:\temp"  
  31.    End If  
  32.    'Change TE's local working folder to to c:\temp  
  33.    MySite.LocalFolder = "c:\temp"  
  34.    'Check for existence of remote folder "/pub/cuteftp"  
  35.    b = MySite.RemoteExists("/pub/cuteftp/")  
  36.    If (Not CBool(b)) Then  
  37.       'Verify existence of remote folder  
  38.       MsgBox "Remote folder not found!. Please make sure that the Pub folder exists on the remote site"  
  39.       Quit(1)  
  40.    End If  
  41.    'Now download the index file to the local destination folder  
  42.    MySite.Download "/pub/cuteftp/index.txt"  
  43.    'Complete.  Show the status of this transfer.  
  44.    MsgBox "Task done, final status is '" + MySite.Status + "'"  
  45.   MySite.Disconnect  
  46.   MySite.Close  
  47. 'End of sample script. You can save you script and then run it by either selecting it from the Tools > Run Script menu or by double clicking on the script file in Windows  

看到这样的文件，你应该知道如何调用一些FTP软件自带的方法了吧？现在，我们用PHP模拟一遍。。。。。
请看详细内容

» 阅读全文

Tags: ftp, com, windows, cuteftp, vbs

PHP | 评论:0 | 阅读:22143