TserverSocket and TClientSocket
- by Georgi Gavrilski
I use this code to reveive data :
But It's not work.Can you Help me ?
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
i:integer;
sRec : string;
begin
for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
begin
with ServerSocket1.Socket.Connections[i] do
begin
sRec:=ReceiveText;
if sRec < '' then
begin
if RemoteAddress='192.168.0.1' then
begin
if ReceiveText='1' then
Btn1.Color:=clNavy;
ADOQuery1.Active:=True;
end;
if RemoteAddress='192.168.0.1' then
begin
if ReceiveText='2' then
Btn1.Color:=clRed;
Pnl1.Visible:=True;
end;
end;
end;
end;
end;