message.sca

用WINSOCK做的数据传送程序,分客户端与服务器端,非常实用,与您共享

SCCTEXT 版本 4.0.0.2
PLATFORM C(8,0),UNIQUEID C(10,0),TIMESTAMP N(10,0),CLASS M(4,0),CLASSLOC M(4,0),BASECLASS M(4,0),OBJNAME M(4,0),PARENT M(4,0),PROPERTIES M(4,0),PROTECTED M(4,0),METHODS M(4,0),OBJCODE M(4,0),OLE M(4,0),OLE2 M(4,0),RESERVED1 M(4,0),RESERVED2 M(4,0),RESERVED3 M(4,0),RESERVED4 M(4,0),RESERVED5 M(4,0),RESERVED6 M(4,0),RESERVED7 M(4,0),RESERVED8 M(4,0),USER M(4,0)
936

[ RECORD]
[PLATFORM] COMMENT 
[UNIQUEID] Screen    
[START RESERVED1]
VERSION =   3.00[END RESERVED1]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _0280MMUE2
[CLASS] dataenvironment
[BASECLASS] dataenvironment
[OBJNAME] Dataenvironment
[START PROPERTIES]
Name = "Dataenvironment"
[END PROPERTIES]
[START RESERVED2]
1[END RESERVED2]
[START RESERVED4]
1[END RESERVED4]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _0280MMUE3
[CLASS] app_form
[CLASSLOC] ..\..\gold_mis\libs\appuse.vcx
[BASECLASS] form
[OBJNAME] App_form1
[START PROPERTIES]
Height = 247
Width = 232
DoCreate = .T.
Name = "App_form1"
CMDRETURN1.Top = 204
CMDRETURN1.Left = 144
CMDRETURN1.Name = "CMDRETURN1"
STU_CAPTION1.FontSize = 30
STU_CAPTION1.Caption = "消息处理"
STU_CAPTION1.Left = 7
STU_CAPTION1.Top = 12
STU_CAPTION1.Name = "STU_CAPTION1"
SHAPE1.Top = 180
SHAPE1.Left = 24
SHAPE1.Height = 5
SHAPE1.Width = 162
SHAPE1.Name = "SHAPE1"
SHAPE2.Top = 60
SHAPE2.Left = 21
SHAPE2.Height = 5
SHAPE2.Width = 162
SHAPE2.Name = "SHAPE2"
[END PROPERTIES]
[START METHODS]
PROCEDURE Unload
clear events

ENDPROC
PROCEDURE CMDRETURN1.Click
RESULT=MESSAGEBOX("您要返回吗?",4+32,"信息窗口") 
if result=6
  release thisform
endif
ENDPROC
[END METHODS]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _0280MMUE4
[CLASS] bas_cmdbutton
[CLASSLOC] ..\..\gold_mis\libs\baseclass.vcx
[BASECLASS] commandbutton
[OBJNAME] Bas_cmdbutton1
[PARENT] App_form1
[START PROPERTIES]
AutoSize = .F.
Top = 96
Left = 48
Height = 25
Width = 105
Caption = "服务器设置"
Name = "Bas_cmdbutton1"
[END PROPERTIES]
[START METHODS]
PROCEDURE Click
DO FORM FORMS\CHANGEIP


ENDPROC
[END METHODS]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _0280MMUE5
[CLASS] bas_cmdbutton
[CLASSLOC] ..\..\gold_mis\libs\baseclass.vcx
[BASECLASS] commandbutton
[OBJNAME] bas_CMDBUTTON2
[PARENT] App_form1
[START PROPERTIES]
Top = 132
Left = 48
Height = 25
Width = 108
Caption = "发送和接收消息"
Name = "bas_CMDBUTTON2"
[END PROPERTIES]
[START METHODS]
PROCEDURE Click
DO FORM FORMS\WINSOCK
ENDPROC
[END METHODS]

[ RECORD]
[PLATFORM] COMMENT 
[UNIQUEID] RESERVED  
[START PROPERTIES]
隶书, 16, 12, 8, 20, 16, 16, 4, 0
宋体, 1, 9, 7, 14, 10, 13, 2, 2
[END PROPERTIES]
[EOF]