Home of ActiveVFP - Foxpro on the World Wide Web

New Post: about com+

claudefox — Wed, 30 Jul 2008 13:02:02 GMT

Usually anonymous web users of your application will not have enough rights to access network resources such as a database on a network drive or SQl Server- thus you have Com+, web.config, etc to allow impersonation of an account that does have proper rights.

New Post: about com+

lugreen1 — Wed, 30 Jul 2008 04:39:29 GMT

Thanks very much!
I only using sqlconnect(connection string) to connect to other machine's sql server. i think that this is the most simply way. why machine.config、com+?
in addition,i want to know how to use connectiong polling in activeVfp? because to construct a connection to database is time-consuming.

New Post: about com+

claudefox — Wed, 30 Jul 2008 01:14:02 GMT

There are various ways to achieve the same results for impersonating a user that has proper rights to access a networked database. COM+ is one. Another is the machine.config in ASP.NET. All of this is for security purposes...

New Post: about com+

lugreen1 — Tue, 29 Jul 2008 03:41:29 GMT

but not use com+,i can access sql server also.to connect to sql server,must use com+?

New Post: about com+

claudefox — Tue, 29 Jul 2008 02:50:43 GMT

COM+ will be slower when running from ASP or ASP.net. The only reason to use COM+ is for accessing network databases or SQL Server and impersonating a user with rights to those resources.

New Post: about com+

lugreen1 — Sun, 27 Jul 2008 07:01:37 GMT

between Com+ runtime and MT Com,which have better performance?
i set up activeVfp to com+ for some resion ,but i'm not sure the com+ can get better prormance.
are there some advise?

New Post: a webSite using activeVfp and ExtJs

claudefox — Fri, 25 Jul 2008 11:21:05 GMT

Cool - nice interface!
btw,AVFP 4.0 should allow for even better use of Web 2.0 type of stuff. For example, upload or download status messages, etc. This is because of the new WebThreads class..

New Post: a webSite using activeVfp and ExtJs

lugreen1 — Thu, 24 Jul 2008 05:35:09 GMT

http://client.pree.net.cn/

useing activeVfp and ExtJs ,there are IM tools also!

New Post: ActiveVFP 4.0 sneak peek

claudefox — Wed, 09 Jul 2008 21:29:04 GMT

If possible, I'm shooting for after this weekend. However the setup part may be tricky for VISTA so a safe bet would be within 2 weeks from now.

New Post: ActiveVFP 4.0 sneak peek

danielcp — Wed, 09 Jul 2008 00:37:06 GMT

Hi, Claude.
Congratulations! New excellent improvements!
When we can download this new version?

Best regards.

Daniel

New Post: ActiveVFP 4.0 sneak peek

claudefox — Tue, 08 Jul 2008 21:37:57 GMT

I've got a preview of AVFP 4.0 up at:

http://70.174.154.175:443/avfpdemo4/default.aspx

The actual setup is not quite ready, though, so 4.0 is not yet downloadable. The old version is still available here in the Releases.

Key features of 4 are improved and streamlined design as well as the addition of true vfp web multi-threading using background threads. Also, things like Async processing and PDFs are far easier to use and deploy.

The addition of true multi-threading to ActiveVFP web applications for background processing is a first among web frameworks AFAIK. The ability to use threads instead of memory hogging EXE processes will allow for the best scalability and performance. Things like AJAX/Jquery applications will perform far better with a multi-threaded back end (courtesy of Calvin Hsia's mt class)

Updated Wiki: Home

claudefox — Tue, 08 Jul 2008 21:11:34 GMT

If you would like to be an open source ActiveVFP project developer/contributor, manager, or both, for ActiveVFP 4.0,
please Email Guidance and ideas for what needs to be done is on the Issue Tracker page. This project can only
move forward with your support.

ActiveVFP Project - Foxpro on the World Wide Web

is a completely free and open source project for creating web applications with Visual Foxpro.
It provides an easy-to-use framework for creating multi-threading vfp dlls(vfp mtdlls) in pure fox code that are called from
ASP.NET or ASP.

The goal of this project was to match or surpass the capabilities of commercial vfp web development products
and to take vfp into the future by making it easy to interop with .NET for web applications.

Unlike other VFP web products, ActiveVFP concentrates on producing multi-threaded COM VFP server apps.
While other VFP web products all have a multi-threaded ISAPI client (as does ActiveVFP), only ActiveVFP focuses
on creating multi-threaded VFP web server applications using vfp mtdlls. No simulated multi-threading (using
multiple VFP EXE processes) here. What this means for you is much faster, efficient and scalable vfp web applications
along with far less maintenance headaches and worries about uptime. It also means you take full advantage of
new Dual-Core, Quad-Core or multiple processors in new computers increasingly available now.

All source code is included in the setup.

ActiveVFP Demo page
ActiveVFP Documentation
http://www.activevfp.com (this page)

Background Articles
http://www.calvinhsia.com/papers/AdvancedVFPServers.mht- Advanced VFP Servers (alternate site)
http://my.advisor.com/articles.nsf/aid/16790- Foxpro Advisor article on ActiveVFP Sept. 2005
http://www.utmag.com/ViewPageIssue.aspx- VFP COM Debugging on 2000 and XP, February 2004 issue (free article)
http://www.west-wind.com/presentations/VfpDotNetInterop/aspcominterop.asp- VFP/.NET Interop
http://www.aspheute.com/english/20000828.asp- Using COM Components in ASP.NET

Notable Quote
"You should not have an issue with performance if you use multi-threaded
DLLs. I regularly test Visual FoxPro COM DLLs by simulating 40 clients
pounding the server for days at a time, generating as many as 3 million hits
per day (on a four-proc machine with 2Gb of RAM and striped RAID). If you're
site is generating more hits per day than that, I think other stuff is going
to break down before your COM servers. :-)" Mike Stewart, Microsoft

