提供一个方法: client: ClientSocket.SendText('$$Update$$content=this is a test'); Server: procedure ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); begin RecvTxt:=socket.ReceiveText; CommandHeader:=copy(RecvTxt,1,10); delete(RecvTxt,1,10); if CommandHeader='$$Update$$' then begin SqlStr:='update lists set content='+RecvTxt; adoquery1.sql.add(sqlstr); adoquery1.ExecSql; end; end; 呵呵,最简单.
ClientSocket.SendText('$$Update$$content=this is a test');
Server:
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
RecvTxt:=socket.ReceiveText;
CommandHeader:=copy(RecvTxt,1,10);
delete(RecvTxt,1,10);
if CommandHeader='$$Update$$' then
begin
SqlStr:='update lists set content='+RecvTxt;
adoquery1.sql.add(sqlstr);
adoquery1.ExecSql;
end;
end; 呵呵,最简单.