好手搭救一下吧.

2013-03-26

高手搭救一下吧...................typeDataPack recordDataPackFlag: LongIntDataPackCurrLength:Long

高手搭救一下吧...................
  type
   DataPack = record
    DataPackFlag: LongInt;
    DataPackCurrLength:LongInt;
    DataPackInfo: array[1..1000] of Char;
  end;
//此处定义数据结构记录变量类型
//**************************

function CommonSendPacket(ServerSock: Tsocket; pBuffer: Pchar;iDatalength: Integer): Integer; stdcall;
var
  tmp_iSendBytes: Integer;
  tmp_iTotalBytes: Integer;
begin
  tmp_iSendBytes := 0;
  tmp_iTotalBytes := 0;
  if ServerSock = SOCKET_ERROR then
  begin
    CommonSendPacket := 0;
    Exit;
  end
  else
  begin
    while (tmp_iSendBytes < iDatalength) do
    begin
    //调试发现此处的pbuffer为什么不是传递参数指针所指向的内存区域呢？
     //c语言c++不都是传递指针就可以了。
     tmp_iSendBytes := send(ServerSock, pBuffer, iDatalength - tmp_iTotalBytes, 0);
      if tmp_iSendBytes > 0 then
      begin
        pBuffer := pBuffer + tmp_iTotalBytes;
        tmp_iTotalBytes := tmp_iTotalBytes + tmp_iSendBytes;
      end
      else
      begin
        CommonSendPacket := tmp_iTotalBytes;
        Exit;
      end
    end;
    Result := tmp_iTotalBytes;
  end
end;
//*********************此处封装的通用数据发送函数

//下面的函数调用此函数发送数据
//m_DataPackSend为DataPack类型变量。数据已经填充好。
function SendSystemDataPacket(): Integer; stdcall;
var
  tmp_iBytesCounts:Integer;
begin
  GetUserInfo;
  FillDataPack;
  tmp_iBytesCounts := 0;
  //注意此处的m_DataPackSend类型包含数据，函数传递指针。
  tmp_iBytesCounts:=CommonSendPacket(m_hServerSocket,@m_DataPackSend, m_DataPackSend.DataPackCurrLength);
  SendSystemDataPacket := tmp_iBytesCounts;
end;
//**********************

//请问我要实现函数之间传递那个记录类型变量。而且我想要的是引用的方式。

请问怎么操作？？？
[解决办法]
什么叫引用的方式？指针么？
[解决办法]

  procedure test(var a:Ta);

参数+  var
[解决办法]
利用var 引用的方式

等价于指针的传递。。

你就可以使用了。。

记得在用的时候注意 dest srouce

function CommonSendPacket(ServerSock: Tsocket; pBuffer: Pchar;iDatalength: Integer): Integer; stdcall;
var
  tmp_iSendBytes: Integer;
  tmp_iTotalBytes: Integer;
begin
  tmp_iSendBytes := 0;
  tmp_iTotalBytes := 0;
  if ServerSock = SOCKET_ERROR then
  begin
  CommonSendPacket := 0;

  Exit;
  end
  else
  begin
  while (tmp_iSendBytes < iDatalength) do
  begin
  //调试发现此处的pbuffer为什么不是传递参数指针所指向的内存区域呢？
  //c语言c++不都是传递指针就可以了。
  tmp_iSendBytes := send(ServerSock, pBuffer, iDatalength - tmp_iTotalBytes, 0);
  if tmp_iSendBytes > 0 then
  begin
  pBuffer := pBuffer + tmp_iTotalBytes;
  tmp_iTotalBytes := tmp_iTotalBytes + tmp_iSendBytes;
  end
  else
  begin
  CommonSendPacket := tmp_iTotalBytes;
  Exit;
  end
  end;
  Result := tmp_iTotalBytes;
  end
end;
//*********************此处封装的通用数据发送函数

热点排行

.NET

好手搭救一下吧.