我不能放Tclientsocket component 到form 中, 所以只可以用coding... 現在我可以dynamic create TclientSocket 在 formcreate... var cs:Tclientsocket; procedure TForm1.FormCreate(Sender: TObject); begin cs:=tcs.Create(nil); cs.Host:='chatcafe.net' cs.Port:=; cs.Active:=true; end; 但係我不懂得如可做這個的onread handler.... 請各位先進幫忙, 不勝感激!!!!!!!

Hi:    

var
cs:Tclientsocket;
procedure TForm1.FormCreate(Sender: TObject);    begin
    cs:=tcs.Create(nil);
    cs.Host:='chatcafe.net'
    cs.Port:=;
    cs.Active:=true;
    cs.OnRead := 'Your Procedure Name';
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.