New Post: how to download file using activevfp?

lugreen1 — Mon, 07 Jul 2008 04:12:41 GMT

hi,claudefox,
i have solve the problem ,the case  of the problem is that i used the ADODB.Stream 's read method twice on time.
now ,i paste the right function :

FUNCTION foutPutFileStream
   PARAMETERS lcFile
   IF !FILE(lcFile)
      *oResponse.write("文件不存在")
      RETURN "文件不存在"
   ENDIF
   LOCAL lcFileName,lcFileSize,lcOldComp,loStream,lcR
   lcFileName=JUSTFNAME(lcFile)
   lcOldComp=SET("Compatible")
   SET COMPATIBLE ON
   lcFileSize=FSIZE(lcFile)
   SET COMPATIBLE &lcOldComp
   oResponse.Buffer =.t.
   oResponse.clear()
   oResponse.AddHeader("Content-Disposition", strcon("attachment; filename="+lcFileName,9))
   oResponse.AddHeader("Content-Length",lcFileSize)
   oResponse.ContentType ="application/octet-stream"
   oResponse.CharSet="UTF-8"
   loStream=CREATEOBJECT("ADODB.Stream")
   loStream.open()
   loStream.type=1
   loStream.LoadFromFile(strcon(lcFile,9))
   lcR=loStream.Read()
   oResponse.BinaryWrite(lcr)
   loStream.close()
   oResponse.end()
ENDFUNC

New Post: how to download file using activevfp?

claudefox — Sat, 21 Jun 2008 14:40:06 GMT

Ok, then it must be how VFP is handling the binary write stuff. I think I had to work with this sort of problem with the ActiveVFP upload class. Take a look at that and take a look at all the functions you can use in VFP for handling this type of data..

New Post: how to download file using activevfp?

lugreen1 — Fri, 20 Jun 2008 00:59:27 GMT

i can do it successfully from just asp on the same machine.

following is the asp code:

response.Charset="utf-8"
Response.Expires = -9999
Response.Buffer = True
'==================================
'Set oServer = Server.CreateObject("greenFox.Server")
'Set oServer = oServer.GetDebugObject()
'Response.BinaryWrite oServer.process()
'oServer.process()
'Response.End()
'set oServer=nothing
'====================================

lcfile="E:\安装备份\SednaSetup.msi"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(lcfile)
Response.Clear
Response.AddHeader "Content-Disposition", "attachment; filename=" & objFile.Name
Response.AddHeader "Content-Length", objFile.Size
Response.ContentType = "application/octet-stream"
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
'-- set as binary
objStream.Type = 1
Response.CharSet = "UTF-8"
''-- load into the stream the file
objStream.LoadFromFile(lcfile)
''-- send the stream in the response
Response.BinaryWrite(objStream.Read)
objStream.Close
Set objStream = Nothing
Set objFile = Nothing

New Post: how to download file using activevfp?

claudefox — Thu, 19 Jun 2008 11:02:19 GMT

So can you do it successfully from just ASP on that machine? Make sure you can do it from plain ASP - to see if it really is an ActiveVFP problem or maybe some sort of configuration/permissions problem..

lugreen1 wrote:
hi ,claudefox ,thank you very much.

i can't out any file,include regular text, i can download the file,but the downloaded file's length will be 0.

yes,the error not is from mtdll ,but is from the stream object's binarywrite method.
i have google the '0106' error.but i can't resolve the problem.

is there someone do it successful?

New Post: how to download file using activevfp?

