如何給一個事件指定處理過程(50分)

  • 主题发起人 主题发起人 Undefine
  • 开始时间 开始时间
U

Undefine

Unregistered / Unconfirmed
GUEST, unregistred user!
我在用TcpClient的時候我想給OnReceive指定處理過程應該怎麼做.
 
说明白点
 
你在写一个过程
procedure MyTcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);

procedure TForm1.FormCreate(Sender: TObject);
begin
Self.TcpClient1.OnReceive := MyTcpClient1Receive;
end;
 
不是的,你說的那個我一直都知道,但是我是在D7里面用的TCPSERVER和TCPCLIENT但是server端的onread事件是一个类型事件,这样的事件应该如何指定。
另外就是我换用d5也是用的tcpserver&tcpclient组件,奇怪的是我发送一个文件数据流,每次发送到最后一次也就是小余普通包的那一次总不能触发服务端的事件,真不明白。
谁能告诉我一下到底为什么吗?谢谢。
 
后退
顶部