請問下面的程式碼有問題嗎?  為什麼傳不出去呢?

ClientSocket2->Address = "192.16.1.1";
ClientSocket2->Port = 1024;
ClientSocket2->Open();
Sleep(200);

ClientSocket2->Socket->SendText("123");
ClientSocket2->Active = true;

編輯記錄

為什麼你認為傳得過去？

===================引 用 JH 文 章===================
請問下面的程式碼有問題嗎? 為什麼傳不出去呢?

ClientSocket2->Address = "192.16.1.1";
ClientSocket2->Port = 1024;
ClientSocket2->Open();
Sleep(200);

ClientSocket2->Socket->SendText("123");
ClientSocket2->Active = true;

謝謝你的回應.

如果我把
ClientSocket2->Address = USIZyDasSyS.sSFISIP;
ClientSocket2->Port = USIZyDasSyS.iSFISPort;
ClientSocket2->Open();
寫到其他地方, 它就可以送的出去, 但是寫在一起就不行, 這是WHY?

Sorry,
是:
ClientSocket2->Address = "192.16.1.1";
ClientSocket2->Port = 1024;
ClientSocket2->Open();
Sleep(200);
才是.

client connect to server. 需要時間。
在LAN也許 200ms 夠。
在 internet 不一定夠吧。

所以你寫在不同的地方可以動作。
你寫在一起。你根本就還沒等到它”連線”完成。就要它做什麼事。
它理你才有鬼勒。^_^

Thanks for your answer.
<1> 其實我用debug mode 去一步一步執行, delay time 已經超過200msec. 它還是不行.
<2> 我看到 server 的狀態: 當Connect 寫在 form create的地方時, 他是OK, but 寫在一起時, 再送出 Active 時, 居然還多了一個 Connection 在Server端, This is Why?

===================引 用 暗黑破壞神 文 章===================
client connect to server. 需要時間。
在LAN也許 200ms 夠。
在 internet 不一定夠吧。

所以你寫在不同的地方可以動作。
你寫在一起。你根本就還沒等到它”連線”完成。就要它做什麼事。
它理你才有鬼勒。^_^

我的目的是:  送完訊息就斷線, 要送時,再連線.   所以會須要這樣子.

===================引 用 JH 文 章===================
Thanks for your answer.
<1> 其實我用debug mode 去一步一步執行, delay time 已經超過200msec.?它還是不行.
<2> 我看到 server 的狀態: 當Connect 寫在 form create的地方時, 他是OK,? but 寫在一起時, 再送出 Active 時, 居然還多了一個 Connection 在Server端, This is Why?

===================引 用 暗黑破壞神 文 章===================
client connect to server. 需要時間。
在LAN也許 200ms 夠。
在 internet 不一定夠吧。

所以你寫在不同的地方可以動作。
你寫在一起。你根本就還沒等到它”連線”完成。就要它做什麼事。
它理你才有鬼勒。^_^

想想我說的話。看看 client 元件的 event 有那個可以讓你用的。
去試一試看。

Thanks for your answer.

I thought that I found out the real root cause, that is add a line Application->ProcessMessage() after ClienrSocket->Open(). it can work.

Thank you, 版主
===================引 用 暗黑破壞神 文 章===================
想想我說的話。看看 client 元件的 event 有那個可以讓你用的。
去試一試看。

===================引 用 暗黑破壞神 文 章===================
想想我說的話。看看 client 元件的 event 有那個可以讓你用的。
去試一試看。

dear JH ：

有一個事件，你可以研究，試看看。
ClientSocket1Connect(TObject *Sender, TCustomWinSocket *Socket);

呵。他說解決了就讓他解決了吧。
等他換了個環境問題就會再出現。
沒遇到問題。不會學到東西。

===================引 用 salo0610 文 章===================

dear JH ：

有一個事件，你可以研究，試看看。
ClientSocket1Connect(TObject *Sender, TCustomWinSocket *Socket);

謝謝你們的回覆.

是的,我是利用 Connect 的Event 去得到連線時的 Socket, 再利用Application->ProcessMessage() 就解決我的問題了.

===================引 用 暗黑破壞神 文 章===================
呵。他說解決了就讓他解決了吧。
等他換了個環境問題就會再出現。
沒遇到問題。不會學到東西。

===================引 用 salo0610 文 章===================

dear JH ：

有一個事件，你可以研究，試看看。
ClientSocket1Connect(TObject *Sender, TCustomWinSocket *Socket);

ClientSocket2->Active = true;

根本不必存在

當你 SendText 的之後, 字串就立刻傳送過去了

Active=true 跟 Open() 函式是一樣的功能

相反的 Active=false 等於 Close()

===================引 用 JH 文 章===================
謝謝你們的回覆.

是的,我是利用 Connect 的Event 去得到連線時的 Socket,? 再利用Application->ProcessMessage()?就解決我的問題了.