R
randy_xhh
Unregistered / Unconfirmed
GUEST, unregistred user!
Tsession到底是怎么样一个概念啊,跟JSP里的session一样吗??
它的getSession的用法??不懂,新手上路·~``~`~···急~~````~``·``··~
代码如下
type
TSession=Record //通信结构
Msg:string;
Handle:string;
Param1:string;
Param2:string;
Param3:string;
Param4:string;
Param5:string;
Param6:string;
end;
RecTextPs;
Session:TSession;
Tmps:String;
Tmps:=Socket.ReceiveText;
RecText:=nil;
RecText:=GetSession(Pchar(Tmps),7);
Session.Msg:=RecText^[0];
Session.Handle:=RecText^[1];
Session.Param1:=RecText^[2];
Session.Param2:=RecText^[3];
Session.Param3:=RecText^[4];
Session.Param4:=RecText^[5];
Session.Param5:=RecText^[6];
Session.Param6:=RecText^[7];
能不能帮忙看下···~~···谢·~····~··~
它的getSession的用法??不懂,新手上路·~``~`~···急~~````~``·``··~
代码如下
type
TSession=Record //通信结构
Msg:string;
Handle:string;
Param1:string;
Param2:string;
Param3:string;
Param4:string;
Param5:string;
Param6:string;
end;
RecTextPs;
Session:TSession;
Tmps:String;
Tmps:=Socket.ReceiveText;
RecText:=nil;
RecText:=GetSession(Pchar(Tmps),7);
Session.Msg:=RecText^[0];
Session.Handle:=RecText^[1];
Session.Param1:=RecText^[2];
Session.Param2:=RecText^[3];
Session.Param3:=RecText^[4];
Session.Param4:=RecText^[5];
Session.Param5:=RecText^[6];
Session.Param6:=RecText^[7];
能不能帮忙看下···~~···谢·~····~··~