//クライアント側 procedure buttonpa.click; begin clientsocket.socket.sendtext(NAME+'パー '); end; //同様に続いてチョキ・グーもつくる procedure clientsocket.read; begin Label := clientsocket.socket.recievtext; ned; end.
//サーバー側 procedure serversocket.clientread; begin r := serversocket.socket.recievtext; if p1 <> '' then begin p2 := copy(r,length(r)-5,6); n1 := copy(r,0,length(r) - 6); end; p1 := copy(r,length(r)-5,6); n1 := copy(r,0,length(r) - 6); if (p1 <> '') and (p2 <> '') then begin if p1 = p2 then serversocket.socket.sendtext(P1+P2+'であいこ'); if (p1='パー ') and (p2='グー ') then serversocket.socket.sendtext(P1P2+'で'+n1+'の勝ち'); //以下省略 end;
