S
Sterntaler
Unregistered / Unconfirmed
GUEST, unregistred user!
程序还没有整理,觉得全贴出来不好。
跟踪到这个过程的 GetMem 行时访问非法内存.各位帮我看看,是不是这里出问题了?
我不知道错误是不是在这段代码,如果愿意看代码的话,请留下油箱。或者给我发
邮件(smnyx@21cn.com)
procedure TfmSrvMain.ServerSend(ASocket: TCustomWinSocket;
Cmd: Byte
Content: PChar
ContentLength: Integer);
var
NewContent: PChar;
SendLength: Integer;
begin
SendLength := ContentLength + SizeOf(Cmd);
GetMem(NewContent, SendLength)
try
NewContent[0] := Chr(Cmd);
System.Move(Content^, NewContent[1], ContentLength)
ASocket.SendBuf(NewContent^, SendLength);
finally
FreeMem(NewContent, SendLength);
end;
end;
跟踪到这个过程的 GetMem 行时访问非法内存.各位帮我看看,是不是这里出问题了?
我不知道错误是不是在这段代码,如果愿意看代码的话,请留下油箱。或者给我发
邮件(smnyx@21cn.com)
procedure TfmSrvMain.ServerSend(ASocket: TCustomWinSocket;
Cmd: Byte
Content: PChar
ContentLength: Integer);
var
NewContent: PChar;
SendLength: Integer;
begin
SendLength := ContentLength + SizeOf(Cmd);
GetMem(NewContent, SendLength)
try
NewContent[0] := Chr(Cmd);
System.Move(Content^, NewContent[1], ContentLength)
ASocket.SendBuf(NewContent^, SendLength);
finally
FreeMem(NewContent, SendLength);
end;
end;