🚀 go-pugleaf

> ==> Tyler_K(�޹���)                          ˵��: 
> ����ij����һ��������ɣ�����ô˵���󿴲���ë��������!  
  �ҵij���û������Ү����ʱ����ǻ���ȫ��ȷ��(�������)
��Ҫ��������α�֤����ݵ���ȷ�������Ҹ��ñ���ࣿ
Դ�������£�
procedure TForm1.Button2Click(Sender: TObject);
 var buf:pointer;
begin
  myimage.picture.bitmap.savetostream(mystream);
  mystream.position:=0;
  getmem(buf,mystream.size);
  mystream.read(buf^,mystream.size);
  clientsocket1.socket.SendBuf(buf^,mystream.size);
  freemem(buf,mystream.size);
end;
myimage��һ��image�ؼ���mystream����ΪTMemoryStream�ࡣ����create
������clientsocket1��һ��TClientSocket�ؼ���
���ǿͻ����˷��ͳ���Ĺ�̡�

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
   var buf:pointer;
       Mystream:Tmemorystream;
       i:longint;
begin
   mystream:=tmemorystream.create;
   getmem(buf,50000);
  if (serversocket1.active=true)  then
begin
     i:=serversocket1.socket.Connections[0].receivebuf(buf^,50000);
     mystream.writeBuffer(buf^,i);
     mystream.position:=0;
     image1.picture.bitmap.loadfromstream(mystream);
     freemem(buf,i);
     mystream.free;
end;
serversocket1��Tserversocket�ؼ�����Ҫ��������receivebuf��һ�䡣
�����ָ�㣬лл��

 

--
�� ��Դ: �й�ƴ�BBSվ [bbs.ustc.edu.cn]