以下是一段用socket來傳送和接收文件的代碼.
程序在接收時有觸發onread事件,但在發送時使用sendstream卻沒有.
想問的是:如何才能得知程序正在使用sendstream傳送文件中?

procedure TForm1.cs3Read(Sender: TObject; Socket: TCustomWinSocket);
var
len3:integer;
buf3:array [0..10000] of byte;
begin
counter:=counter 1; //counter:=1;
caption:=inttostr(counter); //發送時使用sendstream,counter加1後就沒再繼續增加
if (updown=222) and (socket.ReceiveText='go~') then //send file
begin
socket.SendStream(fs3);
exit;
end;
if updown=111 then //receive file
begin
filesize:=strtoint(socket.ReceiveText);
updown:=999;
socket.SendText('go~');
end
else
begin
len3:=socket.ReceiveLength;
socket.ReceiveBuf(buf3,len3);
if fs3.Size < filesize then
fs3.Write(buf3,len3);
if fs3.Size >= filesize then
begin
fs3.Free;
socket.Close;
end;
end;

(1) TClientSocket 元件接收資料的時候，會觸發 OnRead Event => Occurs when a client socket should read information from the socket connection.
(2) TClientSocket 元件傳送資料的時候，會觸發 OnWrite Event => Occurs when a client socket should write information to the socket connection.
(3) 以上的說明，在 Delphi Help 裡面都可以查詢到喔

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

procedure TForm1.cs3Write(Sender: TObject; Socket: TCustomWinSocket);
begin
counter:=counter 1;
caption:=inttostr(counter);
end;

發送幾MB或幾十MB的文件,counter都只是加1,而我是想讓程序正在發送文件(用sendstream)的過程中一直觸發事件,直到發送完畢.
請再指教,謝謝.

編輯記錄

TClientSocket.ClientType
type TClientType = (ctNonBlocking, ctBlocking);

TCustomServerSocket.ServerType
type TServerType = (stNonBlocking, stThreadBlocking);


Blocking 與 NonBlocking 的寫法考量點不同喔...

不解,能詳細說明一下該怎麼做嗎?謝謝.

===================引 用 jow 文 章===================
TClientSocket.ClientType
type TClientType = (ctNonBlocking, ctBlocking);

TCustomServerSocket.ServerType
type TServerType = (stNonBlocking, stThreadBlocking);


Blocking 與 NonBlocking 的寫法考量點不同喔...

請多多指教,拜託...

自己重寫 SendStream 並處理進度就可以了。

===================引 用 takdick 文 章===================
procedure TForm1.cs3Write(Sender: TObject; Socket: TCustomWinSocket);
begin
counter:=counter 1;
caption:=inttostr(counter);
end;

發送幾MB或幾十MB的文件,counter都只是加1,而我是想讓程序正在發送文件(用sendstream)的過程中一直觸發事件,直到發送完畢.
請再指教,謝謝.