如何进行内存拷贝

Question

在delphi6中,用TclientSocket进行短信发送,其中包含整型数字,如123,需取4个字节进行发送,如何操作,请指教

Answer 1

var
  num : integer;
begin
  num := 123;
  ClientSocket.send(@num,sizeof(integer));
endok

Answer 2

var
  sendstr:array [0..3] of char
begin
  zeromemory(@sendstr,sizeof(sendstr));
  copymemory(@sendstr,PChar('1234'),4);
  ClientSocket.sendbuf(sendstr,4);
end;