需要在一个循环里发送。
Examples中有例子
Examples中有例子
解决方案 »
- 求助:在fastreport预览情况下如何添加打印时才执行的命令,
- Delphi 曲线生成
- richedit中加右键菜单:复制、粘贴、剪切等基本功能,代码如何写?
- 如何让两个richedit的滚动条同步
- 请问如何将以树的某个节点为根节点的所以子节点清空
- 请问在操作execl中如何设置下划线????????????
- 请问数据库的锁定与解锁
- 有关acess数据的问题,其中有一个time字段,我用函数写当前时间进去,acess中是对的,可是查询结果里面多了日期
- 你好,我想请问一下关于下面这个代码为什么编译的时候出错
- 触法器 AND IBDATASET
- SQL日期格式所带来的问题,急。在线等待解答。
- 谁有局域网语音的源程序,控件,或开发包,发给我一个。
for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
ServerSocket1.Socket.Connections[i].SendBuf(...
有Example吗?
能说的再明白吗?
var
c,i: integer;
begin
c := ServerSocket1.Socket.ActiveConnections;
for i := 0 to c - 1 do
ServerSocket1.Socket.Connection[i].SendText('ok');
end;
你们有没有image控件的图象无级放大的算法和源码??
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;