>*--- Start Test Code ------------------------------------------------------ > >CLEAR > >*--------------------------------------------------------- >* Declare Windows API Functions >*--------------------------------------------------------- >DECLARE INTEGER Sleep ; > IN Win32API INTEGER >*--------------------------------------------------------- > >IF NOT FILE("TEST.DBF") > CREATE TABLE TEST (C1 C(200)) >ELSE > USE TEST >ENDIF > >SET ESCAPE ON >m.cPacket = REPLICATE(REPLICATE(REPLICATE("X",1024),1024),10) && 10 Meg Packet >*m.cPacket = REPLICATE("X",1024) && 1k Packet >npeerid = 0 >nchannelid = 0 >cType = "" >m.iLoopCounter = 0 >DO WHILE NOT LASTKEY() = 27 > m.iLoopCounter = m.iLoopCounter + 1 > SELECT TEST > APPEND BLANK > REPLACE C1 WITH TTOC(DATETIME()) + " - " + SYS(1016) + "/" + SYS(1001) > SENDPACKET(m.cPacket, m.npeerid, nchannelid, cType) > IF m.iLoopCounter > 10 > SLEEP(100) > ENDIF > DOEVENTS >ENDDO > > >*--------------------------------------------------------- >* Program : >* Author : Steve Stamm >* Date : 03/10/06 11:17:38 AM >* Copyright : DPRA 2006 >* Description: >* Rev Info : 03/10/06 - Steve Stamm >*--------------------------------------------------------- >PROCEDURE SENDPACKET(packetdata, npeerid, nchannelid, cType)