各位大侠：在DELPHI中，socket服务端怎样向多个客户端同时发送相同的数据？？？

Question

需要在一个循环里发送。
Examples中有例子

Answer 1

不会的,这样一定可以。
for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
     ServerSocket1.Socket.Connections[i].SendBuf(...

Answer 2

请问：风舞先生
有Example吗？

Answer 3

谢谢，gzmhero!
能说的再明白吗？

Answer 4

C:\Program Files\Borland\Delphi5\Examples\Internet\Chat

Answer 5

你在发送的时候用下面的方法看看：
var
  c,i: integer;
begin
  c := ServerSocket1.Socket.ActiveConnections;
  for i := 0 to c - 1 do
    ServerSocket1.Socket.Connection[i].SendText('ok'); 
end;

Answer 6

谢谢！各位大侠！！！
你们有没有image控件的图象无级放大的算法和源码？？

Answer 7

有呀，可以利用类Tcanvas的CopyRect方法实现图象的放大和缩小。其功能是将源画布上的一个指定矩形区域内的象素，拷贝到目的画布上的一个指定区域（你自己可以设置级数）：如Procedure CopyRect(Const Dest:TRect;Canvas:TCanvas;Const Source:TRect);
Const
 SSide=30;
DSide=45;
var msHide:Boolean;
  OldX,OldY,NewX,NewY:Integer;
 DestRect,SourceRect:TRect;
Procedure ImageCopy(BoxCenterX,BoxCenterY,BoxSide:Integer);
begin
 with SourceRect do
  begin
   Left:=BoxCenterX-BoxSide;
  top:=BoxCenterY-BoxSide;
  Right:=BoxCenterX+BoxSide;
  Bottom:=BoxCenterY+boxside;
  end;
 with DestRect do
  begin
   Left:=BoxCenterX-dSide;
   Top:=BoxCentY-dside;
   Right:=BoxCenterX+dSide;
   bottom:=BoxCenterY+dSide;
  end;
 Image1.canvas.CopyRect(DestRect,Image2.Canvas.SourceRect);
  end;
end;