saya telah membuat procedure seperti ini :
procedure TFMain.crserversocket(var serversc: TServerSocket);
var qstr:string;
qtmp:TADOQuery;
begin
qstr:='select nama_kamar,port from bad_kamar_counter';
AnwQueryAdo(qtmp,qstr,connection);
serversc:=TServerSocket.Create(Self);
with serversc do
begin
Port:=qtmp.fieldbyname('port').AsInteger;
Name:=qtmp.fieldbyname('nama_kamar').AsString;
ServerType:=stNonBlocking;
Active:=true;
end;
qtmp.Free;
end;
-----------------------------------
maka hasil dari komponentnya adalah :
------------------------------------
ROOM01
ROOM02
ROOM03
......
......
-----------------------------------
tapi saya bingung untuk melakukan pegiriman seperti
:serversocket.connection[0].sendtex:=string;
saya ingin buat procedure yang hanya mengirimkan nama server socket seperti
ini untuk melakukan pegiriman data pada serversocket yang telah saya buat
dengan procedure diatas..?
procedure senddata(namasocketserver:Tsocketserver);
begin
..
..
end
mohon pencerahannya...
salam
anwar
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.525 / Virus Database: 322 - Release Date: 10/9/2003
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