lugreen1 — Thu, 19 Jun 2008 00:40:53 GMT

hi ,claudefox ,thank you very much.

i can't out any file,include regular text, i can download the file,but the downloaded file's length will be 0.

yes,the error not is from mtdll ,but is from the stream object's binarywrite method.
i have google the '0106' error.but i can't resolve the problem.

is there someone do it successful?

New Post: how to download file using activevfp?

claudefox — Wed, 18 Jun 2008 21:14:03 GMT

Can you write out a regular text file successfully? Do that first to make sure your syntax is correct.

The error message seems to indicate it's from the ASP script and not your VFP MTDLL which seems sort of strange. You could possibly google that '007~ASP 0106' message and see how others have dealt with it..

If it were me, I'd try to isolate and find out the line that is causing the problem.

New Post: how to download file using activevfp?

lugreen1 — Sun, 15 Jun 2008 12:28:15 GMT

i try to out binary stream using activevfp,but occurs follow error:

OLE IDispatch ? 0 Response 对象: 007~ASP 0106~类型不匹配~遇到未处理的数据类型?.

my code is:
   LOCAL lcFileName,lcFileSize,lcOldComp,loStream
   lcFileName=JUSTFNAME(lcFile)
   lcOldComp=SET("Compatible")
   SET COMPATIBLE ON
   lcFileSize=FSIZE(lcFile)
   SET COMPATIBLE &lcOldComp
   oResponse.Buffer =.t.
   oResponse.clear()
   oResponse.AddHeader("Content-Disposition", strcon("attachment; filename="+lcFileName,9))
   oResponse.AddHeader("Content-Length",lcFileSize)
   oResponse.ContentType ="application/octet-stream"
   oResponse.CharSet="UTF-8"
   loStream=CREATEOBJECT("ADODB.Stream")
   loStream.open()
   loStream.type=1
   loStream.LoadFromFile(strcon(lcFile,9))
   strtof(loStream.Read(),"d:\stream.txt")&&for test
   oResponse.BinaryWrite(loStream.Read())
   loStream.close()
   *oResponse.Flush()
   oResponse.end()
who can help me ?

NEW POST: Ajax/JQuery?

claudefox — Sun, 08 Jun 2008 14:27:19 GMT

Here's one that I just did that was pretty simple:

http://70.174.154.175:443/avfpchat/default.aspx

Here's the fox code:

***********************************
* Mainline entry point of the app
***********************************
#DEFINE crlf CHR(13)+CHR(10)

LOCAL lcXMLout,status_code,lcHTMLfile,lcHTMLout
AVFPinit() && set data and HTML paths
 
IF oRequest.ServerVariables("REQUEST_METHOD") =="GET"
    lcHTMLfile = 'index.html'
	lcHTMLout= FILETOSTR(oProp.HtmlPath+lcHTMLfile)
	lcHTMLout= oHTML.mergetext(lcHTMLout)
	RETURN lcHTMLout
ELSE &&post
    	
	IF !FILE(oProp.DataPath+"messages.dbf")
	    CREATE table oProp.DataPath+"messages"(id i AUTOINC unique,user c     (254),msg M,time T)
	ENDIF
	IF !USED("messages")
		USE messages IN 0 SHARED
	ENDIF
	SELECT messages

	IF oRequest.FORM("action")=="postmsg"
	 	INSERT INTO messages(user,msg,time) VALUES (oRequest.FORM("name"),oRequest.FORM("message"),DATETIME())
 *DELETE FROM messages WHERE id >1&&<= (cnt(id)-store_num)
	ENDIF

	SELECT user,msg FROM messages ;
	            WHERE time>CTOT(oRequest.FORM("time"));
	            ORDER BY id ASC ;
	             into cursor mymessages
	  
	IF RECCOUNT() == 0 
		status_code = 2 &&no new messages
	else 
	    status_code = 1 
	ENDIF
	lcXMLout= [<?xml version="1.0"?>]+crlf;
	+ "<response>"+crlf; 
	+ " <status>"+TRANSFORM(status_code)+"</status>"+crlf; 
	+ " <time>"+TTOC(DATETIME(),3)+"</time>"+crlf


	IF status_code == 1
	    SELECT mymessages
		SCAN 
	 	  	lcXMLout =lcXMLout+ " <message>" +crlf; 
	 		+" <author>"+mymessages.user+"</author>"+crlf; 
			+" <text>"+mymessages.msg+"</text>"+crlf; 
	 		+" </message>"+crlf 
		ENDSCAN 
	ENDIF
	lcXMLout =lcXMLout+ "</response>"
	oResponse.ContentType = "text/xml"
	RETURN lcXMLout
ENDIF

> > The original PHP version is here: Easy Ajax with jQuery